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Percom's DOUBLERII tolerates wide variations in media, drives 

GARLAND. TEXAS — May 22. W81 — 
Harold Mauch. president uf Percum Data 
t'ompany. announced here today that an itn- 
proved version ot the Company's innovative 
DOUBLER^' adapter, a double-density piuy-in 
module for TRS-80" Model I computers, is 
now available. 

Retletttng design refinements based on both 
thet)rctical analyses and field testing, the 
nOUBLER IL". so named, ponnits even great- 
er tolerance in variations amons; media and 
drives than the previt)us desiun. 

Like the oriRinal IXX'BLER, the DOU- 
BLER II pliigs mto the drive controller l(" 
stxrket of a TRS-80 Model I Expansion Inter- 
face and permits a user to run either snijile- or 
double -dervsity diskettes on a Mtxlcl 1. 

With a IX^L'BLER II installed, over four 
times more lormatted data — as much as 364 
Kbytes — can be stored on one side of a five- 
inch diskette than can be sKired usin^ a stan- 
dard Tandv MixJel I drive system. 

Moreover, a LX_"iUBLER H equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note: See "OS-SO": Bridging the TRS- 
80' software compatibility gap" elsewhere on 
this page.) 

The critical clock-data separation circuitry* 
of the rXDlJBLER II is a proprietary design 
called a ROM-programmed digital phase-kx'k 
ItKtp data separator. 

According to Mauch, this design is more 
tolerant of differences from diskette to diskette 
and drive to drive, and also provides immunity 
to performance degradation caased by circuit 
component aging. 



Mauch said "A IX)UBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase-lock lix>p also eliminates 
the need for trimmer adjustments typical ot 
analiig phase-l(K:k kxtp circuits. 

"You plug in a Percom DOUBLER II and 
then forget it." he said. 

The DOLIBLER II also features a refined 
Write Precompensarion circuit that more 
effectively minimizes the phenomena of bit- 
and peak-shifting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER 11, which is tully st.ftware 
compatibk- with the previous tX^UBLER. is 
supplied with DRI-nOS". a TRSDOS'- 
compatible disk operating svstyn. 

Tlie DOUBLER I! sells for SZ>$S, mdud- 
ing the DBLDOS J'^kette^ ^'^j^ll.V! 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



GARLAND. TEXAS — The Percom 
SEPARATOR" does verv well for the Radio 
Shack TRS-80* Mi.>del I computer what the 
Tandv disk controller dt>es (xtorly at best: reii- 
ahly separates clock and data signals during 
disk-read operatit)ns. 

Unreliable data-clock separation causes for- 
mat verification failures and repeated read 
retries. 

CRC ERROR -TRACK LOCKED OUT 

The problem is most severe on high-number 
(high -density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separaror ot the 1771 
drive controller K^ used in the Mixlel I. 

The Percom Separator substitutes a fiigft- 
resuluiiun digital data separator circuit, one 
which operates at 16 megaliert;, for the low- 
restilution onc-megahert: circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — for example, two- or four- 



megaherti — were found by Percom to provide 
only marginally improved performance over 
the original Tandy circuit. 

The Percom stilution is a simple adapter that 
plugs into the drive controller ol the Expansion 
Interface (El). 

Not a kit — some vetidors supply an un- 
lestcd >cpafan>r kit of rcsistots. ICs and other 
paraphernalia that mav be installed by mod- 
i tying the computer — the Percom 
SEPARATOR is a fulK assembled, fully tested 
plug-in module. 

Installation involves merely plugging the 
SEPAR.^TOR into the Model 1 El disk con- 
troller chip socket, and plugging the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95. may be purchased Irom authoti:ed Per- 
com retailers or ordered directly from the fac- 
tory. The facror\- toll-free order number is 
1-800-527-1592. 

Ed. nor<;; C~>pening the TRS-80 Expansion In- 
terface may void the Tandy limited *X^-day 
warranty. OrcleSOBon inquiry card 



Owners of original LX)LIBLERs may pur- 
chase a DOUBLER I! upgrade kit. without the 
disk controller IC. for $iO.OO. PrhiI of pur- 
chase of an original fXU'BLER is required, 
and each DOUBLER owner may purch.Lse only 
>.ne DOUBLER II at the $50.00 price. 

The Percom DOUBLER II is available from 
authorized Percom rerailers, or mav be ordered 
direct from tlie factory. The factory toll-free 
order number is 1-800-527-1592- 

Ed. note Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. ^^^^ ^sa on inquiry ca(d. 

All that glitters h not gold 

OS.80 Bridging the TRS-80* 

software compatibility gap 

(J(imparibilin hcrwcen TRS-SO' MiJcl I Jukcne* .inJ 
the new Mmicl III ■> iiboui »t genuine ui i |p>ld-pl.itvJ Ii;a1 
KniKctrand. 

Tnic, MiiJcl ITRSnOS' ili*l(cncsc3nhiTi?aiiin.iMiivli-l 
111. But tir^i rlii'v tnuit he corvcrii'd jnJ (v-ntimiat Int 
MikIcI III Kprrjiuiri. 

Anil you lanimi utik io j Mvnii-I 1 TRSlX^S'disln-iti:, 
Not wiiK d Model III- You tjnnor aJJ jlile. Delete j file Ot 
in any way nvKJify a Model I TRSIX)S diskette v. ith a Mudcl 
111 computer. 

Funhetinore. yi'ut timvefted TRSWS Jisketies cannot 
he ^inverted fnitli for Model 1 opcrdti>>n. 

TRSDOS IS a one-way street, .^nd [here's rxi retreating. 
A poini to consider before switchinK the company's payroll 
to yuur new Model 111, 

Real software compatibiliiv should allow the JitM. im- 
mediate intcrchanRtahihty ot Model I and MoJd III ditket 
res. No read-onlv limiiaiiom, no lonverMon 're- record in^ 
■.teps and no chance to he let! high and dry with Mt>dcl III 
divkeiTi'* ihfll cunt he r»in on a Mtxiel I, 

%'hal's (Kc answer; The answer is Petcom'i OS-8C"'' 
tamily otTRS-SCdisk operating syslettw 

OS-80 programs allow dirtct, immeJiate inicrchanKcahilnv 
,il M.Kiel I. indMi^icl III d.,kertes 

You irtn nin M.-del I Mngli,--Llen>iiv Jislcetie* on n Model 
III, iii>Ta!l Pttcom'^ rlv'sTii l>^l'Bl.ER'* .id.ipler m youi 
MiKJel 1, ,ind you L^n run double- density Model 111 diikeites 
»n J Mudel I , 

There's no convcrjion, lyo Te-recotdinc 

Slip an OS-80 diskette out of yout Model 1 and instn it 
direcrly in a Model HI. 

And vice-vcTsa. 

JuH have ihe torteci OS-80 disk oreruiini; >v^tcm — 
aS-80. OS-80n or OS-SO'lll — in c-th computer. 

Moreover, with OS-80 svftcms. you Lan i»dd, delete, and 
update files. You can read cJuJutiU' dikkeileTeiiardleiiodhe 
system of oriHln, 

I.TS.80 1% the .wiBinal Pcreom TRS-80 DOS ioi BASIC 
piogra miners. 

Even OS-80 urilities arc written in BASIC. 

OS-W IS the Percom sviiem about which a user wrote, in 
Creative Compurinf* maKa:ine. '". . the best SJO.OC you 
will ever ipend."' 

RcHotring<'nly*eeenKby(esofmerrKir^-, OS-SCdidiopei- 
aiinijsysiemsrfsidc tnnipleiely in RAM. Thetc'snoneedto 
dedic;ite a drive cxcluwytly for .i sviteiii diskeite. 

And. unlike TRSPOS, vou can work at the track lecior 
level, defining and aintrolhni; data tormats — ■ m BASIC - - 
Io create simple or complex data structures that enecute 
mtire quickly than TRSDOS tile*. 

The Percom OS-KO IX^S suppuris single -JenMiv i>per3 
tion of the Model Uompiiier - pricei*i2^.95;iheOS-SOD 
iuppoitu iknihle-denMty opemtuin of Model I iompulets 
eou.p|x\l with a DOUBLER or DOUBLER II. and. OSSC, 
III — lor the MikIcI I Hot course ^supporij both iincie- and 
double -densily operation. kW-fiCD and OS-,''0'II1 i-atli 
*c!l tor *44>»S ^429 
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Robotics— The Micro- 
computing Connection 

by Chris Brown 

Currently, robot intelligence of the Star 
Wars sort can only be created in one way: 
stuffing a midget (preferably British) into a 
robot suit. 



It's All Robotese to Me 101 

by Kelvos Gisamte 

Discretion may be the better part of valor 
but not always the better part of authors. 
Gisamte's indiscretions will most likely be 
forgiven by readers when they find out how 
entertaining they are. 
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One Man's Robot 

by Don McAllister 

A year after this author bought a $29 model of R2D2— that cute 
Stump from Star Wars with the fast-forward voice— he had it 
hooked up to his TRS-80 and responding to voice commands. 
You can do it, too, he says, and shows you how. 



Spanning the Electronic Nation 134 

by Dennis Kitsz 

Communication from sea to shining sea can be yours. All you 
need is a modem. Author Kitsz looks at three of them. 



148 AH About Sorts They're more than Just a shell game. Len Gorney 

170 New Words for Basic Taming some foreign mots. Alan Neibauer 

182 Level II Utilities tor the Model III T-Bug and other variations. Kenneth J. Bigelow 

242 Going Pro Before you write software for someone else. Nicolas Moss 

312 Clear N A not-so-transparent way to save money, Nate Salsbury 

334 Bascal Detractors of Basic beware. Richard C. Metzter 



[y]¥i][Low 

174 The Memory Expander Eliminating those wide open spaces. Tim Kenealy 

186 Base Conversions Coping with the numtjers jungle. James Yowell Yelvington 

228 Split and Splice Text manipulation that's a cut up. Stephen Mills 

240 Throw Avway Kill instructions, save memory, R. Gene Langston 

250 "On Error. . . Fix" A prescription for bombing bugs, ,W. C. Richardson 

276 Serial Printing with EDTASM-Plus You have to do it yourself, Howard H. Cohen 

283 Patching Across Back door Scripsit, Richard Koch 

317 Rename You enter the strings and this program will pull them. David Busch 

333 Dateline 80 The object of this program is Basic. Richard A. Press 
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130 Morse Resource— Pari II More dit dah dah dit. Allan S. Joffe 
Lifespan Be a literal life of the party. Joseph Wailand 
Equine Equation Evaluation Playing the ponies without a computer may be 
a handicap. Raymond J. Herotd 
The Secret Ballot Plug in the vote. David D. Busch 
Enhanced Word Processing Good news for Line Printer IV owners. John F. Rogers 



252 
262 

286 
290 
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218 The Wave Shaper Get a load of these curves. R B. Shreve 

258 Width Control A little less character may be better for your line printers. 

Jim Barbarello 
298 Lowercase Done Right A $59 mod for $16.13. John Burgan 

204 Alternate Course— Part II A method of writing your first program grounded 

in outer space. Michaei A. Duffin 
244 Math Dert)y College Bowl for furlongs. Michael A. Duffin 
272 Teacher Mod Working with a classroom of computers. Madeleine Fish 
292 The Walls of Jericho A Sunday school class blows its horn. 

Chucl< and Jo McNIchols 
328 Analogies With all due respect to Miller. Damon L Spencer 

142 A Macroprocessor for Basic- Part tt'l The first thing to remember about Basic is it 

doesn't exist. J. Alan Olmstead 
300 The Magic Trick Keyboard sleight of hand. David D. Busch 
320 TRS-80 Cartoon Capers Freeing the Al Capp in your computer. Darren DeVlgill 

214 Picture This Proof that cartoons on your TRS-80 are not a looney idea. 

Dan Keen and Dave Dischert 
256 Curve Plotter It could make a draftsman jealous. 

Steven M. Zimmerman and Craig Stanley 
302 Title Graphics Billboards for your programs. Francis S. KalinowskI 



168 Software Tools tor the Craftsman Renumbering, merge and append made easy. 

Maurice M. Small 
180 Smart Terminal Software Make your computer an egghead without getting egg 

on your face. BUI Everett 
278 Snapp's XBasIc Loading cooperation into your Model II. Ricl^ Lederman 



154 
220 
226 
322 



Rotation Take a cube for a spin. Bruce Yellin 
High Speed Sorts Computing in the fast lane. Richard R. Robson 
Erudite Arrays Matrices can learn from their peers. George Barnes 
Slice & Dice Basic An answer to frustrating loads. J. Stewart Schneider 
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5!0 REMARKS 



by Wayne Green 



"Others may use their Sor^y Walkmar) 

cassette players for rock, mine is 

beltmg out Trail by Jury and Ruddigore. " 



"// you wish in the world to advance 
Your merits you're bound to enhance 
You must stir it and stump it 
And blow your own trumpet 
Or trust me you haven't a chance." 

W.S. Gilbert, Ruddigore 

Back in my formative days, I was ex- 
posed to a rabid Savoyard and be- 
came a carrier of this form of mental ili- 
ness: hence tfie opening ditty. By the age 
of twelve I could sing the Nightmare song 
from lolanthe (this is one of the faster Gil- 
bert and Sullivan patter songs). In high 
school I joined the Savoyards club and we 
put on The Mikado and Pirates. Hello all 
you G&S fans— and to the uninitiated, 
you're missing something. 

Others may use their Sony Walkman 
cassette players for rock, mine is belting 
out Trial by Jury and Ruddigore, with a bit 
of btuegrass now and tfien. 

Green Tech 

Some months ago I got to stewing 
about the shortage of microcomput- 
er-oriented people. Sure, we have a hun- 
dred thousand hobbyists, but nowhere 
near the number of micro-educated peo- 
ple our growing industry really needs. 
Most schools, even though buying micros, 
have not been teaching the skills which 
are needed in our industry. 

There are over 2,000 stores selling com- 
puters at present. Estimates are that this 
will grow, as software becomes more 
available, to over 50,000 stores. We're go- 
ing to need store managers, technicians, 
salesmen, programmers, and so on just to 
fill this need. In order to move the pro- 
grams and hardware from the manufac- 
turers (or importers) to the stores we will 
need distributors or reps and these peo- 
ple, too, will have to have an understand- 
ing of micros. 

Even with massive importing of hard- 
ware from Japan there will still be a need 
for large numbers of people to run the 
smaller businesses which will build up 
around these systems. Look at the host of 
firms which are making nice livings pro- 
viding accessories and software for the 
TRS-80; when we also have IBM, DEC, DG, 
Panasonic, Casio, Sony, Sanyo, Hitachi, 



Toshiba, Sharp, Quasar, Pioneer, Sansui, 
Sord, Mitsubishi and others, we're going 
to have a big market and need a lot of 
trained people. 

I have been looking for someone who 
could start work on plans for a technical 
institute which would teach the funda- 
mentals of microcomputers. My concept 
is to have a blitz course which would last 
18 months to two years, thus keeping 
down the cost of college. The course 
would run straight through, with no vaca- 
tions, no beer bashes, no soccer teams, 
no dances.. -just hard work and plenty of it. 
It would run six days a week, about twelve 
hours a day. 

The courses would cover both the hard- 
ware and software aspects of micros, 
complete with extensive lab work. There 
would also be an array of business 
courses so that graduates would be able 
to work their way up i nto the management 
of businesses, rather than being primarily 
technicians or engineers. This is the area 
where most firms have failed, rather than 
in technical designs. We would teach 
such things as business law, personnel 
management, marketing, salesmanship, 
corporate financing, accounting, advertis- 
ing and promotion, writing, speed-read- 
ing, gamesmanship, taxes, quality con- 
trol, packaging, automation, and so on. 

One of the problems many students 
have when they graduate from school is 
finding work when they have had no prac- 
tical experience. This is the Catch-22 situ- 
ation. With Instant Software growing rap- 
idly, we may be able to Intern students 
there part time so they will have had pro- 
fessional business experience for their re- 
sumes. They would be able to do service 
work on the myriad of computers in the In- 
stant Software lab, help with evaluation of 
submitted programs, write programs in 
their spare time for possible publication, 
work on making production masters of the 
programs, duplication, quality control, 
packaging, advertising, promotion, sales, 
and so on. With Instant Software sales 
heading toward $10 million and more, 
there will be plenty of work for hundreds 
of students. 

It will be a year or two before this plan 
will get off the ground, but a staff is start- 



ing to work out the details. I 



International Computer Students 

On a recent trip to St. Lucia, a small 
island in the Caribbean, I talked with 
the people there and found that it is pres- 
ently very difficult for students from 
smaller foreign countries to come to the 
U.S. for an education. Yet it is in these 
countries where it is needed the most, and 
where it can have the best long-range ef- 
fect, not only for the country involved, but 
for the U.S.. Russia figured that out a long 
time ago and they regularly bring in for- 
eign students for a Russian education. 
The investment would be small to bring 
students to the U.S. and put them into 
schools, particularly such as the one I en- 
vision. 

Smaller countries must have some way 
of keeping up with technology if they are 
not to fall further and further behind. And 
if the U.S. does not help these smaller 
countries, particularly in our hemisphere, 
you can bet that Russia and Cuba will. 
You can also bet that the students will get 
more than a technicaH and business train- 
ing. 

Having visited quite a few small coun- 
tries, meeting hams and computer people 
in these areas, I feel that this is important 
enough to warrant being considered part 
of our defense budget. Helping countries 
to grow and spreading the friendly Ameri- 
can influence is a way to save on future 
military expenses. 

In most cases we wouldn't even have to 
do more than provide the educational 
cash up front, just as we are doing for 
American students. These students 
would be delighted to do just about 
anything to earn as much of their keep as 
possible while they are in school here, and 
repay the rest of the investment when they 
return home. We might start thinking in 
terms of more schools where students 
have an opportunity to work part time to 
help pay for their education. 

By the way, I want you to know that the 
hams of St. Lucia, several of whom are al- 
ready into microcomputers, pulled out all 

Continues to page 67 
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EDUCATION 00 

by Earl R. Savage V\^ 



"A flow chart can be of significant 

help in planning a program and 

'deciphering' one someone else wrote." 



The use of a split screen can greatly 
enhance the effectiveness of many 
types of instructional programs. Suppose 
you wish to discuss or ask questions 
about a chart, diagram, quotation or math 
problem. The normal procedure is to keep 
the figure before the student during the 
discussion. The figure is usually at the top 
of the dispiay and a series of statements 
or questions below it. 

That works fine, except that as you con- 
tinue to write at the bottom of the dispiay, 
the figure scrolls off the top. You need the 
lower part of the display to scroll in- 
dependently of the upper part. This can be 
done but it is a complex maneuver on the 
Model I. Fortunately, there are several 
simpler ways to accomplish the same ef- 
fect. 

Several Solutions 

We should pause here to note the 
Model lit has this function built in. It 
allows you to protect up to seven upper 
lines from scrolling just by POKEing a 
digit into a memory location. If you need 
more than seven lines space you must 
resort to programming techniques. 

The least effective solution is to use a 
subroutine to draw and re draw the figure. 
When you wish to change the bottom of 
the display, clear the screen and call the 
subroutine to re draw the figure before 
writing again at the bottom. This pro- 
cedure is slow and it requires un- 
necessary memory overhead. 

The most common solution is to simply 
write over the old information at the bot- 
tom of the display. Not only is this sloppy 
in appearance, but you must remove all 
the old writing. The presence of old and 
new writing together will only confuse the 




STATEMENT 



Student. 

The simplest and most effective solu- 
tion to split screen operation is to use the 
control code CHR${31). For example, this 
statement will clear the display from the 
beginning of line 10 to the bottom: 

PRINT®576.CHR$(31); 

Note the trailing semicolon. Failure to in- 
clude it will cause problems with the 
figure. 

This statement not only clears the last 
seven lines but leaves the cursor at print 
location 576 (beginning of line 10). With- 
out taking further action, you are ready to 
write at the top of the cleared area. 

If your program will use this procedure 
several times, place it in a subroutine for 
efficiency. In this case, make the print lo- 
cation a variable like this: 

2080 PRINT @P,CHFI$(31);:RETURN 

You can now clear various portions of 
the screen as your needs change. The 
subroutine would be called by: P = 576: 
GOSUB2080. Once the value of P is estab- 
lished, you need not specify it again until 
it is to be changed. 

This technique will permit you to clear 
from any point on the display. If you need 
only to specify line beginnings, this 
change in the subroutine will save a few 
bytes of memory: 

PRINT@(L-1)'64, CHR$(31);:RETURN 

Simply specify the line number for L. If 
you will remember to start counting lines 
at zero instead of one, write your subrou- 
tine this way: 

PRINT@L*64, 



Fig. 1. Flow Chart Symbols 



With this technique, you can erase and 
re use the bottom portion of the display as 
many times as the program plan requires. 
In effect, you have split-screen operation 
without the hassle of machine code 
routines. 

In a true split screen, one part scrolls in- 
dependently of the other, which isn't the 



case here. When writing on the last line, 
be careful not to cause the display to 
scroll or you will lose part of the upper 
figure. Judicious use of trailing semi- 
colons on the last line will prevent scroll- 
ing. You can also simply leavethe last line 
blank. 

Using Flow Charts 

It seems that a large portion of the folk 
in educational computing ignore flow- 
charting altogether, or at best view it with 
suspicion and rarely use it. 

If you fall into that category, you're 
missing out on a valuable tool. A flow 
chart can be of significant help in plan- 
ning a program and "deciphering" one 
someone else wrote. In both instances, 
you can get lost easily. 

Short, simple programs or those pro- 
gressing from start to end with few side 
trips can be kept In mind quite well. It is 
with more complex programs that flow 
charts are really needed. 

The diamond symbol (Fig. 1) is used at 
each program decision point. There is a 
question in this box and, depending on the 
answer, program action may proceed in 
one of several directions. The diamond 
box will therefore have more than one ar- 
row leading from it. 

The rectangular box symbol is used for 
most of the actions in any program. It in- 
dicates there is no question or condition 

Continues to page 67 




Fig. 2. Charting a For. . . Next loop 
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AMAZING 

VALUES. 




FROM 



(nJl^ETATRONICS 

^ ^ CORPORATION .,.. 

OFFICES 

26111 BRUSH AVENUE 

EUCLID, OHIO 44132 



VISA 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 




TO ORDER 

CALL TOLL FREE 

1-800-321-9390 

IN OHIO, call 

(216) 289-1210 (COLLECT) 



TRS-80 is a trademark o( the 
Radio Sliack Division of Tandy 
Corporation. PLAIN JANE is a 
Trademark o( Mela Teclinologies 
Corporation. 



PRICES IN EFFECT 
Sept. 1, 1981 THRU 
September 30, 1981, 

Prices. Specifications. 

and Offerings subject to change 

without notice. 



•Add $3.00 tor shipping & handling. 
■53.00 EXTRA lor C-O.D, 
■ Ohio residents add SVj^/d sales 
tax. 



1981 by Metalrontcs Corp 



go INPUT 



"(He) seems to be under 

the illusion I threw a few 

integrated circuits into a bag 

(and) shook it up. . ." 



Joystick Not Foolproof 

In response to Dennis Kitsz's letter ex- 
pressing concern over what he caiis theo- 
retical problems with my joystick con- 
struction story in the June 1981 issue, lam 
sure the readers understand the point Mr. 
Kitsz seemed to miss. The joysticks were 
intended oniy to be used with a suitable 
program to draw or play games and not to 
' be left on line when running other pro- 
grams or when using'additional peripheral 
.devices. That is why there is no off-on 
switch. The user must unplug the joystick 
interface to disconnect the batteries, if 
not they will go dead in which case the 
unit wilt not operate and a "Theoretical 
Bus Contention" would not be possible. 
' That is why I said in the article "practically 
foolproof. ■ (Sorry Dennis, I didn't mean to 
fool YOU.) 

When a joystick program is running it is 
impossible to CLOAD at the same time. 
And lnp(1) will not open the cassette port; 
lnp{255) does that. I see no problem there. 

As far as the hex inverters are con- 
cerned, all that they do is pull some of the 
data lines down to ground potential; this 
" is also dohe by the keyboard and all other 
input devices, and is not harmful to the 
computer. 

In theory an AA cell is 1.5 volts, but in 
reality it provides somewhat less voltage. 
Four AA cells connected in a series and 
operating under a load, such as the joy- 
stick interface, provide only 5 volts. I have 
tested the device with several brands of 
batteries and all developed less than 5 
volts. 

f^flr. Kitsz states that a possible problem 
could arise it the joystick was pushed to 
zero. Again he is in error. Had he read the 
article carefully he would have seen that 
241 is the lowest data number the circuit 
develops. 

Dennis seems to be under the illusion 
that I threw a few integrated circuits into a 
brown paper bag, shook it up, and by 
some incredible stroke of luck, as he puts 
it, came forth with a working device. 
(Witchcraft?) 

Just for the record, Dennis, this was a 
carefully thought-out and tested project. 
AM the joystick units that I have built since 



the first one (21 months ago) still work per- 
fectly. Have you built even one and tested 
it? 

May I remind the readers about the 
scientist who claimed that, theoretically, 
a Bumble Bee cannot fly because its 
wings are too small for its body. Well 
folks, it does fly and so do my joysticks. 

Frank DiNunzio 
Bristol. PA 

Semiliterate 

Mr. Zeppa's letter concerning Harv Pen- 
nington and his Disk and Other Mysteries 
is a real jewel (June 1981). Literacy is 
the ability to comnnunicate ideas and 
thoughts. Harv did a masterpiece of com- 
municating a technical and complicated 
subject in a refreshing and informative 
way. I suppose Mr. Zeppa likes dry and 
methodical technical writing. I'd bet Mr. 
Zak's work on the Z-80 would give Mr. Zep- 
pa goose bumps! I have enjoyed reading 
Pennington's writing for some time. Writ- 
ers such as Pennington and Dr. Lien have 
done a service to laymen in the microcom- 
puting field. 

I quote from Mr. Zeppa, "I would still be 
embarrassed by the semiliterate style, or 
lack thereof, of TRS-80 Disk and Other 
fi/lysteries." Now, does Mr. Zeppa mean 
the work was lacking semiliteracy? I'm 
confused. Surely he meant the work was 
not up to his literary standards. Why in the 
hell didn't he say that? t rest my case. 

Steve Wright 
Dayton, TX 



Praise for Pennington 

I can't believe what people are saying 
about H.C.Pennington's TRS-80 Disk and 
Other Mysteries. Just to learn about re- 
storing killed files is well worth the price 
of a hundred books. I never thought that 
so much information could be stuffed into 
a book that size. Mr. Pennington turns 
Superzap from a thing used to put in Ap- 
parat zaps to a very useful utility. I have 
read the book from cover to cover and 



have learned many useful things. Mr. Pen- 
nington explains in English how to recover 
every type of file that I could dream of! His 
program Search has saved me many hours 
of work. I can now restore files as easily as 
I can kill them. I no longer have to remem- 
ber passwords because I can easily 
change them to whatever I want whenever 
I want. I now know how to speak binary, 
thanks to Mr. Pennington. 

Robert Smicinski 
Amsterdam, NY 



Shacl( Selling Bootleg 

I was surprised by the comments at- 
tributed to Mr. Ed Juge on page 58 of the 
June 1981 issue of 60 Microcomputing 
concerning protection of Radio Shack 
software. It surprised me because if 
anyone is guilty of giving away other com- 
pany's proprietary software without per- 
mission, it is surely Radio Shack. How 
often have Radio Shack dealers or com- 
puter stores given away bootleg copies of 
other companies' software to their cus- 
tomers? It would appear that Mr. Juge 
wants to apply a double standard to the 
computer community. Radio Shack soft- 
ware is sacred but that of other com- 
panies can be freely "used." 

If Radio Shack is going to abuse the 
rest of the industry by their own actions, 
then it is unreasonable for them to expect 
that they too should not share in such 
treatment. 

John Paul Kapp, president 

JK Consulting, Inc. 

Baton Rouge, LA 



Isolated Incidents 



/ would feel it was reasonable and prop- 
er for all authors to be able to protect their 
software from unauthorized copying. Mr. 
Kapp seems to assume that I am advocat- 
ing that only Radio Shack's software 
should be protected. 

WitH over 6,000 outlets in the United 
States, I'm sure there are several people in 
our employ who do not follow the rules. 
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1001 



333 pages 



META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 



HARK SIWUSCH 



S7.95 



333 pages, written in simple terms, of 
"what-to-do' and "how-to-do-it". Suitable 
not only tor microcomputers, but for pro- 
grammable calculators as well. Includes 
program listmgs. formulas, a glossary of 
computer terms and more' Definitely a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estiite Evaluatwn Test Your Typing Speed 
Finances & Investments 



Astrotcgy 
Income Tax 
Speed Reading 
Personality Test 
Statistical Analysis 
Logic Circuit Analysis 



Biorythm 
Energy Efficiency 
Antenna Design 
Letter Writing 
Recipe Index. Calculator 



Carpenter and Mechanics Helper 
General Purpose Clock Timer 



"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

Call now and place your order for ttiis new 
book, "THE CUSTOM TRS-SO^^ & OTHER 
MYSTERIES", from IJG. Inc. More than 
300 pages, with over 60 photographs, of 
projects for the hardware hobbyist In- 
cludes schematics, PC layouts, software 
driver code, etc for such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time clock calender, 
music synthesis, ROMRAM additions and 
more! 

THE CUSTOM TRS-SQtm S29 00 

CALL FOR AVAILABILITY 



MICROPARAPHERNAUA 

NEWDOS by APPARAT 

NEWDOS.80byApparat. . . . $149 95 

NEWDOS . to 

NEWDOS80 UPGRADE CALL 

NEWDOS- wtth ALL UTILITIES 

35-track $69,95 

40'track $79,95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES 519 95 
MICROSOFT'" BASIC DECODED $29.95 



Let your TRS-80 •' Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package. "INTRODUCTION 
TO TRS80 ASSEMBLY PROGRAMMING in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra 
tion & reinforcement, and a teKt book on f RS 80 
Assembly Language Programming Includes use 
tul routines to access keyboard, video, printer and 
ROM Requires 16K ■ Level II. Model I 

REMASSEM 1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80 '■ Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 



REMSOFT does it again' REMDISKl is a concise 
capsulated supplement to KEMASSEM-i Package 
consists of two 45-minute lessons on audio casset 
tes. and display programs providing illustration 
and reinforcement Provides specific track and 
sector 10 techniques, and sequential and random 
tile access methods and routines 

REMDISK 1 $29 95 



Let Your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 



by THE MICRO CLINIC 

A complete checkup tor your Model I. THE 
FLOPPY DOCTOR completely checks every sec- 
tor of 35 or 40 track disk drives Tests motor 
speed, head positioning, controller functions 
status bits and provides complete error logging 
THE MEMORY DIAGNOSTIC checks for proper 
write read refresh, piecutabihty and exclusivity 
of all address locations Includes both 
diagnostics and lomplete instruction manual 

SYSTEM DIAGNOSTICS $19.95 



An improved version of the SYSTEM 
DIAGNOSTICS above. Designed for single 
or double density. 35-, 40-, 77-. or 80- 
track disk drives. Includes new and 
modified tests Features THE FLOPPY 
DOCTOR, Version 3.0. 

SYSTEM DIAGN0STICS-V3, , $24.95 



Single Sided, Soft-Sectcrhd 5'j-inch 
(for TRSSQTM] Minifloppy 

DISKETTES 



$21 



95 

box of 10 



PLAIN JANE™ 

These are factory fresh, absolutely first 
quality (no seconds') mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapfied box. 

PLAIN JANE'M Diskettes S21.95 

10 boxes of 10 (each box)S2 1,50 

PLAIN JANB" r,r./r/ 

Introducing MTC s premium generic 
diskette Single Sided, Soft-Sectored, 
DOUBLE DENSITY. 5 .-inch diskettes with 
reintorcing HUB RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD' 
PLAIN JAINETM .'■„/,/ $25.95 

VERBATIMS PREMIUM DISKETTES 

DATALIFE 

Seven data-shielding improvemiints mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart. ANSI, ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 
5' 1 inch (box of 10) 

MD52501 $26.95 

10 boxes of 10 (each bo:)$25 95 

8-inch FLOPPIES 

Double Density, FD34-8000 543 95 



'RINGS' & 
THINGS 

HUB RING KIT for 5' /disks. . ..$10 95 

HUB RING KIT for 8' disks $12.95 

REFILLS(50 Hub Rings) $ 5.95 

CLEANING KIT for 5' .■ drives $24.95 

5' :i-inch diskette case $3,50 

8-inch diskette case $3.95 

5 1/4-inch File Box for 
50 diskettes $24.95 

8 inch File Box for 
50 diskettes $29.95 



TRS 80 IS a trademark ol the 

Radio Shack Division of T,?ray 

Corporation DATALIFE, is a 

trademark of VERBATIM PLAIN 

JANE AIDSI AIDS III CALCS III 

CALCS IV. MERGE III are 

trademarks o( MTC 
1981 bi MetatecMnologies 
Corporation. Int 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit Will be exchanged. 



PRICES IN EFFECT 

Sept. 1. 1981 THRU 

September 30, 1981, 

Prices Specifications. 

and Offerings subject to 

change without notice. 

8109 



WE ACCEPT 

• VISA 

• MASTFR CJHAHGF 

• CHECKS 

• MONEY ORDFRS 

• C C D 



• Add S3 00 lor shipping 
& handling 

■S3. 00 EXTRA fot COD, 

• Ohio residents add 5- 1 "i 
sates tai 
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S& INPUT 



Store managers are prohibited from carry- 
ing or even giving away non-Radio Shack 
software. 

This occasional breathing of the rules 
that we certainly try to control and elimi- 
nate Is all the more reason why software 
protection in the industry would be good 
for everyone. 

Ed Juge. director 

Computer Merchandising 

Tandy-Radio Shack 

Fort Worth. TX 

Heavens Tibetsy, is Kapp right... or 
Juge? How about it readers, have you 
come across freebies from Shackers, or is 
Kapp exaggerating. Tell me. . . Wayne 



Fix Needs a Fix 

Oops! Someone goofed in the 80 Input 
section (April, 1981, p. 14) in the letter enti- 
tled "Shack Statistical Fix." 

Actually the last statement in line 280 
of the Radio Shack Advanced Statistical 
Analysis (26-1705) program for the com- 
putation of Chi Square should read: CS = 
CS + {ABS(0(l,J) - E(I,J)) - CC)t2/E (l,J). 

Only two changes are necessary to the 
original program— the addition of ABS for 
the absolute value portion ot the compu- 
tation, and the addition of a parenthesis 
before the subtraction sign preceding CO 
in the formula. CC is Yates' 0.5 correction 
for continuity which is to be used when 
thedf = 1. 

Statistically speaidng, you should get it 
printed right this next time. 

Edith Cracchiolo 

Cerritos Community College District 

Nor walk. CA 



Model III Bugs 



I recently purchased a Model III 48K 
with one disl< drive after selling my Model 
I. Radio Shack did a good job of cleaning 
up many Model I problems. The hardware 
for the Model III is very impressive; the 
package is one of the best I have seen in 
the micro price range. The keyboard al- 
lows me to whiz along at 70 to 80 words 
per minute. The new disk controller allows 
a physical sector to be read or written 
much faster than on Model I. 

However, the people in the software de- 
partment merely rehashed TRSDOS 2.3 
and added a few more bugs and annoy- 
ances. I will list just a few: 

• You can't kill Basic/CMD since they 
didn't give you the password and there are 
three systems on the disk that aren't in 



the directory that are part of Basic. So as- 
suming you don't want Basic on a disk, 
lough luck (and 12 wasted grans). 

• The LOG function still does not work 
in Basic. There was one small patch to be 
made on Model I which they didn't make. 
To make it work on Model III, patch ad- 
dress 5E0CH from CD 75 60 to CD 27 5A 
and LOC(n) will now return the current rec- 
ord number for file n, 

• The concept of a logical record 
seems to be completely lost on Radio 
Shack, Basic now supports logical record 
lengths other than 256 (as did some Model 
I Basics), but every time you read or write a 
record TRSDOS reads or writes a sector, 
then does a block move. It you write one 
byte, TRSDOS has to write 256 because it 
doesn't know how to block records (TRS- 
DOS 2,3 does block records). 

The worst case is one byte logical 
records (stream I/O). Many programs like 
to think this way, for example Electric 
Pen. I wrote the following program with 
one byte logical records to test the prob- 
lem: 

10 OPEN-R'M.'TEMPM ' REMEMBER TO 

ANSWER IV TO How Many Files? 
20 FIELD 1,1 AS AS 
30 FOB N = 1 to 256 
dO LSET A$:^''A" 
50 PUT I.N 
60 NEXTN 
70 CLOSE 

it took 160 seconds— a baud rate of 
12.8. only 12.8 baud for disk!! I'm going 
back to tape. 

• Debug will not dump below 5600H, 
cannot be entered from Basic, has a 
worse display mode than Model I, and 
overlays all the programs it used to 
debug. For the first problem, zap the 
following addressed from 5600H to 
OOOOH; track 0, sector 10H, relative byte 
DDH, sector 11 H, RB 09H, sector 12H, RB 
73H. I have also put Debug in relocatable 
source form to solve the last problem. 
Anyone interested in doing this can write 
to me. 

• DOS overlaysallthe error messages 
every time it gets an error, then prints an 
obnoxious "* * ERROR xx " *". To cor- 
rect this, zap track 10H, sector 10H, RB 
2DH from 20H to 18H. You will now get a 
meaningful error message in the same 
amount of time as it took for "* * ERROR 
XX ' '". 

Despite some severe software goofs, I 
am satisfied with my Model III and 
believe it to be the best purchase on the 
micro market. 

Ervan Darnell 

Star Route 

Palmyra, MO 63461 



Where's Line 83? 



I was more interested in a workable key- 
word indexing and retrieval program (April 
1981 , page 252) than in a tiff over an unap- 
preciated but cute(?) title heading 
("WHERZIT"). 

Program Listing 1 (Lines 73,75,77,79) 
calls for branches to Line 81, which in turn 
calls for a branch to Line 83. What Line 
83? The following seemed to suffice for 
me and may help others who were miffed 
by the missing line(s): 

83IFQ = DTHEN N ^ N + S:GOTO 63 

84 IF 0$ = "C'' THEN BRN) = " "iGOTO 64 

85 GOTO 64 

Also, Clear 1 1500 (Line 1) caused an OM 
message on my Level II 16K. Clear 11000 
corrected that. 

Leslie J. Schnierer 

Institute for Consciousness and Music 

New Castle, DE 



Color Computer 
Disappointment 



I read with interest Wayne Green's edi- 
torial in the July issue, which dealt in part 
with the lack of response from your read- 
ers with Color Computers. I'd like to tell 
you of my experiences with the Color 
machine. 

In late April,! bought one of the first 16K 
enhanced machines to come into this part 
of Ontario. I can say, without reservation, 
that I was really, really disappointed in the 
machine. What t didn't like: big things like 
32 characters per line, that bloody flash- 
ing (or changing cursor), poor resolution 
on the TV screen (and I was using a good 
TV set). There was this sudden disappear- 
ance of 5-(-K of memory, dedicated to 
graphics (granted, it can be reclaimed). 

But most of all, it was the emphasis on 
graphics in the manual, to the chagrin of 
people like me who intend to use the ma- 
chine for engineering applications. 

I took the machine back under the 
30-day guarantee, and bought a 16K Level 
II Model I. Much to their credit, the local 
Computer Store manager advised me that 
the machine was going out of production, 
as did the salesman who sold it. I didn't 
care; the price was right ($100 more than 
16K color), it had a display, it had a cas- 
sette machine and it had the backup of all 
of the advertisers I saw in your magazine. I 
like it a lot. I'm doing engineering stuff 
related to my work on it, and I'm also 
writing a record index program for it, to 
help me in my preparations for an FM pro- 
gram. 



Continued on page 18 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



MTCAIDS- 



MODEL I . $69.95 MODEL II . $99,95 

Introducing ihe ^die^t dodiLon io MTC'ii laniily ot ddtct nidndtjetneiil sybie[ii>!. AIDS-IM NO 
PROGRAMMING, easy to use COMPLETE PACKAGE tncludmg demonstration application 
documentation and MAPS IN (see below) 

• Up to 20 USER DEFINED FIELDS of either numeric- of character-type 

• CHARACTER type fields may be any length (total up to 254 characters) 

• NUMERIC-fype lields feature automatic formatting, rounding, decimal ahgnment and 
validation 

• Full feature EDITING wlien adding or ctiangmg records: 

ENTER Field ican'l type i'^ mce characters than ipecidedi 

BACKSPACE (delete last chafacter typedi RIGHT JUSTIFY FIELD contents 

DELFTE FIELD contents - SKIP FIELD no next or previous fields 

RtSTORE FIELD contents - SKIP RFCORD (to ne*t or previous record; 

• SORTING of records is MACHINE CODE assisted. 

200 RECORDS (40 characters^ in about 6 SECONDS 

- ANY COMRiNATiON o' fields uncluding numerics) with each field m ascending or 

desrendmi. 'jrder 

• SELECTION of recorob fo' Loaamt Updating, Deleting. Printing and Sav ng is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL oOMPAUISONS 

LOAD ot SAVE selected records using MUtTiPLE FILES 

Example Select records representing ttiose people who live in the state ot Col 

otado, but not in the city of Denver, whose last names begin with "F" 

and whose incomes exceed $9000.00. 

- Example Select records representing th.i^e sales made to XYZ COMPANY that 

exceed $25 00, between the dd'.es 03 15 and 04 10 

MAPS-lli (MTC AIDS PRINT SUBSYSTEM), included at no charge, has tfie following features 

• Full AIDS III SELECTION capabilities. 

• Prints user. specified deids DOWN THE PAGE 

• Prints user-specified fields tn titled columnar REPORT FORMAT, automatically 
generating column headings, pagmg and (optionally) indentation 

• Can created single report from MULTIPLE FILES. 

• Prints userdefined formats for CUSIOM LABELS, custom forms, etc 

BELOW ARE TESTIMONIALS from owners of AIDS systems These are absolutely authentic 
statements aid are typical o* the comments we receive 

"This program will do more tor my business than all the other programs I 
have, combined." 

David Waieham Vice President (EDPi, National Hospital and Health Care Services inc 

"We have 32 different Data Base Management packages for the TRS-80, AIDS-MI is easily 

the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." , , r> , n . .-,-. .. 

jdck B:lin3Mi. Pres dent 80 M.coi.o'TLJirer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly " 

Frank Boehm Director. Front Door Residential Treatment Program 



I 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 

MTC CALCSIV^Mhat is. 

■ More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTCCALCS-IVTM $39.95 

For Model II $59.95 

CALL FOR CALCSIII 
UPGRADE PRICING 



MTC AIDS MERGE-III™ 

This subsystem will combine up to 14 AIDS- 
created data files into a single, large tile. An op- 
tional purge capability removes duplicate entries 
while pertor'Tiing ttie nierf;e operation (can even 
be used to eliminate duplicates in a single file). 
Machine code assisted (or higti-speed perfor- 
mance MERGE IIITM pfoperly tiandles tiles sorted 
by any combination of fields, including numerics, 
with each field in ascending or descendint; order. 

MTC AIDS MFRGF lll"^ $19.95 

For Model II S29.95 



THE COMPLETE 

MTC AIDS- 
PACKAGE 




TTVI 



MTC AIDS CALCULATION SUBSYSTEM-MI 

MODEL I . . .$24.95 MODEL II . . .$39.95 



MTCs most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are. 

• User specified page title 

■ Columnar Headings 

■ Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 



Columnar subtotals generated when 

there is a change in a user -specified 

column 

User-specified Columnar Totals 

Columnar values computed using con 

stants and or column values 

Balance forward calculations (Ei Gross 

sales equals previous gross sales + sale 

amount ■<■ sales tax). 



systems. 
Compare AIDS-IH"'/CALCS-IU " with any other data management package under 5100 

CALCSIII " REQUIRES THE PURCHASE OF AIDS-MI 



SAVE $$$$ 

Includes MTC AIDS-lir 
CALCS-IH-'and MERGE-lii™ 

A comprehensive system 
at a competitive price! 

MODEL! . $99.95 
MODEL II $149.95 



MORE 

PRODUCTS 



TRS-BO IS a trademdrk ol the 

Radio Shack Division ot Tdnuy 

Corporation DATAL IF£ is a 

trademark ot VERBATIM PLAIN 

JANE AIDS I AIDS III CAICS-III. 

CALCS IV MtRGt III are 

trademarks o' MTC 

1981 Or Metatechnologies 

Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged 



PRICES IN EFFECT 
Sept 1. 1981 THRU 
September 30, 1981. 

Prices, Specifications, 
and Offerings sub|e<:t to 
change without notice. 
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WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHFCKS 

. MO\LV ORDERS 
. ( D 



•Add S3 00 tor shipping 

4 handling 

'S3.00 EXTRA for CO. D 
■Otiio residents add 5'.^% 

iaies tax 



S?? INPUT 
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Connecting Printers 
Without Expansion 



1 am just getting into computers and 
1 own a TRS-80 Level II. I would lii<:e to 
connect an Epson MX-80 printer to my 
computer, but I do not have an expan- 
sion unit thus far, I would like to know 
if there is any way of connecting it to 
the keyboard unit without the expan- 
sion unit. I have called around and 
some places say yes and some say no. 
Could you please let me know it it can 
and how to do il. or if there is a com- 
pany that I can get in touch with. 

David D. Johnson 

23720 Mary 

Taylor. Ml 48180 

Supervisor Calls 

Do you know where I might find in- 
formation on running supervisor calls 
for my Ivlodel II 64K TRSDOS micro? 
Specifically the sorl for release 2.0. 

Darnell Lepre 

2821 Lawnwood Drive 

Ocean Springs, MS 39564 

Using Scripsit 

This is in reference to the letter from 
Petralia, Neild & Webb in 80 Aid (Ivlay 
1981) that stated they have a Daisy 
Wheel II printer that has special char- 
acters (such as section and paragraph 
signs} that are not accessible through 
their Model II Scripsit program. 

There are two ways to fix this prob- 
lem: 

Bool up Scripsit disl<, type in date 
and press Enter, When time question 
appears, press hold, then press Enter. 
You will be in TRSDOS. Now type the 
following and press Enter: 

PATCH SCRIPSIT A = BE4F 
F = A3A5C = COAF 

This will replace the British pound 
sign with a section sign and the micro 
sign with a paragraph sign. (Please see 
Scripsit Reference Manual, p. 52 for 
the table of 10 special characters.) 



Now the section sign can be ob- 
tained by typing CTRL 6, CTRL 9.6 and 
the paragrah sign by typing CTRL 6, 
CTRL 9,7, 

The second method is to Superzap 
tor Model II. 

On the Scripsit disk on track 15 
(OFH), sector 10 (OAH) you will see 10 
bytes at location C6H that correspond 
to the 10 special characters in the 
table on p. 52 in the reference manual. 
The existing characters are 5E, 60, 7E, 
A7, BE, 9C, A3, A5, A6 and BF. 

Any of these can be changed to any 
of the codes available on the Daisy 
Wheel II as shown in the Printer 
Owner's Manual on page 22. 

In the patch overleaf, I chose to re- 
place the British pound sign and the 
micro sign with the section ad and 
paragraph signs as requested by 
Petralia, Neild & Webb. 

Sayyed A. Bashir 
Fort Worth. TX 



Phantom Records 

As you may well know, the TRS-80 
Model III differs slightly from the 
Model I for which most of the listings in 
ao Microcomputing are written. 

Having only a cassette-based Model 
III. 32K, I was delighted with the pro- 
spect of using the Sans Disk program 
(from the April issue) until disk drives 
are affordable. Much to my dismay, the 
re-packing function of the Sans Disk 
program will not execute on my Model 
III, leaving instead a numbered record 
with the first field name and equal sign 
followed by blanks! This phantom 
record is impossible to delete. At- 
tempting to delete a record appears to 
work until the select function is ex- 
ecuted. When the phantom record ap- 
pears saveing to tape will not re-pack 
the file as I hoped it would, 

I have written to the author of the 
program who is not familiar with the 
Model Ml. He was quite helpful pro- 
viding other fixes to Sans Disk but 
couldn't give me any help on the mal- 
functioning delete command. I have 
carefully checked and re-checked the 



sting and must assume that the sub- 
tle differences of the Model III are to 
blame. 

If anyone has corrected the program 
to run on the Model III, I'd sincerely ap- 
preciate hearing from them. I don't yet 
know enough about TRS-80 Basic or 
machine language to tackle the prob- 
lem myself. 

Co//n Alexander 

120 28th St. 

San Francisco. CA 94131 

A Fix and a Question 

I've solved the problem mentioned 
by Joe Brandiner on page 24 of the 
April, 1981, 80. The answer is to scrap 
the existing initialization routine and 
use a simpler one. This routine is modi- 
fied from Dennis Kitsz's KBEEP pro- 
gram. 

aRG7DCl .CtiatigetoBDCl 

(o^ 32K. FDCl lor 48 
7DC1 Z1FC?D LD HL,7DFCH . ULC8AS keyboaiO 

dtiver. change to 

BOor FD 
7DC4 221640 LD i4016H), HL , Driver adOress 

location 
7DC7 31527F LD HL,7F52H , ULCBAS video 

driver, change lo BF 

or FF 
7DCA221E40 LDI401EH), HL 
7DCD C37200 JP0072H ; Change to C3191A 

for new Level II 

ROM 
;DD0 : Stan of ULCBAS 

mam body 

Load ULCBAS in the normal man- 
ner, using the POKEs in the green 
sheet that came with your lowercase 
kit. When you get back to Ready after 
activating ULCBAS, load T-Bug or an- 
other monitor that doesn't load above 
7D00. Use the monitor to enter the rou- 
tine above, changing the addresses if 
necessary. Then punch a tape of both 
routines, with the entry point at the 
start of this patch. 

If you don't use any other routines, 
the memory size is 32192 for 16K, 
48576 for 32K or 64960 for 48K. Joe's 
printer routine should be loaded 575 
bytes lower than normal, changing the 
size accordingly. Just answer the 

Continuod on page 18 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289 7500 (COLLECT) 



TAKE YOUR 

MODEL II TO 

NEW HEIGHTS 



T 




ifxr^ 



MTC is proud to announce MTC EXTENDED 
BASIC lor the Model II. by R, Ryen. Features in- 
clude "fixes" to eiisting BASIC, multi-hne func- 
tions, extending an existing sequential file, PEEK, 
POKE, greatly entianced screen control and ex- 
panded editing capabilities. The contents of 
variables are NOT CHANGED wfien editing, delet- 
ing, inserting or merging lines, allowing continued 
program execution! All this and much more. 

MTC EXTENDED BASIC 5 99.95 



MICROPA RA PHERNA LI A 

DISKETTES (box of ten) 

5%" PLAIN JANETM $21.95 

5'/." PLAIN JANE™ '-0^./^/ 525,95 

5'//' DATALIFE^ MD 525-01 . . S26.95 
8" DATALIFETM FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat S149.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69 95 

40-track $79.95 

BOOKS 

TRS 80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFTM BASIC DECODED $29,95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER , . , . $ 7.95 



80-20=12995 

THE ORIGINAL NEWDOS/80 

WITH MTC QUE CARD 

• SPECIAL PRICE ^ 
SAVE $20 $129.95 

Apparat's long-awaited successor to NEWDOS -f is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives. 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3,0, etc) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!}. Includes 18Q-page instruction manual and MTC QUE card, 

NEWDOS/80 # SPECIAL # $129.95 

MTC QUE Card only $ 7.50 

CALL REGARDING OUR NEWDOS -(- UPGRADE PRICING 

MODEL III VERSION 
Has all the features of the Model I version plus entiancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model 1 will run without modification. Includes a 
utility for converting Model 1 single density to Model 111 double density. 

NEWDOS/80 for Model 111 $149.95 

CALL FOR AVAILABILITY 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



Model 



for 
and Model III 



An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features o1 Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL 1 OR III 

Disk Version S79.95 

Tape Version $69,95 

CALL FOR AVAILABILITY 



$69 



95 



by Apparat 



Includes REF, RENUM. SUPERZAP, 
EDITOR.'ASSEM,, DISASSEM., DIRCHECK, and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 



40-Track Version . . . 
MTC QUE Card only 



, $79.95 
S 1.50 



TRS-80 IS 3 trademarh ot the 

Radio Shack Division ol Tandy 

Corporalion DATALIFE is a 

trademark ol VERBATIM PLAIN 

JANE, AIDSI AIDSIII CALCSIII 

CALCSIV MERGE-IN are 

trademarks ot MTC 

■! 1981 by Metatechnologies 

Corporation, Inc. 



MOST ORDERS 

SHIPPED WflTHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



i 



PRICES IN EFFECT 
Sept. 1, 1981 THRU 
September 30, 1981, 
Prices, Specifications, 
and Offerings subject to 
change without notice 
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WE ACCEPT 

• VISA , 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 
•COD 



k 



• Add 53.00 for s*iipping 
S handling 

•I3 00EXTRAforC.O,D. 

• Ohio residents add 5';^ 
sales tax. 



^0 INPUT 



go DEBUg 



Super Debug 



"Supermaze" {June 1981, page 160), 
on lines 430, 550 and 560, the IF state- 
ments are apparently written in the old 
Level I format with ANDs as *s and 
ORs as + s. Change line 430 to: 

d301F (X + (E-Yt = A(100))AND D = 4) OR 
(X + (E* Y) - A(101 ) and D = 2) THEN 500 

and change the others in the same 
manner. 

Narciso Jaramillo III 
198 Belmont Ave. 
RIaltO, CA 92376 



Missing Line 



Program Listing 1 of my article in the 
April issue {page 259) omits line 83. 
Line 83 should read: 

83 N = N + S:G0T063 

Several readers have been kind 
enough to point this out to me. 

James H. Fox 

14601 55th St. South 

Alton, MN 55001 



Memory Bugs 



I have found several misprints in my 
article "Memories are Made of This" 
published in the May edition. The cor- 
rections follow. 

Note that If memory above location 
32767 is to be tested, L in the programs 
will need to be equated to ' - 1 • {65536 
- desired location to be tested). See 
the Level II Basic Reference Manual for 
more information about this. 

One more error was found in the 
RAMTST source code listing at line 
number 320. The Op-code should have 
been 13 and not 35 as was printed. 

Robert D. Randall 
841 South 50th St. 
Uncoln, NB 68510 



ICLSilNPUT'STARTING ADDRESS (XXXXXDr;S:INPUr'ENDING ADDRESS (XXXXXDr;E 

5D = 255:FOR L = S TO E:POKE L,D:IF PEEK{LK>D THEN 15 ELSE NEXT L 

10 PRINfTEST COMPLETED, NO ERRORS". STOP 

15 PRINT L;" SHOULDVE BEEN 255, BUT IT CONTAINS";PEEK(L):ST0P 

Program Listing 1. 

1 CLS:INPUT'ENTER RAM ADDRESS(XXXXXD)-; L ;D = 1 

5 POKE L,0:IF PEEK(LK>0 THEN PRINT"BYTE":L;" WONT CLEAR TO ZERO, IT CONTAINS": 

PEEKlD.STOP 

10 FORX= 1 TO a:POKE L,D:tF PEEK(L)<>D THEN 20 

15D = D.2;IFD>ia8THEN PRINT'TEST COMPLETED, NO ERRORS'iSTOP 

17 NEXTX 

20 PRINT'ERROR AT",L. ■ SHOULD'VE CONTAINED'iD;'- BUT IT CONTAINED";PeEK(L); 

"INST£AD':ST0P 



Program Listing 3 



Color Correction 



We published a scrambled program listing in the June issue 
("The Color Computer— An Inside Look," p.202). The program 
that should have appeared in Listing 1 follows: 



1 REM ntriDRr rL€\ RGurif-ii; 

2 REM RODERT T. NICMGLftG 

3 REn 7/23/ao 

4 REH 
10 CL3 

H$="01234567a9AE;CriE:F" 

FaRK-no4:REr=iriH( x ■:Nt?;T 

DATA 1 .16>256t40?6 

PRINT" THIS rROGRAM LODKG 

PF:INT"CDHrUTER'G MEMnRY AND 

rF;INT"THE rai LOWING INFORfIA 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

HE$-"[i": 

ACE UITH 

10 

IPLEFTI.': LNS.l )<:^"H" THENLN-VAL( 

lGHr$f LN$.LEN': LNt J- 1 ) 

112 LN-O'.LE-LEN^ LN$ KFORX-ITQLE 

113 L$-MIDS<LNS,LE + 1-X.l 1 

114 F0Ri:=UTai5:iFMIDt! HtrZ+ljl ) = LtTHEN116 

115 NEXTtGOTOlOO 

116 ln-ln+z*h; X ) 

117 NExrx 

lia HEt-"H" 

120 IFLN;655J5THENCLS:GOT0110 



12 

15 

17 

20 

30 

40 

50 

60 

30 

70 

95 

100 

110 



111 



AT YOUR" 
RETURNS 

ion: 



MEMORY LOCATION 
yALUE THERE 
CHRt( THERE ) 
(VALUES IN DECIMAL OR HEX)" 

INrUT"GTARTING ADDRESS t PREF 

'H' IF IN HEX )";LN$:iFLfn-""THENCLS:GDTQl 

N$ ':GUT0120ELSELN$-R 



Continued on page 19 
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DATA RESOURCES CORP 

QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM 
TO ORDER CALL TOLL FREE 800-525-7958 



BIONIC BASIC 
The BIONIC BASIC routines 'mplement a numberof 
usetul commands and functions that are not available 
in regular BASIC. BIONIC BASIC appends these 
routines to the BASIC/CWD file so that they load 
automatically every time Disk BASIC is entered. The 
BIONIC BASIC modu.es will not reciuire reserved 
memory, they are resident in memorywhen ever Disk 
BASIC is being used 

RESTORE data statements for reuse indivdually 
MOVE a block ot data in memory from place to place 
SHIFT a string to all upper or lower case 
FLASH wilt turn a flashing cursor ON or OFF 
REPEAT tunction of the keyboard ON or OFF, 
LOAD a BASIC program without losing variables. 
GOSUB statements execute at computed lines 
SEARCH a program for occurrences of a string. 
LINES of a program can be moved to new locations. 
COMPRESS spaces, remarks from a program. 
SORT any array in ascending or descending order. 
REDIMenslon any array or list of arrays. 
LOOKUP occijrrences withm arrays of special data. 

STARTER PACKAGE $49.95 

COMPLETE BIONIC BASIC $74.95 



NEWDOS/80 Version 2.0 

for MODEL I and III $149.00 

The hottest Disk Operating System is now available 
in its latest version. This is the ONE from Apparat. 
Inc., the people whose systems have made the TRS- 
80 a reliable computer. This system includes: 

• Double Density support on the Model I 

• New Superzap with expanded capabilities 

• Diskelte compatibility betweeen Model I and III 

• Repeat Key and Repeat DOS 'Command' functions 

• Single step execution for BASIC programs 

• Enhanced Chaining with many new features 

• Merging BASIC program overlays while running 

• Disassembler dump of source code to disk files 

• The famous NEWDOS/80 Utilities and Superzap 

• New manual with examples and user explanations 

MODEL I DOUBLE DENSITY PACKAGE 

NEWDOS/80 Version 2,0 and the LNDOUBLER 

Everything you need to conve'1ycL.r"RS-80 Model I 
to run double density. Complete with software, hard- 
ware, and instructions, — Installs in minutes with NO 
SOLDERING. WIRING OR CUTTING ...S229.95 
LNDOUBLER Alone $149.95 



MTC AIDS-lll 

The best of Meta Technologies family of data man- 
agement systems. This easy to use system al.ows 
even a novice TRS-80 user to C'-E?a!e data files 
custom configured for many applications, from lists 
tor mailing and cataloging to financial reporting and 
time scheduling. Easy to customize without pro- 
gramming, it IS complete with features for adding, 
deleting, sorting, updating and printing. The flexibi,- 
jty will make it one of your most useful software 
purchases Included FREE is the MTC Aids Print Sub- 
system (MAPS), a powerful report generator. 

MODEL I $69.95 

MODEL II $99.95 



MTC MERGE-III 

Combines up to 14 AIDS data tiles into a single file. 
Duplicates may optionally be purged, and sorted 
order ot records is maintained. Machine code for 
speed makes this useful if large data files are to be 
created from smaller ones. 

Model I $19.95 

Model II $29,95 

MTC CALCS III 

Handles numeric calculation of data contained in 
AIDS files, ideal for reports on financial applications. 
Data from more than one file may be analyzed 

Model I $24.95 

Model II $39.95 



THE MICRO CLINIC DIAGNOSTICS 

Compute'" "professionals" have lo'igknown 
the importance of regular use ot diagnostic 
software in verifying the integrity ot com- 
puter hardware The TRS-80 IS no exception, 
good diagnost.es are a must in any situation 
where valuable data files ai^e mai^'lained 
The MICRO CLINIC oHers two programs 
designed to thoroughly check out the two 
most trouble prone section of the TRS-80 - 
the disk system (controller and drn.'esl and 
the memory ar-'ays 

The FLOPPY DISK DIAGNOSTIC s the 

most complete diagnostic program available 
tor the TRS-80 disk system, and could be 
the most important program in your soft- 
ware library. This prog''am provides a posi- 
tive means for thoroughly checking out the 
disk controller circuits and disk drives. In- 
cluded IS a test of the accuracy of the drive 
motor speed aHowmg adjustment. From 
one to four drives can be tested at the same 
time, 35,40, 77 or 80 tracks, single or double 
density with the LNDOUBLER or PE ROOM 
DOUBLER, 

The MEMORY DIAGNOSTIC is broken down 
into two basic tests, the conventional write/ 
read test and the M-1 Worm test. The 
WRITE/READ TEST portion ot the diag- 
nostic perfo'ms a comprehensive check on 
the ability ot each memory location to store 
and retain data The M-1 WORM TEST is 
the most critical in 'egard to memory liming"- 
and "worms" its way through memory. 

MODEL i $24.95 

MODEL III $29.95 



DATA RESOURCES SPECIAL AIDS - III SUPER SYSTEM 

AIDS - III + CALCS - 111 + MERGE - 111 

SAVE • ' buy all ifiree at one low price 

Model 1 S99.95 Model! I S1 49.95 



DISKETTES 

Soft-Sectored 5V4" 40 Track Double density 
Replacement GUARANTEED for 1 year 

We w'll replace at to cnarge ANv diskette returned '.o uS 

VERBATIM DATA LIFE S 23.95 

GENERIC in a plastic box $ 21.95 

Box of 1 00 $200.00 



THE MICRO ACCOUNTING SYSTEM 

This is the 'inest accounting system avail- 
able for your TRS-80. Ideal *or small business, 
this Integrated General Ledger. Accounts 
Receiveable. Payable System includes a 
Checkbook manager 

We offer something no other general 
business package can give you -a money 
back guarantee. It you are not totally 
satisfied return the package within 60 
days and receive a full refund. Write for 
sample reports and full descriptions 
MAS/80 complete $489.00 



FLIPSORT 

The DISKLTTE FILE BOX 

that stores more than 50 diskettes 

dust free and protected 

5V4 519,95 8' $24.95 

purchase a 574 FLIPSORT with 50 GENERIC disks 
SPECIAL DISCOUNT PRICE S1 19.95 




MASTERCARD 

AND VISA 

WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



t 



Data Resources Corp. 



ALL SOFTWARE SUPPLIED ON DISKETTE. ORDERS IN U.SA. 
SHIPPED U.P.S. FREE. Colorado residents add 6y2% sales tax. 

ATTN: DEALERS - We offer attractive pricing and term to 
small computer retailers. Write for information on our 
dealer program and discounts in small quantities. 



Business & Professional Center 

8000 East Ouincy Ave. 

Denver, Colorado 80237 (303| 773-6665 



AIDS 



'1981 DATA RESOURCES CORP 
TRS-80' IS A TRADEMARK OF TANDY CORP 
Pncesin effect Sept. 1. 1981 to Sept 3D, '98' ar-tl subject ■□ Lha'>gtJS 
CALCS 111,' MERGE 111 ■ ARE TRADEMARKS OF MfcTATECHNOL OGlES 
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80 Microcomputing, September 1i 



17 



SOnmir 



Continued trom page 12. 

If you could take a survey, 1 think you 
might find that the majority of TRS-80Cs 
In the field are being used for game play- 
ing, probably with ROM-paks, and for this, 
they are very fast and very well adapted. 
Maybe that's why you're not getting feed- 
back from the readers. 

Bruce Dingwall 

Mississauga, Ontario 

Canada 

Music Made Easy 

The article "The Color Computer— An 
Inside Look" was certainly a boon to all 
Color Computer owners who, as I am, are 
going through the "almost no software" 
syndrome at this early stage in the ma- 
chine's life. 

Those few CC owners with whom I have 
talked await this sort of article, because it 
gives them something with which to play. 
Needless to say, Messrs. Martel and 
Nicholas gave many of us hours of enjoy- 
ment. 

In particular, the "Music-Music-Music" 
program was great. However, It does not 
address the problem of the programmer 
who wants music within another program. 
Considering the overhead required to run 



"Muslc-Music-Music," It doesn't make 
sense to include It as a part of another 
program. 

The answer is to try something else— a 
program that converts the notation in 
"Music-Music-Music" to sound com- 
mands, and then the writing of a simple 
subroutine to play the music. 

To make this all work, simply load 
"Music-Music-Music" and enter the notes 
as instructed. Then, save the notes to tape 
using the program. 

The next step is to add listing 1: 

F0RX=1T0N 

PRINT#-2, N(P(X)J,D{X) 
NEXT 

You can assign any line numbers you 
want above 5030. Next, load the notes 
back into the Color Computer using the 
"Music-Music-MusIc" program. Enter GO- 
TOnnnn, where nnnn is the line number of 
the short program in listing 1. 

Your printer will then print out two col- 
umns of numbers, the first being the note 
number, the second the duration of the 
note. Finally, to make the notes run in a 
program, use the format below and you 
will have music imbedded in your pro- 
gram. The example given might be for mu- 
sic in a horse race program. Run it and 
you'll see what I mean. 



10 FOB X = 1 TO 750 

20 READ A,B 

30 IF A = -1 THEN END 

40IFA = 0THENFORPU = 1 T0B*15:NEXT: 

GOSUB200 :GOTO60 
50 SOUND A,B 
60 NEXT 
200 CLS:RETURN 
500 DATA 170,4, 170,8,170^1 47^,1^,4.170,4,176,6, 

170,2.176,4,193,4,185,8,0,8, - 1,0 

Line 30 tests for the end of the music. 
Your last item pair in the data list should 
be"- 1,0". Line 40 takes care of the rests. 
Using Sound does not allow use of rests, 
as does Extended Color Basic's Play. 

Larwence C. Fa/A 
Prospect, KY 

T-Bug for Model III 

I have a TRS-80 Model III and have 
wanted to program It in machine lan- 
guage. Radio Shack does not supply any 
software to aid me in doing this— until 
now that is. t have come up with patches 
for Radio Shack's T-Bug and Editor/As- 
sembler so that they will work on the 
Model III. I was aided by a friend who has a 
Model I TRS-80 and supplied me with a 
copy of ZBug. 

T-Bug can be used to patch itself. As it 
comes cassette I/O does not work. The fol- 



SOmd 



Continued tmm page 14. 

memory size question with the proper 
value and load the new driver. 

While we're on the subject, does 
anyone have a schematic of the 
26-1104 lowercase modification? 1 long 
ago gave up trying to trace the new wir- 
ing. 

Ed Ellers 
3000 Beaumont Rd. 
Louisville, KY 40205 



Sound Program 



I own a 16K Level II TRS-80, and I'm 
tired of seeing sound programs for as- 
sembly language users. Non-assembly 
language and non-disk users can have 
sound too! Try this program; 

10 CLS : PRINT "PUSH ANY KEY FOR SOUND" 
20)5= INKEY$:IF1$ = ■*" THEN 20 ELSE 30 
30 FOR T = 1 TO 120 : OUT 255,0 ; OUT 255,1 
40 OUT 255,3 : OUT 255,4 : NEXT T : GOTO 10 



I use this sound as a subroutine in 
many of my games. 

I'm also tired of my friends who push 
the Break key and list my programs. So 
t hit them with this surprise: 

10 POKE 16396. 23 

The above line can be placed any- 
where in a program. If you want your 
Break back try: 

10 POKE 16396, 22. 

Randy Long 

4791 Torida Way 

Yorba Linda, CA 92686 

BBouncce Aidde 

Regarding keyboard bounce there is 
a permanent cure without using soft- 
ware such as KBFIX. You must care- 
fully remove all of the keys from their 
electrical contacts on the keyboard (I 
used paper clips bent into the shape of 



hooks). Then spray each contact with a 
small amount of WD-40. This method 
appears to be effective and safe. 

James E. Richey, M.D. 
Johnstown. PA 



POKE 16445 

Both in Benjamin Junge's letter in 
"80 inputs" and in Ian R. Sinclair's Into 
the dO's there is mention of POKEing 
16445 with eight to get 32CPL and to 
get 64CPL. When I tried to incorporate 
that idea into titles using "PRINT @" 
statements instead of "PRINT TAB 
(X)" as Mr. Sinclair does, I get an 
automatic64CPLduring execution of a 
loop. Why? 

James L Palmer 
Rt. 1 Box 153 

Bybee, TN 37713 
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lowing patches will fix this problem. 



location 


previous hex 


new hex 


47C5 


2100FB18 


CD F801C9 


47CA 


21 


C9 


4643 


CD CA 47 CD 62 


CD 9602 00 00 




47 FE A5 20 F9 


00 00 00 00 00 


4782 


C5 06 08 CD 


CD 35 02 C9 


46EF 


CD8C47 


00 00 00 


46F8 


CD 8C 47 


CD 8702 


478C 


09 OE 08 57 


CD 64 02 C9 



The patches are basically calls to the 
ROM routines. The new T-Bug can be 
punched out with the P command. Just 



enter P 4380 4824 43AO T-Bug. Low or high 
cassette baud rate can be selected by first 
changing location 4211 to zero or one as 
documented in theTRS-80 Model III manu- 
al. 

The Editor/Assembler can be patched 
by T-Bug relocated to high memory or by 
first moving the Editor/Assembler to high 
memory. I took the second approach. Set 
memory size to 25856 (6500H). Key a block 
move program using T-Bug at location 
32590 (7F50H). 



SO DEBUg 



Continued from page 16. 

200 CL3 

210 PRINT" AFTER READING WHAT IS DIS- 

220 fRINT"PLArEIi ON THE SCREEN* PRESS 
230 PRINT" 1"H£ 'T KEY TO SCROLL FDRUARD" 
232 PRINl'-OR THE ' -' KEY TO SCROLL BfiCK- 
234 PRINT"UfiRLiS." 

H' TO CHANGE TO HE^ 



OR ' D' TO 3UI 



236 PRINT" PRESS 

TCH TQ tiEillMAL." 
240 PRINT 
242 PRLNT" TO CHANGE START ADDRESS t " IPRINT" PRESS 'CLE 

ftR' ." 
250 PRiNi!Li4837 "/'REr/j ' ;■ TO r'ROCEED."; 
260 GOSUS^OOO 
1000 CL£ 
1010 P=LN 

1012 roRPi=s)roi 

1014 rQkP^-.;TCl5 
1016 G=PH6*:'lfP2 

loia IF-Qubi3:j iHCN i'j':-''0 

1019 rRINT(ir-':*l6rP2t:,32r""; :irHEt^"H"THEN.J = Q:GOSUS300 0EL 
SEPRINiLJi 

1021 PRINT@PlS16i7i-P2*32-""; 

1022 X = PEEK(Q) 

1024 IFHEt-"H" THENJ=^X:GQSU£t3050EL3EPRINTX; 

1029 PftINTSPl*16rl2ir-2*32'"" 5 

1030 IFX>32THENPRINrCHRt'. X )i 
1050 NEXTP2»P1 

1090 GQSUB2000;CLS 

1100 IFINt = ";"THErJP^rV32:G0TQllS'J 

1105 IFIN*="H"aRINt^"D" THEN1150 . 

1120 IFIN$="-"THENP=P-52EL3ECLS:GOT0110 

1150 ifp<o then p=o 

1160 IFP>65535THENP=65525 

1170 GDT01012 

1200 END 

2000 REM PAUSE ROUTINE 

2010 IN»="" 

2020 IN?=INKEYt:iFIN*=""THEN2020 

2022 IFIN$ = "H"THENHEt = "H" '.RETURN 

2023 IFINI = "Ii" THENHE$ = "D" tRETURN 
2025 IFASC( INt ) = 12 THENCL3 IGOTOllO 

2030 iriN$=^" ;"ORIN$="-"THENRETURNELSE2010 

3000 A=INT( J/40?i ) 

3010 GOSUB3500 

3020 J = .J-40?i*A 

Continued on page 20 



Block move program 

01 46 1A LD BC, 1A46 

1 1 00 65 LD DE, 6500 

2100 43 LDHL, 4300 

ED BO LD IR 

C3191A JP1A19 



lengm of program 
lo address 
trom address 
move 
; jump to Basic ready 



Load the Editor/Assembler but don't ex- 
ecute it. Instead enter /32590. This will 
move the editor/assembler from 4300H to 
6500H. Load T-Bug and enter the follow- 
ing patches: 

location previous hex new hex 



667A 


40 


60 


6537 


E5 21 00 FB 


CD F801C9 


653D 


E5 


C9 


655D 


C5 E5 06 08 


CD 35 02 09 


6589 


E5 C5 D5 F5 


CD 64 02 09 


65A9 


CD 3D 43 06 


CD 87 02 C9 


65B8 


E5 CD 3D 43 


CD 96 02 09 


6818 


05 46 


49 00 keyboard I/O 


6859 


05 46 


2B00 keyboard I/O 


6959 


0A46 


3300 Display I/O 


6555 


OF 46 


3B00 Printer I/O 


6928 




C3 8D 43 


658 D 




FE 43 2006 
"C" Command 
Patches 

CD 42 30 C3 
DA 46 21 A2 
47 C3 2B 47 



All the locations are for the relocated 
program. If you are using a monitor rou- 
tine in high memory only the MSB changes. 
Location 6500H is 4300H, and so on. If the 
program were now punched it would be re- 
loaded back into low memory. At location 
7F50 key in the following block move pro- 
gram: 



01 46 1A 


LD BC, 1A4B 


; length 


11 00 43 


DE. 4300 


; 10 address 


2100 65 


HL, 6500 


; from address 


ED BO 


LDIR 




C3aA46 


JP468A 


; Jump lo Edilor; 
Assembler 



Now punch the assembler using the 
T-Bug command P 6500 7F5F 7F50 
EDTASM. The patches basically replace 
all of the I/O routines with the ROM rou- 
tines. Since I don't have a printer the print- 
er patch is untested. I added one new 
command to the assembler. When "C" En- 
ter is typed the cassette baud rate prompt 
routine is called. Your program's source 
can be loaded or written at low or high 
cassette rates. However, low baud rate 
must be used for the object code (systems 
tape) produced by the assembler. 

One additional note. ZBug (January, 
1981, 80 Microcomputing) is a great pro- 
gram. For Model III users I would suggest 
one change. On listing 1, line 70 change 
the instruction from "SUB 30" to "SUB 
3C." The Model III has ROM routines that 
extend above 3000H. 

Harold Zbiegien 
Maple Hts., OH 
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DeBug for Fast Clock 

Thanks to Allan J. Domuret for his 
modifications to run DOS at a higher CPU 
speed ("Fast Clock DOS," April, 1981). As 
a user of NEWDOS I was quite pleased 
with the workings of the given patches. 

Unfortunately Allan used a RAM area 
for his second SYSO/SYS patch that inter- 
feres with Debug usage. Since I am using 
Debug quite a lot, I had to find another 
hole in the operating system where I could 
place his patch. And— Eureka— I found 
one. 

There is a seven-byte wide hole in disk 
memory starting at 4479H that exactly fits 
the patch. Using it I now have both the fast 
clock speed (by the way 3.54 MHz) and 
Debug in my system. 

Make the following changes to 
SYSO/SYS (NEWDOS only): 

0008A9— change to cead C3 A2 46 E3 E3 E3E3 3A... 

000952— change C3 E3 45 to read C3 79 44 

001759— change 02 02 00 4E to read 01 09 79 44 

E3 E3 E3 E3 C3 E3 45 02 02 00 4E 

011403— change Iran 6D to 68 

Manfred Peters 
^ D55110Alsdorf 

West Germany 



Shift Lock 



Martin Hambel's "Shift Lock" utility in 
the May issue was just what I needed. I 
had previously installed the lowercase 
mod by Steven Wexler {Kilobaud Micro- 
computing, April, 1980) and after correct- 
ing a typo (the instruction at 7FFAH 
should be D2 7D 04) it worked fine, except 
for the usual problem— shift for lower- 
case — which is happily corrected by Shift 
LjDck. 

The lowercase mod requires a short 
software patch for the video driver which I 
merged with Shift Lock's keyboard driver 
patch. The only bug I found in Shift Lock 
was the use of 1 AH as the control charac- 
ter. In the new Level II ROMs, shift— down 
arrow (1AH) is used to access control 
codes from the keyboard and will not work 
with this program. I substituted shift— up 
arrow (1 BH) at location 7FE6 and have had 
no problems. 

Burt Cotien 
New York, NY 

Satisfied Prosoft User 

It is a cruel fact of life that there must be 
weeks to months of lead time in the peri- 
odical publishing business and some- 
times a grievous injustice is done to an un- 
witting victim. A classic example of this 



was vividly visited on Prosoft's "Sub- 
edit/Subscript" by Chuck Teslar {"Word 
Processors Compared." June 1981) when 
in the interim along came his improved full 
screen editor version christened "New- 
script." Newscript has it all in spades 
plus, and please take note, purchaser sup- 
port! 

After attempts to obtain technical as- 
sistance with myriad programs I very ten- 
tatively called Mr. Teslar at home as his 
documentation suggested. His enthusias- 
tic response to my novice queries were 
not only courteous and patient, but he sin- 
cerely requested that I call him at any time 
and he wished more of his purchasers 
would! He explained that if he were ever 
not available to ask his 17-year-old son 
Glenn or his wife Debbie, both program- 
mers of impressive credentials. (Appar- 
ently nobody ever told Glenn that pro- 
gramming was difficult.) 

It is indeed fortunate for the micro 
word-processing public that Mr. Teslar 
abandoned a long career with IBM to favor 
us with a thoroughly professional and pol- 
ished word processing system. One that 
totally supports all enhancements that all 
the major line/daisywheel printers have to 
offer. It produces a product that is camera 
ready of type-set quality and will compare 
with results achieved by systems costing 
asmuchase/g/iff/mes my investment in a 
Model l/Centronics-737! It came as little 
surprise to me that the program was writ- 
ten full Model HI compatible when I added 
that machine at my place of business! 

I hope for an updated review now which 
will probably appear just as Prosoft and 
Chuck Teslar come out with an updated 
50,000 word vocabuliary "Newscript"! 

A large bouquet of red roses are in order 
for the family tfiat cares in this society of 
"sell 'em and forget 'em"!! 

Anthony Toutis 
Clewiston, FL 



Spanky and ttie Gang 

Your article on the computerized com- 
plaint letter in the May issue had interest- 
ing prospects so here I go. 

My name is Spanky and I seem to be 
having trouble with the program listings in 
your magazine. Yours is not the only one 
to be sure, but it is entitled "The magazine 
for TRS-80 users," which is what I am (ac- 
tually not a user, just a TRS-80). The typos 
are bad enough, but when it comes to the 
use of incorrect variables and DIM state- 
ments it requires hours of debugging by 
my owner before 1 can run the program 
correctly. In addition to the out-and-out er- 
rors, the programs are poorly written, re- 
quiring me to go through lines and lines of 
If statements where a simple looping se- 
quence would do the job. Of course 1 real- 
ize that the listings are not written by pro- 
fessionals, but I would think small modifi- 
cations by your staff would be beneficial 
to your readers. 

I am not the only one experiencing this 
difficulty. My friends Snoopy, Lucy, Apple- 
sauce and Big Bird are also having the 
same problems. 

Your magazine is good, but let's just 
have a little quality assurance In the pro- 
grams. 

Spanliy 
Virginia Beach, VA 



Authors, Take Note 



80 Microcomputing authors are 
asked to mail in corrections with their 
author's proofs, not before. Galley 
proofs are mailed of all accepted 
manuscripts. 
Thank You.— The Editors. 
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3030 


A = INr', J/2 


t,6 ) 


tGOBUB3500 




3040 


J=J-256*A 








3050 


A-IN!"'. .1/1 


6 )t 


GDGUE3500 




3060 


A^.J -14*a: 


GD3 


UB350CJ 




30 70 


retuf;n 








350 


PRINThU'li 


. m 


TAUri );:REruRN 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



f ( ruppeneo 3 years ago. wlien ooi ^resiaem made a Oeosion A1 ine iime we spKiai.jea 
ir cusiom ai^aiog and (ttgiiai circjti design Tne oecision was lo anemot lo aeveiop a line ol 
staiMard miettace naiawaia lot rhi emerging microcomputtrs M ine lime |]9'^ we Ud to 
decMK wnicn at ing new macnmes cduio Deconw ine industry siandaro ol me idh cosi 

m^ios 

Despite a lew aggiavaling DuI minn detici«nc>es ihe trssO seemed lonave ine moii 
chance ol success and it nad ine besi [nite/pe'twitidnce 'alio Also wtin some imagination 
ItieiF large sales organization coutd Detome tne largest service netwoiii in iMe wMid a leassu' 
ing tnrougtii tot itte mjny novices in ittis new lisid 

It Decame clear trial tne TRS BOcouWDeused iwitn our then nypoineticai system) lo solve 
proDietns m rnany tields mnere computers were noi yel used mostly twcaute Ol llw nigti cost 

Ttie lOEA was simple' ALPHA PflOOUCT wouio supply ine musing link between me TH5 
BU and irie ouIsmK wona (mote attout irns outSuK world later ) 

Early Survival 

DANGER' If Radio Snac" ennred Ihe same marxel we probaPly would nol nave survived tiut 
me eipeclalion was Itial they would be too Dusy developing men basic line id"ves. urinters 
modem etc l Tnanks to our more speciaiiied products we would nol be compelmg wiin Itiem 
BAD STMT' We began w<m a failure Our liisi prodi-ct was supposec to De a simore low co&t 
general ourpose device It would anow trie TRS BD lo accepi inputs ome' man tne keyboard 
W^ny ixnds si eiternai devices ime outside wond meniinned betorei ii'e cinaiDceiis 
senso's merrnDstats switches contacts etc could De connected easily In addition mere 
were two relays to control lOn or all) eiternai loads sucti as molDrs lamps appliances 
neaters etc etc in Diner words, ii would allow me campuiet to mieraci or intetlace with 
eiiernai devices We called H me IHTERFACEH 2 Wnai a m>stakei ii sounded too mucn like 
eioansion interface Many eninusiastK TRS-BD users called ininlung mat our INTER 
FACER 7 was a low cost Eipanswn interlace (al S66 Itut would nave been i rati bargain') 
We warned to change me conlusing name Tnat meant repiiniing me manual cbangMg tbe ad 
scrapping me tlyers discarding tne silk screened cases Well, INTERFACER 2 n would 
stay 

THOUBLEi We also loundtnal me majority Oil RS'SD users were AFRAID olltienarowaie They 
could De very comlortabie wiin fancy programming but t nought you naa to be a computer 
specialist 01 tecnmcaliy inclined to out tne iNTEHFACER i id wo'k in trum some iMACiNA 
T'ON and a SCREWDRIVER is an you really need Anyone able lo ««t a switch couid use mis 
oevice 

W0RSE1 Trie'e was also me lear oi plugging a foreign device' into me precious computer 
inis noiion has all out disappeared as mere ate now so many quality produris designed toi me 
THS 80 Ihat plugging m j non Radio Sriack device nas become common 

Our ad in Creitive Campuiinq [80 Wtcrocamputing did no< yei pusti n^'diy paid lor ilseit 




K;-' 



We nad a deciSMH to make Were wewfongbr)usttooea''iy''Ou' Iksi INTERFACER 2 was sold 
to someone who wanted to and succeeded in coniroiiing nis lancy mo<ta< railroad with f.-.L 
TRS SO intetesling bui wnai m^de us slick wiir the concept was mat some ol our iNTEft 
FACERS Degan Imding use in applicdhons wiin tascinaiing possibilities Space is lacking lu 
descniie mem bui me most eicilmg was tne successiui use ti! mesYSiem in assislmgaUndi' 
capped young Doy We were pleased lo heai ol sucn a tneanmglui application 



Today 



Tnree years later, as you can see m our ads Tne INTERFACER 2 n alive and well The 
pm weni up i bii and despite the introduction ol me more powertui iniERf ACER 60 tne 
sam have been steady 

Then came the leasi understood produci' me ANALOG SO inis tl39 niceiy designed 
module IS an Analog lo Digital conveilei wiin B mpul channels Used wiin your TRS 80 il 
provides a powertui data acquisition syslem Inis largon simply means thai you can 
monitor measure and record S inoependani varying voliages Very tew people leaiifed 'Is leai 
power Sucn a sysieii would nave cosi over len thousand donars lusi a lew years ago 

Ttw possiOiiiiies m scienhlic and engineering environmer^ts aif endless Triij system 
could replace chart recorders digital data recorders programmable calculators oaia anaiyiers 
and many other specialised and eipensive pieces ol equipment ruilhermore. up to B ANALOG 
SO ^ could tie used simultaneously lor a total o' 84 channels Of analog mpul' They simply plug 
into me tRS BC using nut K series ol Bus eitenders (f'PANDABUS I 



The idea was simple. We would supply the 
missing link between the TRS-80 and the 
"outside world" 



Our ne>i pioduci was to be a second generation input/Ouiput ini^ifKe with mare 
lleiiOiMy than Ihe INTERFACER ? Careful design and relmemem yielded Ihe INTERFACER BD 
me mosi powertui real world interlace on me markei loday ii has B inputs each ophcaiiy 
isolated and S outputs each wiin a relay coniaci ^tt interfacer 80 is tuiiy compatible wiin 
ou' ANALOG 80 allowing ihese lo be used together m order to create systems mat control 
exlerna) devices based on sensed mpul under control of the TRS SO 
A FAILURE! in spile ol Our eiiensive advertising very lew ait aware ol me existence ol the 

powertui ALPHA r/O SYSTEM 

The Facts Are: 

Irie AirHA SYSTEMi'tRS-80 combination forms an incredibly versanie and powerful Tool loi 

acQuisilion 'processing / control 

in spile Ol lis maaerjtecosl Ihe syslem is sopnisiicaled and reliable 

The entire system can tie easily programtrw] m BASIC usmg iNP'Xi ana OUT K Y commands 
-Tne r^oduiar aporoacn and our Eir'ANDABUS allow lor msiant eipansion as requi'ements 

demand 

The loliOwtng pages conlain more mtormalion about me ae.ices mentioned here We mvile 
you 10 can j( write lo discuss yoy ca'licuiai application 

Device descriptions; NEXT PAGE # 



TIMEDATE 80 



^ 




N«Bl. Compact Design 
3 Vears Bsnery Life 



Slips MsHdeE/l 
(Y Option Shown) 



Real Time Wilhoui 
Expansion Interiace 



•Compieie.seit contained true real time clock 'calendar TIMEDATE 80 continues to "eep 

accurate i me ana date when me coniQuier is turned ott or e-penences a powe- latiure 

•TIHEOATE BD only needs ID be set once ana it s Iwo replaceable AAA baiienes moi 

mcluOedj oeep TiMEOATE SO running m eicess ol 3 years Costly li Cad baiienes and 

charging circuits are eliminaieo 

•The instant poweiis applied lo tne TRS 80 liMEDATE 80 provides MO'DATE'YR DAY 

01 WEEK HR MIN SEC and AM/PM inlormalion wim guarti accuracy 

•TIMEDATE 10 replaces me compute's mlernai dock Eitremely usatui lor automalic 

operation of remote systems wilh no Dperalor in attendance if the power tails and then is 



WHY LOSE PRECIOUS TIME ? 

renoced only TiMEDATE 80 will update Ihe system wim current TIME and DATE intotmalion. 
an impoiSttMily win the compuief s interna' clock 

•TIMEDATE U is Quart/ crystal based with INItLLllltNT CALENDAR mciufling provisions 
for leap year! HME display may oe by 1 2 hour AM'PMor by 7* hour military and Eruopean 
formal 

•TIMEDATE 80 plugs directly into Ihe rear of the IRS BO >eyboafC and gives me tiWEI 
lunction even wilhoul an Eipansion interface For those with a disk syslem il piugs mio ihe 
lell SiOe panel Oi tne E"panS'On intertKe An optional V connaclor can provide for luilher 
eipansion 

•TIMEDATE SD'i smaii si;e keeps the computet latM uncluttered if you nave an Eipansion 
mierface T.MEDATE SO ineially DISAPPEARS' by slipping mto Ihe empty space in the 
bottom ol iheintertace 

• Twosetsof software, on cassette come with TiMEDATE 80— HMESET and tiMEt 
TiMESET IS a Step by step sel Ol simple instructions tot selling TIMEDATESO TiMEi 
IS a sei ot poke routines which paicn DOS and Level n TiMti lo reao TiMEDATE 80 ano rs 
easily incorporated mio any user soltwa'e TIMES «'" always prmi me lime and date 
wnen LISTING a program— great 'O' keeping IracK of revisions' 

•Otner valuable uses for TiMEDATE BO are accoraie dale and time iitlormation tor business 
reoDits like payton records tmanciai 'eporis etc or to various I'O devices leQmtJhB 2' 
hour clock input sucn as laboratory instrumentalion and lo communication systems 
needing Log in/LogOui aaia Ibuiieim boards i 

•TIMEDATE 10 luiiy assembled and tested 90 day waiianty complete with instructions 
and software on casseite 195 00 y opimn addJiSOO 



NEW: Computer to Computer ordering :(21 2) 441-3755 (24 hr. data tine) 



CALL 




ALPHA 



(212)296 5916 

Products « 



FOR FAST 
SERVICE 



85-7/ 79th Street. Woodhaven. NY 11421 
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EcSfed by Michael E. Nadeai 
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'It seemed as if the author 
was sitting next to me 
as I read Inside Basic Games." 



DOOkS 
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Inside Basic Games 
Richard Mateoslah 
SYBEX, Inc. 
Berkeley, CA 
Software, 325 pp. 
$13.95 

^by Bonnie Welsh 



inside Basic Games teaches interactive 
Basic programming through the use of 
games. The author strives for and suc- 
ceeds in writing "not just a collection of 
games, but an educational book that will 
help the reader iearn to design Basic pro- 
grams." This book does, In fact, provide 
many examples of program design and 
development. 

Richard f^^ateosian is to be commended 
on the clear and concise style in which he 
presents his material. Each chapter be- 
■:^ gins with the objective to be tackled, 
along with the steps of progression to be 
used in attaining this goal. If, perchance, 
you have forgotten what you were sup- 
posed to learn, he provides you with a 
summary at the end of each chapter. 

Free Basic 

One of his most interesting and useful 
concepts is the use of Free Basic, also 
known as GOTO-less programming, Its 
principal goal is to free the programmer 
from having to think about line numbers, 
although it does support structural pro- 
gram tec%iiques. Actually, Free Basic is a 
form of pseudocode, but is much more 
precise in that it uses Basic instruction 
rather than verbal instruction. Once you 
have constructed your program using 
Free Basic, Mateosian explains the tech- 
niques used in translating it into Basic. 

Each game is described per se and then 



in terms of their Basic and Free Basic in- 
structions. The effects and advantages of 
certain routines in regard to their "canni- 
balization" and "generalization" abilities 
are discussed. Your main objective is to 
learn how to write routines that can easily 
be integrated into other programs. 

General programming techniques such 
as the top-down development theory are 
explained, along with more specific tech- 
niques like space saving and file mainte- 
nance functions for a certain program. 



The games are written in Microsoft Ba- 
sic and can run on the TRS-80, Apple II, 
and PET/CBM. He identifies the small 
changes In each program that must be 
made when converting from one system 
to another. 

It seemed as if the author was sitting 
next to me as I read Inside Basic Games, 
due to his easy-going personal style. I 
recommend this book to anyone in- 
terested in writing their own interactive 
programs.! 



Musical Applications of Microcomputing 

Hal Chamberlin 

Hayden Book Company 

Hardcover, 650 pp. 

$24.95 

by Dennis Bathory Khsz 

The true musical application of micro- 
processors is not the topic of Hal 
Chamberlin's book. Instead, this is a com- 
pendium of the sonic rather than musical 
uses of these devices. In fact, only three 
measures of music are presented within 
its more than 650 pages, and even these 
contain errors in notation and transcrip- 
tion! 

A Professional's Book 

The true contents of this book cover the 
many methods of producing sound 
through electronic means. Both tradition- 
al analog and developmental digital con- 
cepts are presented; uses of micropro- 
cessors are introduced; and the analysis, 
development, and reproduction of natural 
and originally conceived sounds are 
discussed. In many ways, this Is a profes- 
sional's book; cursory attention is given to 
the basics of acoustics and electronics, 
but these seem Included by obligation 
rather than enthusiasm. Furthermore, the 
occasional discussions of music Itself are 
amateurish and extremely shallow. 

Hal Chamberlin is recognized as one of 
the leading and most imaginative figures 
in the field of digital processing of sound, 
and one expects that this book would 



clearly demonstrate his wide-ranging 
skills. Perhaps it is an inevitable conse- 
quence that this wealth of knowledge can- 
not be satisfactorily compiled in one 
volume which has both popular and pro- 
fessional pretenses. 

Nevertheless, Musical Applications of 
Microprocessors Is destined to become 
one of the definitive books on digital crea- 
tion and reproduction of sound, and digi- 
tal interfacing of analog synthesizers. It 
contains sample circuitry. Assembly pro- 
grams (mostly for the 6502), waveform dia- 
grams, and drawings. 

The book is divided into three sections: 
Background, Computer-Controlled Ana- 
log Synthesis, and Digital Synthesis and 
Sound Modification. Chamberlin reveals 
himself to be an expert engineer/ 
programmer, but the sections on the 
goals of music synthesis and its history 
are superficial. By contrast, the section 
describing the parameters of sound Is 
clear and thorough. 

In fact, throughout the book Chamber- 
lin Is at his best when describing the de- 
tails of circuitry or programming, and is 
weakest when talking about general prin- 
ciples and concepts. Sound Modification 
Methods (chapter 2) begins with a brief 
discussion of the aural effects of modify- 
ing known sounds, and moves directly to 
describing these modifications by means 
of waveform and frequency spectrum 
graphs. The following chapter explains 
the uses and application of voltage con- 
trol in rnusic synthesis. 

The heart of the book begins with 
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Now Model III users can take advantage of the ALPHA I/O system too. Our new , 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such^ f 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Mofj'i^ ni 
bus, MOD III/I BUS CONVERTER, complete with all connectorst only »39.95. i: ■' 
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hapter 4, Direct Comouter Synthesis 
■.lethods Afte' 'ojching on the limita- 
'ions of tracjitiona! vonage control. Cham- 
heriin describe$ the n:iethoc(s by which 
f.oi*nd is digitized, ncluding a set of new 
problenis iniroducea by this form of stor- 
age and generation. He also mentions the 
matheniatics involved and the languages 
ill .jse. Chapter 5 completes this introduc- 
tion with discussion of microprocessor 
terminology, history, interfacing, and in- 
struction sets. This chapter, crucial to un- 
derstanding the application of and rea- 
soning behind microprocessors as ap- 
plied lo music, is very weak in both expla- 
nation and example. 

Section I!, Computer-Control led Analog 
Synthesis, 'S a ref'eshmgiy complete looit 
at using computer techniques fc control- 
ting the available body of synthesizers. 
Beyond standard keyboard and oscillator 
selection, Cliamberlin also includes such 
Ideas as using CMOS analog switches as 
an intermediary solution in the desjgn of 
anaiog machines. Complete circuits are 
presented for many of the most popular 
synthesizer modules (oscillators, amplifi- 
ers, fillers), with all parts specified; this 
'epresents a change *rom books whose 
examples consist of sKeletal. theoreticai 
circuits, input and output methods are ex- 
plained, digita.-to-analog and analog-to- 
digital concepts (including time consider- 
ations) are detailed, and keyboard Inter- 



facing is shown in various options. The 
first control programming examples ap- 
pear in this section. Graphic display tech- 
niques are also introduced, but Chamber- 
l>n becomes vague and circuit diagrams 
and other hard examples disappear: per- 
haps this area is not his strength, and he 
properly leaves it general. 

Finally. Section Hi— Digital Synthesis 
and Sound Modifications — presents 
Chamberlln's major contributions to the 
field of digital creation and reproduction 
of audio. Tone generation, filtering, and 
analog input/output examples carefully 
detail the problems (accuracy, distortion. 
and cost) Qt digital techniques, and he 
forgives liltfe of the reader's potential lack 
of background. No musician or amateur 
computer enthusiast without substantial 
enginee'ing, electronic, or acoustic back- 
ground will be able to 'in-sh this volume. 

Fast-Fourier transforms allow the con- 
version 0* waveforms to their frequency 
spectra, and many program examples 
have been provided .n microcomputer li- 
terature but with no idea of their use. 
Chamberlin presents examples of these in 
Basic and Assembly, and puts them to 
work analyzing sound for compiiialion and 
storage in digital *orm. The significance of 
the mathematics involved and the difficulty 
of Its implementation m real time become 
clear in this section. 
Finally, Chamberlin presents module- 



by-module replacement of the analog 
components of a music synthesis system 
with digital varieties. His approach is 
complex and comprehensive, arrlvng 
eventually at the description of a com- 
plete multi-voiced music development 
unit. 

It may seem from the above summary 
that Musical Applications ot Micropro 
cessors would be an ideal addition to the 
computer user's library. Certain'y it is a 
valuable contribution to the field, ano will 
be used by anyone seriously interested in 
the electronic production of sound who is 
also highly qualified in electronic theory 
and application. But, just as certainly, the 
obvious significance of :ts contents w:ll 
be a frustration to musicians and experi- 
menters who wish to put its ideas to use. 

Like his colleague Wayne Bateman 
(though he does not say so di'ectly). 
Chambe'lin assumes that conterrporary 
musicians must inevitably come to an 
understanding of the details of any natu- 
ral sound's ceatton in order to reproduce 
it compellinQiy,and m order to invent new, 
viable music But Chamberlln's wo'k, im- 
pressive though It is. remains unbending- 
ly technical, with neither recognition of 
nor concern about the musical art at even 
its rudimenta'y levels. 

For engineers, here is a bonanza of ex- 
citing ideas: for musicians, he'e is an- 
other .n a series of frustrations.B 



Basic Scientific Subroutines, Vol. I 

by F.R. Ruckdeschel 

Byte Publications 

Petertiorough NH 

Hardcover. 316 pp. 

S19.95 

by Bruce Powell Douglass 

Basic Scientific Subroutines, Vol. I is a 
new book covering algorithms and 
Basic routines for plotting, complex num- 
ber arithmetic, vector and matrix manip^ 
uiation. series approximations of func- 
tions, and more. Volume !t will deal with 
approximation, regression, interpolation, 
mtegration, root-seeking, and optimiHa- 
lion 

The book IS well written; it is unusually 
ciear and concise. The mathematical 
techniques presented m the book are 
usually taught with so much theory that it 
is hard !or the student interested in appli- 
cations to use the techniques in real-life 
situations. Thts book is oariicularly worth- 
while because the author spends timede- 
scribir^g the physical interpretation and 



meaning of the techniques, along with the 
algorithms This book is useful for stu- 
dents well versed in science but not m pro- 
gramming, or programmers who lack 
some math or scientific bacKground. Asa 
supplementary text, the book is excellent. 

The routines are Usted in two appen- 
dices, with driver programs both in North 
Star and Microsoft Basic. The book is not 
meant as a Basic primer, yet it does pre- 
sent methods 'or changing scientific al- 
gorithms into Basic routines. 

The first section (chapter 2) deals with 
plotting routines. These are not extremely 
useful for the TRS-80, as they plot using 
byte resolution with asterisks for data 
points. Their potential is in plotting on a 
printer. Since printers seldom know about 
Set and Reset, byte resolution is often as 
good as one can get. 

Chapters deals with complex variables 
and contains a routine to convert rectilli- 
near complex numbers to polar complex 
numbers This is followed by routines to 
add, subtract, multiply and divide com- 
plex numbers- 

The next chapter deals with vectors and 



matrices, and is, in my opinion, one of the 
two most useful chapters In the book (the 
other being the one on basic series ap- 
proximations). Routines for eigenvalues, 
matrix arithmetic and mat'ix inversion are 
alt given. 

A useful topic nicely dealt with is the 
use of matrices for the rotation, transpo- 
sition, and scaling of vertices o' figures. 
Another is the routines to determine cha^ 
acteristic polynomials and eigenvalues 
(characteristic values) of matrices. These 
routines are primarily useful for scientists 
and engineers. 

Basic Scientific Subroutines, Vol I is a 
useful book for scientists, engineers, and 
students. With a few minor exceptions. 
the algorithms are excellent and the Ba- 
sic routines well designed. Smce the 
book gives the routines m a commeniea 
form, as well as compacted form in North 
Star and Microsoft Basic, the book can 
serve not omy as a supplement to a com- 
puter text, but also as a sourcebook of 
scientific subroutines. 

The book is weii worth the invest- 
ment, ■ 
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KGS-80 Keyboard Actuator 

Kogyosha Company 

NIK International Trading, Inc. 

Tenafly, NJ 

$599 with power supply, 

mounting tiardware and manual. 



by Ted I. Blumstdin 



sing your TRS-80 as a word processor 
can benefit your career, speed your 
professional growth, or improve your per- 
formance in school. However, the cost of 
buying a letter-quality printer has been the 
stumbling block that prevented me from 
word processing on my TRS-80 until 
recently. 

I was pleased, therefore, to read about 
the KGS-80 Keyboard Actuator, a new pe- 
ripheral from the Kogyosha Company, 
which turns an IBM Selectric or similar 
typewriter into a high-quality printer with- 
out modifying the typewriter. 

The KGS-80 is impressive. It takes only 
minutes to position the unit on the key- 
■ board, plug it into the expansion interface 
and make a few minor adjustments. The 
46 plastic-tipped solenoids started print- 
ing all the Level II commands without er- 
ror. 

The keyboard actuator rests firmly on 
the typewriter. Two easily removed 
mounting pieces hook into the slit be- 
tween the shift key and the typewriter 
frame. The two set screws on the KGS-80 
then fit securely inside the lips on the 
mounting pieces. 

The KGS-80 is designed to plug into the 
TRS-80 expansion interface, or directly in- 
to the CPU using the Radio Shack printer 
interface cable. Because the unit does not 
require software to operate, it was fully 
compatible with my Electric Pencil, and 
should work equally well with Scripsit or 
other text editing programs. 

I have been using the KGS-80 for the 
past four months to prepare personal and 
business documents, and I am more than 
pleased with its performance. 

If a Selectric is not used, the KGS-80 
needs to be realigned to the new key- 



board, by removing the top cover and ad- 
justing four set screws. The set screws po- 
sition the tips of the solenoids to the prop- 
er height above the typewriter keys. A gap 
of about 0.02-0.08 inches seems to work 
best. At this setting, the solenoid is fully 
extended before striking the key and a 
snapping effect is achieved. The initial 
setting takes some time and experimenta- 
tion, but once you get the technique down 
it is quite simple. After making adjust- 
ments you can lift the KGS-80 from the 
keyboard and replace it in a matter of sec- 
onds. 

I have changed the speed of the original 
factory setting (10 characters per second, 
the reliable operating speed of most type- 
writers) by rotating controls VR2 and VR3 
on the circuit board. VR2 sets the on time 
for the solenoid and VR3 affects the delay 
time. My experience shows the delay time 
setting is the most critical factor in deter- 
mining operating speed, Thespeed can be 
adjusted to 20 characters per second, ex- 
cluding the shift lock/release and carriage 



"AH characters are 
printed in upper 
and lowercase." 



return. Control VR4 adjusts the delay time 
between the carriage return and the first 
letter of the next line, and is factory set for 
a standard 12-inch carriage. The delay 
time can be increased to accommodate 
the return of extra long carriages, how- 
ever. All these adjustments can be made 
manually without the need for special 
software, which is a real plus, particularly 
if you have only 16K. 

All characters (including numbers and 
common symbols) are printed in upper 
and lowercase. With a special IBM typ- 
ing element the ASCII signs can also be 



"The 46 plastic-tipped solenoids 

started printing all the 
Level II commands without error." 



printed. Function keys include carriage re- 
turn, space, case lock, shift lock and case 
shift release. The operative ASCII input 
code is 13, 32 through 92, 95, and 97 
through 122. A line feed is automatically 
inserted with each carriage return. 




hardware , 



The KGS-80 will not lake the place of a 
heavy-duty line printer if continuous use is 
required. The solenoids are not designed 
to exceed 400 successive repetitions with- 
out other letters and symbols being acti- 
vated. This is no problem with ordinary 
text and most program applications; how- 
ever, if you wish to use it as a screen print- 
er with very little on the video monitor, the 
successive activation of the space bar 
solenoid might cause it to overheat and 
lock up. 

The lock-up characteristic is a safety 
feature of the Kogyosha solenoids to 
prevent burnout. In a matter of minutes, 
the cooled solenoid is again fully opera- 
tional. Models that became available 
after September, 1980 have two sole- 
noids instead of one which allows more 
continuous use of the space bar. 

Another modification available is a buf- 
fer circuit which will allow the KGS-80 to 
print stored text while the computer is free 
to continue processing programs. This 
ought to be a good feature considering 
the comparatively slow rate of IBM Selec- 
tric printer mechanisms. 

KGS-80 keyboard actuator models will 
soon be available for the Apple, Pet, Ohio 
Scientific and other microcomputers, with 
either parallel or serial ports. Service is 
available at Kogyosha's Tenafly address. 
Sales are handled by NIK International. 

If you own a good electric typewriter, 
the KGS-80 is an excellent way to add a 
high-quality printer to your system at a 
very affordable price.B 
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GAME BREAKTHROUGH: 
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TO 
TRS-80 



THE STICK 80 

B' FEATURES THE FAMOUS ATARI JOYSTICK. 
gT WORKS WITH ANY LEVEL 2 AND DISK SYSTEMS, 
^ PLUGS DIRECTLY INTO KB. OR E/l( expansion PORT) 
m INCLUDES SIMPLE, DETAILED INSTRUCTIONS TO MAKE 

JOYSTICK VERSIONS OF MOST ACTION GAMES. 
COMPATIBLE WITH ANY OTHER TRS-80 ACCESSORIES, 
ef FULLY ASSEMBLED AND TESTED. READY TO PLUG IN AND 

ENJOY 
^ FUN TO EXPERIMENT WITH IN BASIC: SIMPLY USE INP(0). 
90 DAY PART AND LABOR WARRANTY. 



UNCONDITIONAL MONEY BACK GUARANTEEJry your STICK-80 for 14 days. If for any reason you are 
not delighted with it, return it for a prompt and courteous refund (including shipping and handling). 
PRICE INCLUDES ATARIJOYSTICK + ALPHA INTERFACE + DETAILED INSTRUCTIONS + DEMO 
PROGRAM. ONLY $39.95 
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INTRODUCTORY OFFER: ^ 

Order the STICK-80 with one or more 
games and choose one: 

•FREE ALPHA GREEN SCREEN 

OR 

•FREE MAGIC ARTIST PROGRAM 

* IN ADDITION YOU MAY: 

* ORDER 2 GAMES AND TAKE 10% „ , 

* ORDER 3 GAMES AND TAKE 15% °" "^^ ^'""" I 

Ail gantai art wntlfi in ititctuna ttnguaga and suppliad on catialti 

EACH GAME IS AVAILABLE IN 2 VERSIONS 
SIDE 1: LEVEL II 16K FOR MODEL 1 
SIDE 2: LEVEL II 16K FOR MODEL 3 $15.95 
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Q/SIDE 1: DISK 32K FOR MODEL 1 
DVsiDE 2: LEVEL II 16K FOR MODEL 1 
THE DISK VERSION SAVES THE HIGH 
SCORESONOISK $17 95 

• ALL THESE NEW JOYSTICK GAMES WILL ALSO WORK 
USING THE KEYBOARD WITHOUT ANY MODIFICATIONS 

GOOD NEWS: If you already have a non- joystick 
version of these BIG FIVE SOFTWARE games, 
send the original tape(s) with your STICK-80 
order + $3 pergame. Wev^ill sendyoua nevi/ 
Joystick version of yourgame(s). 

ALSO AVAILABLE DOUBLE-STICK 80: 2 ATARI '^ 
JOYSTICKS + ALPHA DUAL INTERFACE + 
INSTRUCTIONS + DEMO PROGRAM: $59.95 
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ALPHA Product Co. 
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85-71 79 St WOODHAVEN NY. 11421 



42i phone: (212) 2 96 5916 



Radio Shack's TRS-80 

Model III is Yotir Best 

Buy in Desktop Compaters. 




2495 



Because You Get 48K at 
Last Years 32K Price! 

That's right, we've added 16Kmore mem- 
ory, but kept the price at a low $2495! The 
TRS-80 Mode! HI is a complete, ready-to- 
run desktop computer packed with 
"extras" that don't cost extra. 

Two Double-Density Disk Drives. You get 

two buik'in 175K disk drr^es. and can add 
up to two more externally 

BASIC in 14K ROM. Our powerful Model 

III BASIC provides a program line editor. 
machine language programming, real time 
clock, and more. Compatible with most- 
Model I Level II BASIC programs, too. Plus. 
you can expand with COBOL or Compiler 
BASIC any time. 



Upper and Lower Case Characters. With a 

special graphics character set. and 64 

characters-per-line fonnat. 

Built-in Monitor. 12." high -resolution. 

12-Key Datapad. As well as repeating keys 
and keyboard-controlled screen print. 

Parallel Printer Port. Add one of our print- 
ers anytime. 

RS-232 Serial Interface. For data commu- 
nications, just add a modem. 

Nationwide Support. Backed by 6100 
Radio Shack stores and dealers. 160 Com- 
puter Centers and 160 service centers 
throughout the USA. 

Available Now. Why pay more? Get a 
demonstration today. Also check out our 



$999 16K Model III - it's a perfect 'starter* 
system. 



Radio /haeH 

The biggest name in Gttle computen''^ 

A DIVISION OF TANDY CORPOIJ MiON 



Read about your best buy in com- 
puters. Send tor a TRS-80 catalog- 
Radio Shack, Dept. 82-A-32 
1300 One Tandy Centef 
Fort Worth, Ttitat 76102 
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Retail prices may ^^^Y <» tndrvtdual siores and dealers Special oider may ^ requited 
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Regression 11 
Oynacomp 
Pittsford, NY 

$19.95 cassette 
$23.95 disk 

by Bruce Douglass 

Dynacomp's Regression II is, as far as 
I know, the only non-linear regression 
program commercially presently available 
for any microcomputer. Non-linear regres- 
sion is a complex, sophisticated tech- 
nique. Probably because of this it has a 
smaller audience than it deserves. This pro- 
gram is one-dimensional, that is, it can 
handle one independent variable and one 
dependent variable. 

There are three main approaches to non- 
linear regression: Taylor series ap- 
proximation, steepest descent (gradient) 
method, and the Marquardt method which 
is an optimization ofthe previous two. The 
last is the most sophisticated algorithm 
and is used as the default algorithm in SAS 
(Statistical Analysis System) NLIN pro- 
grams on mainframe computers. 

What isdone,essentially, is in a problem 
with N parameters. That is, when the fitting 
function to which you wish to regress the 
data has N unknown constants that you 
wish to determine, it finds the values of the 
parameters that gives the minimum sum of 
squares between the actual and predicted 
values of the dependent variable. That 
sounds worse than it actually is. 

All that is meant is that we defines func- 
tion SS = I((Y'(i)-Y(i))*(Y'(i)-Y(i))) called 
the Sum of Squares. Y' is the value 
predicted for the dependent variable for 
the i-th value of the independent variable 
by the fitting function. Y is the actual value 
that occurs with the i-th value of the inde- 
pendent variable (X(i)). 

As you can see, the better the fit of the 
regression, the closer the predicted and ac- 
tual values for Y will be. This will makeSS 
smaller and smaller. There is a theoretical 
limit for how close you may come to 
predicting the actual Y value, and it is de- 
termined by the relationship of the form of 
the fitting function with what the real rela- 
tionship is as well as the random chance 
variation (noise) that occurs in the data it- 
self In other words, some functions will fit 
thedatabetterthan others and, for any giv- 
en function, how well it fits is dependent 
on the noise in the data. 

Although -there is a certain amount of 
evidence ttiat for some classes of func- 
tions ieast squares methodology will re- 
suit in non-homogenous error variance, 
leasi squares is most commonly used be- 
cause of ease of both comprehension and 
implementation. 



Although there is a certain amount of 
evidence that for some classes of func- 
tions, least-squares methodology will re- 
sult in non-homogenous error variance, 
least squares is most commonly used be- 
cause of ease of both comprehension and 
implementation. 

The First Two Methods 

The first two methods of non-linear re- 
gression have their problems. The first. 



*'The program 

structure has some 

non-optimal 

characteristics." 



Taylor series approximation, attempts to 
locate the optimal parameters in N-space 
by using a series expansion. This method 
has its downfalls. For example, if the ini- 
tial estimates of the values of the parame- 
ters are not close enough to being correct 
the approximation may get lost and settle 
for a local minimum. However, its advan- 
tage is that when the initial estimates are 
close, it rapidly converges the optimal val- 
ues. 

The method of steepest descent looks 
around for the steepest slope (gradient) of 
the surface in the parameter space and 
follows it to the minimum values. This 
method is less likely to be fooled by local 
minimums, but, as it gets closer and clos- 
er to the actual values, the rate of conver- 
gence typically slows to a crawl. 

The Dynacomp program uses the steep- 
est-descent method, and, therefore, is rea- 
sonably stable in its convergence to the 
optimal parameters. It can take a long 
time to converge if you choose the wrong 
function, the data is noisy or there are a 
large number of parameters to be fitted. 

Like most scientists, I have a streak of 
pedantry in my blood and would like to 
take this moment to point out to the peo- 
ple of Dynacomp that they are using the 
divergence of the vector In the parameter 
space, and not the gradient, when they 
add the partial derivatives of the parame- 
ters. The manual states otherwise. 

The documentation that accompanies 
the program is mediocre. It does mention 
the method and algorithm used with a cer- 
tain amount of completeness, but it is on- 



ly moderately useful. In the space used it 
would have been even more educational 
(If that was their purpose) to delineate the 
routines used and their relationship to the 
algorithm. 

The documentation mentions that there 
Is one functional form that this program is 
not good at regressing, but it remains for 
the reader to discover what that is. It is on- 
ly mentioned In one of the two examples 
given. It turns out that polynomial regres- 
sion is not well regressed. 

The examples are run with comments 
and cover everything that is In the pro- 
gram. Since the program asks the opera- 
tor for all inputs, this merely serves to rein- 
force the user's understanding of opera- 
tion. In this sense, it Is useful. 

The program structure has some non- 
optimal characteristics. It is available for 
several computers and looks as though it 
was written so that it could be easily used 
on a variety of computers rather than any 
one given computer. This is evident in the 
graphic routine, the lack of multi-state- 
ment lines and the filler lines that take up 
memory but don't contribute at all to the 
program. 

Graphing Routines 

Let's consider the graphing routines 
first. Data points are printed out on the 
screen using "*" for data. The graphs of- 
ten scroll the screen, so the user does not 
get a good picture of the behavior of the 
function (which is one of the purposes of a 
graph.) The values of the data points may 
be printed on the screen at the user's op- 
tion. On a TRS-80 with Set/Reset resolu- 
tion, which is six times the resolution one 
gets with using "*" to represent data 
points, why use the latter? If you are out- 
putting to a printer, It makes sense, but 
not to the screen. 

True, you can control the height of the 
graphs but not directly, and often the 
graph scrolls to graph the data. I consider 
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that unacceptable. 

Listing the program, you will notice an 
Interesting program construction: 

• No multi-statoment lines. 

• No Defint for tooping variables. 

• Up to six separate lines of Print state- 
ments followed by a CLS (clear screen 
command). 

Since this is an Iterative program, using 
multi-statement lines and Defint for loop 
variables v^ould greatly reduce run-time. 

Also, the Print statements (up to six 
separate lines) are followed by a CLS? If 
readability was the object, then one REM 
line is worth 10 times its weight in useless 
Print statements. 

The program comes on both disk and 
tape. Being cheap, I bought the tape ver- 
sion and adapted it for sequential disk 
files. It runs nicely and even has the capa- 
bility of editing the source file. Editing 
consists of changing, deleting or inserting 
data points. This- routine is useful and 
works well. The program lists the data by 
page so that it will not scroll. 

Before running the program, the func- 
tion containing the parameters must be 



entered into the program. When running 
the program you will be asked the number 
of data points in the data set. This Is not a 
good approach since it requires you to re- 
member the number of data points in your 
data set. If it is a disk/tape file, all the user 
has to do Is keep the number of data 
points as the first element of the file. 

The user is asked whether the data is to 
be loaded from disk. If so, it will be loaded. 
If not, the user is expected to enter the 
data from keyboard. 

When you get done with that, you will 
bo asked if you would like to graph the 
data using the routine mentioned previ- 
ously. Eventually you do get to the pro- 
gram. (There are a couple of useless tim- 
ing loops that I deleted.) 

At this point you wid be asked for the 
number of parameters, the convergence 
criterion, maximum number of iterations, 
the step constant and the initial estimates 
of the parameters. This part is good since 
It is nice to be able to specify the number 
of iterations and the convergence criteri- 
on rather than depend on theirs. 



Finally, results are displayed. The stan- 
dard deviation of the regression arKl the 
number of iterations used are displayed 
along with the determined values of the 
parameters. You are asked if you would 
like to graph the function. It asks you if 
you would like to run the regression again, 
choosing differer^t initial estimates of the 
parameters, 'n the event that the conver- 
gence was not to your 'iking. 

This last option is useful, but, untoriu- 
nateiy, the jump is back farther than that, 
so you have to wade through reviewi.ng 
the data set and other garbage before fi- 
nally being asked for the new starting esti- 
mates of the parameters. This is easily 
corrected, but it really should be correct in 
the *irst place. 

In conclusion. Dynacomp Regression I! 
(or Paratit) is a useful, powerful, non-linear 
regression program, despite its less-than- 
optimal implementation. While correct m 
its mathematical usage, many small, mi- 
nor adjustnents need to be made to the 
program. Even so, it is the only program of 
its kind currently available, and is well 
worth the asking price. ■ 



C-BUG 

Monitor Tape $29.95 
AAonitor ROM $39.95 
Disassembler $49.95 
The Micro Works 
Del Mar, CA 



by Howard Berenbon 



The Micro Works is offering two out- 
standing utility programs for the 
TRS-80 Color Computer. They allow ac- 
cess to the machine at the Assembly- 
level. 

CBug 

The monitor is a powerful 6809 monitor, 
and is available on cassette. The two ver- 
sions are virtually identical, except that 
the ROM version mounts into a Radio 
Shack ROM pack, allowing instant access 
(mounting instructions are included). The 
documentation is quite complete, includ- 
ing loading, running, and operating in- 
structions. Also included is a documented 
Assembly listing of the C-Bug monitor, 
monitor. 

Commands 

The cassette version loads using the 
CLOADM command, and will run by typing 
EXEC. There are 19 commands, as fol- 



lows: 

G —Go back, Return to Basic 

R —Display 6809 register list 

M —Memory examine and change. En- 
tering a hex address will display a 
line of eight bytes. The cursor may 
be moved up, down. left, or right to 
display more memory. 

I -Insert hex to memory 

T —Transfer block of memory 

J —Jump to machine language subrou- 
tine 

C —Change register list 

S —Save to cassette 

B —Set baud rate for comm link 

L Load hex 

$ —Convert hex to decimal 

. — Convert decimal to hex 

P —Move display page; any 512 bytes 
of RAM may be displayed. 

U -Upload and send data to comm link 

D —Download, and receive data from 
comm link 

! —Take over software interrupt 

AU— Auto mode: To use your computer 
as an intelligent terminal con- 
nected to a host system. Com- 
mands are entered from the comm 
link. 

X —Terminal mode: To use your com- 
puter as a terminal operating at 110 
baud. 

' —Reset causes the computer to be 
reset and returned to Basic. 

These commands are completely docu- 
mented in the manual, with examples of 

their use. 



Disassembler 

The disassembler is a program that will 
allow you to look into the Basic ROM, 
and is available or cassette requiring 16K 
or RAM to run. 

The program is well documented, in- 
cluding a complete Assembly listing, in- 
structions with sample outputs, and infor- 
mation on connecting your Color Com- 
puter to a printer. Also included is a com- 
plete list of useful ROM entry points, 
with their apparent functions, a list of in- 
teresting variable addresses that the ROM 
uses {like 0019 start of user RAM, etc.), 
and finally a memory map of the system. 

Running the Disassembler ° 

The program is loaded using the 
CLOADM command, and will run by typing 
EXEC. You will be p'-ompted for a series of 
parameters, starting with the start ad- 
dress for disassembly. To disassemble 
the complete ROM, just type Enter to all 
prompted questions- 
Features of the disassembler include: 
cross-referencing of variables and labels, 
output code that can be reassembled, out- 
put to an 80-column printer (higjily recom- 
mended) or 32-column printer,' output to 
your video display, and a data table area 
specification which defaults to the table 
boundaries in the interpreter ROM. 

Both programs are highly recom- 
mended. ■ 
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Cocobug Debugging Monitor 
For the TRS-SO Color Computers 
Allen Gelder Software 
San Francisco, CA 
$19.95 

by Dennis Bathory Kitsz 



By the time you read this, it's likely 
tliere will be a dozen machine-code 
monitors for the Radio Shack Color Com- 
puter. However, none will have a catchy 
name like Cocobug, nor its unique appeal. 
This program is a machine-code monitor 
provided on tape, complete with docu- 
mentation, a quick-reference program- 
ming card, and a 32-page Motorola data 
sheet including timing diagrams and the 
full 6809 instruction set. 

Typical o1 software by Allen Gelder, Co- 
cobug is oriented towards machine-code 
programmers. This is an approach I find 
very appealing, because Assembly pro- 
grams (which consist of mnemonic re- 
placements for actual by te-for-byte binary 
coding) can easily obscure the real binary 
operations which the microprocessor is 
undertaking. 

Part of Gelder's own description reads, 
"With Cocobug you may examine RAM 
and ROM in hexadecimal, ASCII or mixed 
hex and ASCII form... the powerful 
MC6809E CPU is made available in a pair 
of 6809 Programming Models that depict 
the CPU features at entry and exit (via a 
restorable Breakpoint) of your machine 
code string. Byte entry and Breakpoint! ng, 
plus the ability to direct real-time program 
flow, are made easy and natural through 
line-entry of addresses, bytes and certain 
control characters." 

The author's curiously formal descrip- 
tion belies the ease of using the program. 
Cocobug itself consists of two parts, a Ba- 
sic menu/prompting program, and a ma- 
chine-code subroutine for display of mem- 
ory and execution and breakpointmg of 
the user's program. After a very brief 
CLOAD and CLOADM (the Color Comput- 
er equivalent of the Model I's System com- 
mand), (he program is run. A cursor ap- 
pears at the top of the screen waiting for a 
user directive. 

Memory display options are M and N, 
followed by a hexadecimal address. The 
M command displays the contents of 1 12 
bytes, 14 lines of eight rows ot hex bytes. 
Fifty-six by^s in hex and ASCII are dis- 
played under the N command. The small 
number of bytes displayable on the 
sureen is a function of the Color Comput- 
er's 32-character lines. However, the 
screen may be scrolled up or down eight 



bytes, or moved a single byte ahead or 
back. 

Most interesting are the programming 
models included in Cocobug. All the regis- 
ters (X and Y, plus the two accumulators) 
are displayed, as well as the top ot the two 
stacks and the condition code register 
(known to Model I programmers as the 
flags). Under Cocobug's R command, two 
programming models are displayed: The 
first is the entry condition (before execu- 
tion of the user's code), and the second is 
the exit condition (after a breakpoint). This 
display Is disabled with the T command. 

Line entry is a machine programmer's 
dream. The L command begins the pro- 
cess. Here's an example from the docu- 
mentation: L(ODOO)BF043039(OD10-8E4849 
BDOD0O<- This short line commands Co- 
cobug to begin loading memory at ODOO 
hex with BF 04 30 39, then move ahead to 
0D10 hex and load 8E 48 49 BD OD 00. The 
execution address (marked by the aster- 
isk) begins at ODIO hex, and a breakpoint 
has been placed after the return from the 
subroutine beginning at ODOO hex. It's 
quite a bit of work for only 35 keystrokes. 
An Assembly equivalent would involve 
more typing: 



ODOO 00100 ORG ODOO 

0000 BF0430 00110 STX 0430 

0003 39 00120 BET 

0O10 00130 ORG ODIO 

0D10 8E4849 00140 LDX #4849 

0013 BDODOO 00150 JSR ODOO 



Gelder does allow Assembly enthu- 
siasts some comfort, however. Comments 
may be inserted between bytes or ad- 
dresses by using single quotation marks, 
such as L(ODOO) 'STX 0430' BF 04 30. Inci- 
dentally, use ot the ">" character from the 
Cocobug command mode restores the 
conditions before any breakpoints cre- 
ated during iine entry. 

Rumors of monitor programs as good 
or better than Cocobug are already being 
heard, but software from Allen Gelder (in- 
cluding Basic semi-compiler tor the Model 
I, Accel) is unique. Like Accel, for which no 
royalties are demanded when used to 
compile and distribute programs, Coco- 
bug is provided with complete instruc- 
tions on where it resides in memory, what 
RAM patch points it uses, and how to 
make backup copies. Furthermore, Coco- 
bug is fully supported by the author, and is 
the first in a group of modules (Gelder 
calls them a "suite of 6809 debugging and 
programming aids") that will include an 
assembler and other tools. Cocobug 
alone, however, is a capable and attrac- 
tive program at a very reasonable price.H 
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Quality Percom products are available 
from thy following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1-800-527- 
1592 for the address of a nearby retailer, 
or to order directly from Percom. 
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rOMPUTERSFRVICeONri-.K HolWi-Hi C^lll.Sf,! tl.f. 

DESMAB r.l ECTRONiCS S^nw CUt^ mm 'iHH ;;L'(lt 

HOBBYWOKll) Nonhndy.. C^HlKMt. •ii'lK 

WHOLESAIFTFCMNOUKA Sania Ar.j (714l'l7't 1 7()l 

COLORADO 
Mil ROtOMPin-ERAPR.ICATIONS 

n.'.ivfi (,«HI'f/L'b4L 

DISTRICT OF COLUMBIA 
THt PRLX ,KAM ^TORF WdSh.nyion (,'lll'f I i/ 4t>'ll 

FLORIDA 
f.N IRON. INC I jTHo (Mi:t| SKt. F^H^ 

MICR(X."OMP(i"n=R(:()NSUI lAT^TS 

Omn.rnlBtfmh CKrtl i.7< S7K7 
MK RU^Vsn.MS WinWARb . IMt" 

H<>HiA-.i.Ki l.Mlfil'tM.t ,(11(1 

GEORGIA 
DAVIS SYSTEMS, [NC Allanld l4(l4Hi,14 2.1(XI 

HAWAII 
( OMPUTFIR CENTER Honolulu [MIIMI WK i- 1 7 1 

IDAHO 
OFFlCt.MA(.l(.(.()MMIItKS B^iw C^IW) v;t,4<.l i 

ILLINOIS 
riARClA&ASSOCIAUl^ Chi.dy., (,!LL'l 7H1"I7.S(I 

KANSAS 

BESCO ELECTRONICS Sh««..-t (41,1) 2fiH 7t.« 

CARDl=.NS INI Hukhiniuii CUt,)!*'' K2t>\ 

MASSACHUSETTS 
DMNITEK I tu.'k'^bun.' lb\'HH:.\ 4.SM() 

MARYLAND 
DAMASCUS RADIO SHACK Datiui. us {M)\ 12h.i2\ll\ 

MICHIGAN 
Al.rtRNATi- S( MIRrl- Ur.'.i.iy ('.17I4M7 ^.if* 

MINNESOTA 
THE CODE R(X.)M i-.d.^n Piainc Mii '(.i4 IK^t 

MISSOURI 
LEMBEROER CO Vienna IA\Ht 4ZA SAhii 

SOFTWARE CENTER |-l..nbviiit l,(14| M.IK 77 

NEW HAMPSHIRE 
HARDSiriF MillL..d (Kll<i|;?'.H 17'KI 

NEW JERSEY 
CHANNEl LRAOIOSHACK Mrdtcmi nyw| IJ,^ 74S4 

NEW MEXICO 
AUTEL ELECTRONICS AH.u^urnw ('.IM L'V. M'.l 

NEVADA 
PCS CIJMPUTER l.a,V<-ad!. 171)21 M71I 41 W 

NEW YORK 

H & E COMPUTRtJTJlCS Spnny Valley (414) 42^ ];,iih 

8(1 MICRO C(JMPIJTER SERVICES Coh.ws (r,l») 2:V, 9007 

MICRO 8IJ SYSTEMS Broukh/" |212| 74S :i236 

sror^ CLOVE Ns^ y.„h Citu (i?i2) :ii\ ftt'a 

OHIO 

FELDMAN LNTTJiPRIbES Akr,ir (^16)724Sy« 

.JERRY SCOMPUTFR ( leveland (21b|fa41 bH') 

Ml^ W*JsuA.ith [2l(il,3,'16 2771 

PENNSYLVANIA 

ADVANCED MECHANIZATION Iwland (21i,|b72 WOO 

COMPlfTERANAlYSTS N^w Bnghton (412IK4(> 4321! 

TENNESSEE 

COMPUTER WORLD INC Nashville (616) 2,'i5-H.^30 

MARKETING COMMUNICATIONS Memphis (mil) 7*1 3677 

TEXAS 

ACCESS UNLlMrrED Ri. hardson 1800) 527 .■M7S 

(214) b-Xl 021)6 

COMPUTEX WebsieT (713)48SH022 

QUAL irt' SOFTWARE Ddkib (2141*^4 2176 

TtXASCOMPIfTt.R SYSTEMS Brady (11,^1677 2431 

UTAH 

MICRO MNEMfJNICS Siinwl (801 1 29H 6804 

WISCONSIN 

BYTE SHOP Mil WAUKEE Gieenheld (414)2M1 7004 

FOREIGN DEALERS 

AUSTRAUA 

DICK SMITH ELECTRONICS PO Bi.x .121 NonhTyde NSW21 1,1 

CANADA 

VALERlOTt AND ASSOC Guelpli OiHano (514)8247041 

DVR ELECTRONICS SurrpyBC ■ (604)576 104S 

. MEXICO 

CIBERMATIC, S A Menito (4051 542 3433 

COMPUTADORAS Y ASESORAMIENTO 

RinPanurnM MeutoSDF 
DOMINICAN REPUBLIC 
RADIOSHACK Sanlo rJuminar) (W4I56S4121 
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Disk Storage: If s No Place to Compromise. 




A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Pcrcom. we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less Add on drives start at 
only $439,00. Complete First-Drive Sys 
tems start at only $749 95, Features: 
"Flippy" Capability — Record your 



To order products., ut for the name of your 
authorized Pcrcom relJilei oil toll free 
1.800-527-1592. 




PERCOM DATA COMPANY, INC. 
211 N KIRSV GARLAND TEXAS 75042 

12141 272-3421 



'tiadenurk ol Psicom Oala Company. Inr 

•irademaik ol Tandy Radio Shack Cofporaooo which has no 



programs and data on either side of a dis- 
kette Greater Storage Capacity — 

Store 180 Kbytes — formatted — on one 
side of a 40-track TFD drive Store over 
twice as much on a TFD 80-track drive 
Think Megabytes — Your TFD drive 
controller will handle up to four drives. 
You can access almost 1 .n million bytes 
o( on-line program and data files Either 
Add-in or Add-On — Your TFD I'irst 
Drive System can be either internal 
(add-in) or external (add-on)- In either 
case, you get a complete system in- 
cluding the disk controller, drive, power 
supplies and disk -operating software. 
BASIC-Language DOS— Included on 
diskette witli each First Drive System is 
Percom's OS-80 111 " This easy to -use 
disk operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use. With OS-80 " programs, you can 
have full, read write interchangeability 
between Model 1 and Model III diskettes 
Or Model ill TRSDOS* — TFD 40 
track drives work with Tandy's Model III 
TRSDOS. without modification. For 80- 
track operation. TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri 
ces. all Percom Model 1 drives are rated 
for double density operation. 

Plug a DOUBLF.R " in your Expansion 
Interface and enjoy the same double- 
density disk storge capacity as Model III 
owners Included with each DOUBt.ER is 
d TRSDOS compatible double density 
disk-operating system, DOUBLEZAP 
programs are available for uparading oth- 
er popular DOSs for DOUBLER opera- 



tion. And our double -density version of 
OS-aO' costs just $49 95, 

Of course you don't have to upgrade 
your Model 1 for double -density opera- 
tion to use Percom disk drives. But it's 
nice to know you can. 

Percom TFD drives for the TRS 80* 
Model I are available in 40-. 77- and 80- 
track versions, in 1-, 2 and 3-drive con- 
figurations Prices start at $399.00 

Svstvm requirpments: Model III TFD dnves work 
uilli d lt>-KbvW system (mini and Mod«l 111 BASIC. 
The IniUal drive must be ix (irsl drive system. An op- 
tional interconnecting cable is available lor expand- 
ing with external dnves #:i and #4 Model I TFD 
drives work with a 16-Kbyie system IminI equipped 
witii an Expansion Interlace. I-evel 11 BASIC and 
DOS software, and an interconnecting cable Two 
and four drive interconnecting cables aif availabte 
from Percom 



Yes I'd like to know more about 
the best for my 1 RS-80 computer. 
Send me free literature about quality 
Pcrcom products 
a Model I l~i Model 111 



II 

nam< 

I fc stree 

I I zip 



Send ID 

PERCOM DATA COMPANY. Inc. Oept, K 

21 1 N Kirby St. Garland TX 7504.? 
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plione munfcei 
MAIL TODAYI 
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Astro-Sbope 
S^x-d -Scope 
AGS Software 
Orleanili/IA 
S30 aacfi/^lsk 

by G. Michael Vose 

As!rology is a big-business, as seen by 
the number of newspaper columns 
and books devoted to the subject. It is also 
a serious business based on scientifically 
otjservable phenomena— the movement of 
planets, stars, moons, asteroids and other 
heavenly bodies. The positions of the stars 
and planets at the time of a person's birth 
are used by astrologers to make predic- 
tions and judgements about an 
individual's future. The logical connection 
between the position of the planets and 
the characteristics of a human being is a 
bit'fi£ftyHS,rny mind, but millions of people 
befleve tf^t a valid connection exists. 

Astrplbfiy and Computers 

^rSfes^Qtial astrologers are using mi- 
crocomputers at an increasing rate to per- 
form the calculations needed to cast horo- 
scopes. Casting horoscopes by hand can 
take hours and hand-held electronic calcu- 
lators simplify the process only a little. The 
useof microcomputers helps provide the 
information fast and can also provide 
greater quantities of it. 

One of several companies that has been 
producing astrological software is Astro- 
Graphics Services/Software of Orleans, 
Massachusetts. They recently released 
two programs which add a new dimension 
to microcomputer astrology. The pro- 
grams are called Astro-Scope and Sex-O- 
Scope. They both plot and display ex- 
cellent natal event sky charts (using the 
pinwheel format) plus all the planetary as- 
pects. More importantly, they also provide 
1500 plus word descriptions of the person 
wtiose horoscope has been cast. This is a 
major advancement in astrological soft- 
ware. 

The Sex-0-Scope program gives a read- 
ing of the subject's sexual proclivities and 
attitudes and is based on texts written by 
John Townley, author of Planets In Love 
and ttie editor of Sexology Today. The 
readings provided by the Astro-Scope pro- 
gram were written by Steve Blake and 
I^bert Hand, authors and lecturers on the 
Subject of astrology. 

, These programs can be used by anyone, 
which is what makes them unique. I've run 
other astroiogy programs that produced 
sky maps and aspect charts, but I didn't 
know how to interpret the information. 
These kinds of programs are designed for 
professional and serious amateur astrolo- 



gers. The new offerings from AGS Soft- 
ware, however, can be great fun, even 
for someone who has no knowledge of 
astrology. 

These programs, though only for the be- 
ginning astrologer, are complete and fun. 




Once you enter the basic Information- 
date, time and location of a person's birth 
—the computer will calculate and then 
display horoscope data and character 
descriptions. You can cast horoscopes for 
yourself, friends, family members or 
famous people. 

Here are some excerpts from Astro- 
Scope and Sex-0-Scope. 

Astro-Scope for Howard Cosell 

Howard Cosell's ascendant is in Leo. If 
your ascendant is in Leo also some char- 
acteristics you may have are: You are 
proud, and like being the center of atten- 
tion. You are strong, dominant, dignified 



you are: very energetic and high-spirited, 
independent and a risk taker. You are also 
an enthusiastic leader, but a reluctant 
follower. So blunt, direct and honest that 
at times you hurt other's feelings. Your 
strong competitive urge may alienate 
others. You are good natured and bold! 

Sex-0-Scope for Linda Lovelace 

Linda's ascendant is in Taurus which 
makes her earthy, slow at moving, but 
persistent once aroused, warm, friendly, 
loving, steady and strong. 

I told you this could be fun! These are 
only excerpts— each of these readings 
took less than a half hour to peruse. 

These programs are a mite expensive if 
entertainment is your aim (they don't have 
print routines although there are routines 
you can use to obtain printouts from Basic 
programs). AGS Software does offer ver- 
sions that do provide printouts plus the 
license to reprint the material. These ver- 
sions have to be special ordered and, at 
$200, are aimed at the professional as- 
trologer. 

From Technocrat to Mystic 

The text files that accompany the main 
program are quite large, so you'll need at 
least 32K and two disk drives to run these 
programs. The documentation booklets 
are some of the best I've seen, providing 
latitude and longitude figures for at least 
one city in every state of the U.S., blank 
charts that you can photocopy for your 
own use, and data on famous people that 
you can use to run their charts. 

These programs might change your atti- 
tude toward astrology. You may see the 
economic potential of running horoscopes 
for your star-struck friends. Or you might 
want to start an astrology column in a 
local newspaper or magazine (once you've 



"The Sex-0-Scope program gives 

a reading of tfie subJecVs 
sexual proclivities and attitudes." 



and honorable. You like the power and prlv- 
lege that comes with leadership. Others 
must have integrity to impress you. You 
like sumptuous surroundings, and have a 
regal bearing! 
His sun is in Aries. If you're an Aries, too. 



purchased the reprint rights from AGS 
Software.) 

At the very least, you could use these 
programs to have some fun, and maybe 
even change your image from technocrat 
to mystic!! 
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Just 55 hours ago, 5.3 million pounds of thrust from two solid fuel boosters sent the 
Space Shuttle Columbia into orbit. Now, on-board computers performing 325,000 
separate operations every second will help guide the Columbia safely and gracefully 

home to Earth. 

Instant Software's SPACE SHUTTLE puts you in the command pilot's chair of America's 
first reusable space vehicle. And, until commercial space flight becomes a reality, this is 
the closest you'll get to the Ultimate Flight. 

0332R-A11 Model I & III Level II 16K $14.95* 



^536 

Instant Software 



VISA 



PETERBOROUGH, N.H. 03458 



TO ORDER: 

See your local 

Instant Software dealer 

Of Call Toll-Free 

1 -800-258-5473 

In New Hampshire 
1-603-924-7296 

Mon Fii BOO aiT— 4 30 pm EST 



■piuS ahipplnfl 



DnaiBi inquiries irvitoO 
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SuperStep 

Allen Gelder Software 

San Francisco, CA 

$19.95 

by Mendel Cooper 

Shortly after introducing the TRS-80, 
Radio Shacit brought out a stripped- 
down machine-code monitor and debug- 
ger, T-Bug. At the time, T-Bug was the only 
game in town and you bought it. Now 
there are much better monitors on the 
market, and you may weli regret your $15 
investment. 

Into a Heavyweight 

SuperStep transforms the lowly T-Bug 
into a heavyweight. It offers single- 
stepping, a two-speed trace mode, and a 
versatile disassembler that can run in con- 
junction with the single-step or trace 
modes. A processor model displays all 
registers and flags, both for the current in- 
struction and for the previous one. An in- 
telligent RAM window shows the RAM 
locations and contents affected by 
memory accesses. 

SuperStep has commands that back- 
space In memory, clear the screen, and 
display memory contents in rows of 
16— in hex or in ASCII. It gives direct ac- 
cess to the registers (each one labeled) 
and to the flags (each one individually 
set). There is also a relative-jump pointer 
that shows where you are jumping to — 
and can even take you there, and back. 
There is a high-speed save/load command 
included in the package. Regrettably, this 
one will not work on my machine because 
it has the XRX cassette load modification. 

SuperStep's string editor allows insert- 
ing or deleting bytes in a sequence of 
code. The bytes on either side of the 
change move aside or close up, as neces- 
sary. Useful for editing ASCII strings or ta- 
bles, this feature also allows creating or 
deleting space within a program. A patch 
can now have enough space to reside en- 
tirely within the program it modifies; it no 
longer need jump elsewhere to do its work 
(you would still need to fix up the Jumps 
and Calls, of course). 

An Invaluable Aid 

I rate SuperStep as the best single pro- 
granjl hayg in my modest collection. If the 
program is useful as a debugger, it is in- 
v^ible as an aid to learning Assembly 
Faiisuiipe j^gramming, and the Z-80 In- 
struction set in particular. As the 
program's author states, SuperStep cuts 
down on the "imaginative overhead" of 
the programmer. William Barden, in his 
book TRS-80 Assembly Language Pro- 



gramming, advises his readers to "play 
computer" as a means to understanding 




scfftAA/ane 



o 





program flow. SuperStep plays computer 
for you, and with more precision and 



greater clarity than the paper-and-pencil 
method. 

I do have a couple of minor bones to 
pick with the program's author. The docu- 
mentation needs to be revised and re- 
organized. It could be greatly expanded, 
with many more examples. But this is 
hardly a fatal shortcoming since you learn 
to use this program by using it and experi- 
menting. 

The only real reservation I have about 
the program is that it needs T-Bug to run. 
SuperStep is a steal at its price, but you 
must also pay $15 for T-Bug. Perhaps 
Gelder will rewrite the program as a stand- 
alone monitor. ■ 



Fractional Sound 
The Innovative Penguin 
Harvey, LA 
$14.96 cassette 
$18.95 disk 



by Mary S. GaslorowskI 



Fractional Sound is a fractional drill 
program for the Model I Level M, or 
Model 1)1 16K (or Disk Basic, 32K), with 
sound (by connecting the auxiliary plug to 
an amplifier). The program allows you to 
set parameters for: the type of operation 
(add, subtract, multiply, divide, or mixed 
types), maximum size of numerator and 
denominator, whether mixed fractions are 
allowed, and the number of students In- 
volved; it will also allow you to put in your 
own problems, if you want. 

Bad Point 

The format for putting in the answer is 
extremely awkward. You have to identify 
which of the eight positions each number 
of your answer goes into (two for the 
whole number, three for the numerator 
and three for the denominator). If you (and 
your kids) can get used to that, then the 
rest is easy. 



Good Points 

The program generates easy-to-read 
large (5/8 inch for numbers in fractions, 
two inches for whole numbers) numbers 
on the screen, and a random tone ticking 
sound while it's waiting, as well as a bugle 
charge when your answer is correct, and 
other miscellaneous sounds. 

If you get a problem wrong (it informs 
you), the program goes into its waiting 
mode. It will explain step-by-step how to 
do the problem as long as you press a key 
each time to continue. 

One nice feature is that a correct but 
unsimplified answer is not counted as 
wrong. Many programs will accept only 
the simplified answer, which can be frus- 
trating for a child who has done the work 
of combining the fractions, but because 
he neglected to simplify, gets no credit for 
his work. In Fractional Sound, if you com- 
bine the fractions correctly but neglect to 
simplify, you are told to simplify your an- 
swer and continue. 

On occasion during the drill, a graphics 
character (Marley Mole) appears to en- 
courage you. He wants you to come out 
and play a game with him. 

At the end of the drill is a little 
game— fence In the moving dot {Marley 
Mole) without getting trapped first. It's a 
nice little game, appropriate for the 
intended age level of Fractional Sound.! 



"In Fractional Sound, if you combine 

the fractions correctly but neglect 
"^r^ - to simplify, you are told 
to simplify your answer and continue. " 
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Put Your Fingers On 
The Pulse Of Wall Street 

With Your 
Radio JhaeK Computer 



If you invest in the market, operate your own busi- 
ness or require updated information quickly to 
manage your affairs, Dow Jones Information Services 
provides the authoritative busmess and financial in- 
formation you need. . .from Wall Street, Washington 
and around the world. Now Radio Shack owners 
can receive this valuable service through TRS-80® 
Videotex® software. 

Get Information For Business And 
Investment Control. . .On Command 

Discover how quickly and easily your personal 
computer turns into a specialized, sophisticated 
library of informahon with access to the Dow 
Jones database. It's considered the world's most 
reliable and comprehensive source of business 
and financial data providing you with news 
up-to-the-minute as well as from the pre- 
vious 90 days. 

Now you can review thousands of items 
from The Wall Street { ournal , Barron's and 
the worldwide Dow Jones News Service 
without having to maintain piles of news- 
paper clippings. Information about com- 
panies, stocks, labor, government, interna- 
tional market and monetary developments, 
and so much more, is yours on command. 

Quotes From Four Exchanges 

Now, in just seconds, you can obtain cur- 
rent prices and the volume traded for 
stock quotes {15 minutes delayed) on over 
6,000 companies. - .plus 50 key financial in- 
dicators on 3,200 selected firms and 180 in 
dustries. You'll also have access to trading 
information on mutual funds, treasury 
notes and bonds. 



Imagine being able to spot trends, research a com- 
pany, obtain data that could affect your business, 
your investments, your mvestment decision-making. 
But vou don't have to imagine anything. . .Dow 
Jones Information Sen-nces provides it all right now. 

Low Start-Up Cost. . .Free Password. 

Stop bv vour nearest Radio Shack store and 
find out how easy and inexpensive it is to get 
Dow Jones investment data through TRS-80 
Videotex. Videotex software for Radio Shack 
computers ts only $29 95. Whafs more, you 
get a Dow Jones password absolutely 
free. . .along with one hour of free in- 
troductory time. And there are no 
start-up or minimum usage charges, 
In addition, software and usage costs 
will be tax deductible in many cases 
(consult your tax advisor for further 
information) . 

Customer Support. . . 
Just A Phone Call Away. 

Dow Jones' professional customer 
ser\'ice staff is ready to prox-ide com- 
plete information about this impor- 
tant home information service now. . . 
and full customer support after 
you've made your purchase. 
Just cali loll free. . . 

800-257-5114 

In New Jersey call: 
(609) 452-1511. 

TR&-80. Radio Shatk and Videotex are re^islered tradi'marks i;l Tandy Ci.)rp. 




DOWX)N€5 INFORMATION SEPyiC€S 

Providing Informofion Through hrx)vQtion 

Dow Jones & Company. Inc. ^42t 
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Space Shuttle 
Instant Software 
Peterborough, NH 

$14.95 

by Jon Lindsay 

When the space shuttle Columbia 
hurtled toward Earth, I experienced 

■'its shock wave as It descended over Cali- 
fornia's Big Sur to land at Edwards Air 

., .Force Base. So I waited for the arrival of a 
program named Space Shuttle, which sim- 
ulates the flight of the Columbia from Earth 
orbit to a landing at Cape Canaveral. Why 
the landing was not simulated for Ed- 
wards Air Force Base is a mystery whose 
answer is known only to the program au- 
thor. 

To measure how well the operator per- 
forms during the sirriulation, score is kept 
of the pilot's performance during several 
phases of the flight and tfie score totaled 

''after the simulation is over. I was im- 
pressed by the lack of emphasis on the 
game aspect. I would rather spend my 
time mastering the task being simulated 
than compete against the computer. This 
chance to assume the role of an astronaut 
will highlight some of the problems, mo- 
notony and excitement of guiding this rev- 
olutionary craft to a safe landing. 

About the Program 

The viewer is initially faced with three 
selections on a menu. The first selection 
is a flight from space to a landing at a 
spaceport. The second is called "long ap- 
proach." You descend from about 100,000 
fGet to the spaceport, approximately 220 

n^ileS away. The final selection is a 
straight-in landing from about 28 miles 
but'.- The second and third options are real- 
lyjyst portions of the full flight, isolated 

. for the ease of adjusting the pilot to flying 
this "brick with a engine." True to life, you 
must "dead-stick" the Columbia— bring it 
ip with almost no power. Not being an as- 
trophysicist, I have no way of knowing 
how accurate the flight path algorithm is. 
But it appears to conform to some obvi- 
ous rules. For example, the atmosphere 
extends to an altitude of about 58 miles. 
Since Columbia initiates its flight several 
hundred miles up, it will behave like a 
spi?cecrai; above 58 miles and like an air- 
plane beiow that figure. Such seems to be 
the case in the program. In space, only 
thrustiers can be used to guide the craft; in 
the atmosphere, more conventional con- 
trot&>a^ be used. 

are four distinct phases to the 



• In space— thrusters must be used to 
control the reentry configuration and 
temperature. 

• After reentry but above 58 miles- 
loss of some thruster effectiveness, 
though they are still the only means of 
control. 

• Below 58 miles — complete thruster 
ineffectiveness but craft can now pitch 
and roll as needed: Altitude is in miles, un- 
til 100,000 feet. 

• Final approach — landing gear and 
speedbrakes can be used: Also, there is a 
yaw control for fine-tuning the approach. 

Inside Columbia 

You are presented on your flight screen 
with a primitive graphic view of the 
horizon, a set of controls and some sens- 
ing instruments. There is little animation 
through the split window of the shuttle, 
except for the horizon, which moves only 
up and down in a horizontal plane. Rolling 
the shuttle does not affect this plane. 

The sensing instruments feed the pilot 
pertinent data: 

• Altitude/entry vector; 

• Airspeed/velocity; 

• Heading; 

• Glide (rate of descent); 

• Time; 

• Temperature; 

• Pitch and roll values; 

• Pitch and roll indicators; 

• Latitude and longitude; 

• Artificial horizon; 

• Distance to spaceport; 

• Localizer indicating distance off 
centerline of runway; 

• Stall indicator; 

• Temperature warning; 

• Status of landing gear; and 

• Status of speedbrakes. 
Command line single key entries are: 

• (P)itch — raise and lower nose; 

• (R)oll— left or right bank; 

• (T)hrust— control pitch and heading 
above 58 miles; 

• (Y)aw— minor heading corrections 
without rolling; 

• Trac(K)— check in to tracking stations; 
and 

• {G)o— accelerate the flight-phase up- 
date at will. 

At the bottom of the screen is the com- 
mand line that allows the pilot to control 
the flight attitude of the shuttle and report 
at the appropriate times to the tracking 
stations. Except for the lack of feel of the 
shuttle, everything is there on the flight 
panel to permit the astronaut to guide the 
shuttle to a safe landing. It is more dif- 
ficult to perform this flight than one would 
imagine. 



Flying the Columbia 

There are several aspects that differ 
from the airplane. The most striking dif- 
ference is the surfboarding effect of the 
shuttle as it approaches reentry, if the en- 
try phase is not carried out with precision 
and diligence, Columbia will skip off the 
atmosphere into space never to return 
again. On reentry the craft's hull shields it 
from heat. 

Orientation and reality can be lost during 
the reentry process. I imagine this feeling 
might be similar to the experience of Co- 
lumbia's pilots. This is because the scope 
of reentry is larger than your perceptions. 
This is not a fly-it-by-the-seat-of-your- 
pants operation, so it becomes necessary 
to fly the shuttle "by the book" — flying the 
shuttle to conform to a set of computer- 
generated coordinates that appear to 
make no sense. A sort of blind trust seems 
to be involved, a faith in computation. 

Guiding an aircraft using heading, lati- 
tude and longitude bearings requires you 
to think of the Earth as a globe striped 
with markings bearing latitude and longi- 
tude. For the purposes of this simulation, 
the space shuttle is required to fly over a 
series of tracking stations along the reen- 
try path. Not all of the check points are 
straight ahead. The pilot must manipulate 
the shuttle to guide it over these points. 
Once over the tracking station, he checks 
in via the command line. The computer 
tallies his performance throughout the 
reentry process and assigns performance 
points for how close the shuttle comes to 
overflying various check points. 

Your performance score is based on a 
possible 1,000 points: Reentry is allotted 
100; general flight, 100; navigation, 400; 
and landing, 400. Points are deducted as 
you commit astronautical malpractice 
such as stalling or overheating the craft. 
The flight conduct after reentry and the 
final approach and landing are also evalu- 
ated. 

The spaceport runway is located on lon- 
gitude 60.65 degrees west. The shuttle 
lands to the north, or on runway 36. Your 
approach on final is made at a heading of 
zero degrees, using the yaw control fre- 
quently to fine-tune any course correc- 
tion. 

It is here something should be said 
about navigation. The secret to flying the 
Columbia is understanding your spatial 
orientation. When heading 90 degrees 
(due east), the shuttle parallels latitude. 
When heading zero degrees (due. north), it 
parallels longitude. This is great to know 
since any course in between simultane- 
ously affects latitude and longitude. 
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The complicated nature of the naviga- 
tion makes it necessary to prepare in ad- 
vance where you want to be and when. I 
found it extremely helpful to create a flow- 
chart of what I was supposed to do to be 
where I was supposed to be at the right 
time. Even then, it was difficult and taKes 
some practice. 

An inspection of the check points re- 
veals the space shuttle is traveling west 
(where longitude is larger) to east, and 
south (where latitude is smaller) to north. 
If you visualize this flight path, you have 
made a significant step in solving the nav- 
igational problem. 

Once proper entry has been made, the 
message "Orbit Achieved" is printed. 
There is no indication when you are going 
to hit the entry window, only that you are 
so many feet above or below the window. 
If you arrive at the window but are too high 
or low, you could lose control of the shut- 
tle. This is the reason for getting down to 
business the moment you initiate the 
flight. Getting the "Orbit Achieved" mes- 
sage assures you that you have passed 
through the window and are within the 
grasp of the earth^s gravity. The nose is 
manipulated to adjust the shuttle's speed 
as you approach the first tracKing. This is 
the most southwestern tracking station 
you must report to. Immediately past this, 
you take a heading of 70-80 degrees to 
move your craft northeast toward the next 
station. South Texas Radio. Watch the 
nose temperature! If you overheat, you 
will be warned (and you will lose points in 
the scoring). Remembe', this scoring is 
not a game; it is a measure of your perfor- 
mance. 

The next tracking station, U.S.S. Taft, 
lies in the Gulf of Mexico. And the final 
check-in is made to the U.S.S. Fairchild off 
the coast of Florida. Once this is made, 
start a left turn for the final approach. This 
turn will take you off your easterly head- 
ing toward the north. Your final approach 
will be on a due north heading. A localizer 
data display will tell how far off to the left 
or right of the centerline of the runway the 
Columbia is. 

Once on the final approach, you still 
have problems. Proper velocity and head- 
ing have to be maintained, while the alti- 
tude is taken into consideration. Remem- 
ber, you are dead-sticking the shuttle in! 
The mam chore here is to get on a proper 
glide path and hold it. Ideally, within 100 
miles the shuttle's speed should be 
aiound 2.000 mph and its altitude at about 
twotolhree miles. Twenty-five miles out, 
tht ';peed should be around 400 mph and 
the altitude at about one mile. Lower the 
gear and adjust the speedbrakes again. 



As you near the approach of the runway, if 
you are in the final glide pocket, control of 
the space shuttle is taken over by the auto 
pilot and it completes the landing for you. 
If all has gone well and the auto pilot 
has landed the shuttle, the computer 



"Because you landed 
safely does not. . 
mean that you will 
have a good score/' 



gives you a report (score) of your perfor- 
mance. If not, probably one of the follow- 
ing has taken place. 

What Can Go Wrong? 

The first and most disquieting event oc- 
curs during reentry. As mentioned before, 
if the entry vector is made too high for or- 
bital insertion, the shuttle may skip back 
into space. If too low, it may burn up in the 
atmosphere. In eithercase, the simulation 
ends. 

While making a descent from about 200 
hundred miles up, I allowed the nose to 
pitch up too high. I compounded this ad- 
ding even more down thrust, forcing the 
nose still higher. The stall warning went 
unnoticed and so did the stalled indica- 
tion. When I finally noticed the pitch in- 
dicator, it was moving through 600 
degrees, the airspeed was 160 mph and I 
was dropping at a rate of 35,000 feet per 
minute. I interpreted this interesting 
maneuver as tumbling. 

The reason for arriving at this attitude 
wasdue to my forgetting how much thrust 
was given and in which direction. There is 
no indication that a thruster is firing once 
you have fired it. And a thruster fires con- 
tinuously until you neutralize it with op- 
posite thrust. So applying five units of 
down thrust, then giving the same com- 
mand again results in 10 units of down 
thrust. You can see the result of this by 
watching the pitch data. As many as 100 
units of thrust are allowed at any one in- 
put. But the units may be additive. This 
was another good reason for maintaining 
an accurate flight log. 

The most obvious problem is naviga- 
tion. You can deviate from course by a 
considerable distance. If you fly south of 
latitude 21.5 degrees north or north of 
latitude 28.7 degrees north, you will be 



given an Off Course warning. The effect of 
this wandering can make getting to the 
runway difficult. And speaking of off 
course, being on the final approach does 
not mean you will arrive at the runway- 
First, you have to move onto the center- 
line of the runway. A problem I had was 
losing altitude. Arriving at the approach 
end of the runway at 24,000 feet is a little 
embarrassing. Of course, you are permit- 
ted to circle and with that much altitude, 
there should be no problem. But there is. 
As the shuttle plummets towards earth, it 
seems to be very sluggish. It is big, heavy 
and fast. f\flaking a circling approach over 
the runway was difficult for me. I had trou- 
ble realigning the shuttle back onto the 
centerline. There is a lot of inertia there. 

The so-called straight-in landing is 
anything but easy. A common problem 
was overshooting the runway because of 
too much altitude. You certainly can do it 
while the instruments faithfully log your 
position. A message appears if you land 
off the runway. Landing short of the run- 
way is considered a poor landing. Landing 
too hard could destroy the shuttle. In 
other words, just trying to get the space 
shuttle in a configuration allowing the 
auto pilot to take over becomes an ex- 
hilarating event. And if you have forgotten 
to put the landing gear down, it is a little 
messy. When the shuttle is on the runway 
you must endure the computer's measure 
of your performance— whether it was 
good or bad. Just because you landed 
safely does not necessarily mean that you 
will have a good score. 

Conclusion 

Space Shuttle is a different sort of 
simulation. There are no sophisticated 
graphics. One nice feature of the copy I 
received was it was written in Basic, mak- 
ing fine-tuning easy. On the other hand, 
being written in Basic possibly was a 
restrictive influence on the design of the 
program presentation. 

Since it is in Basic, it might be in- 
teresting to see how the program would 
work if one is fortunate to have a Basic 
compiler available, modifying the ap- 
propriate timing loops where indicated. 1 
am not that eager to try to rewrite what is 
already a well thought-out algorithm, nor 
to try to make any particular adjustment in 
the program. If one was inclined to do so, 
it should not be an impossible task. 

As for the program's space algorithm, 1 
thought it was terrific! It seemed plausibly 
accurate. All in all, left exactly like it is 
noVi/, it is quite entertaining. For those of 
you with an itch to pilot the Columbia, this 
is the program for you.H 
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The Scott Adams' Adventure series announces the release of 
Adventure #11 "Savage Island, part 2" and Adventure #12 "Golden Voyage". 

For The • TRS-80 • APPLE • ATARI • $19.95 tape 

Also available on Bonus Triple Pack Disk Adventures #10, #11, and #12. ^222 
For the TRS-80 and Apple $39.95 
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The Stone of Sisyphus carries you to the "thinking man's" dungeon. A subterranean 
v^orid of monsters, magic, traps and treasures demands brains rather than luck to survive 
(of course, you might take along your mace just in case. . .). 



MACES t MAGIC are fantasy adventufes involv- 
ing yuu tind you' Lomputer ArrneO only wilh you' wils, 
d mitfocompuler. and the sotlmare provideO. you can 
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buildbie weapunb dnd armor, and enter Ihe dungeon in 
search ut tame and loriune Neilhei is pariitularly 
t-.i^v lu olilain 

II you art SULcesstuI m avuiding or conqutring 
Hie udnous monsters (raps enchanimenib and iliu 
sions set by our nelanous dungeonmasiers. you niay 
fSL,dpO with riches and glory Your name and deeds 
wiH be recorded tor poslerily in Ihe records ol Itie 
dungeon More importantly you II be alive Vou may 
then use Ihe same character m his more experienced 
and weallhy (orrn when you enter dungeons on later 
occasions 

The otiiect ol the whole enercise is nol lusi to 
light Ihe roonsiers and collect treasure You nave to 
get (jut dlive to en|oy il In every dungeon there is ai 
ii-dst one eiil II is possible lo escape Irom each and 
I'vi'iy dungeon vvilh a whole skin We Stale thai lad 
riere be<.duse players o'len tielieve this not lo be true 
We really aren 1 out to get you Not really 
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TWO FULL DISKS WORTH OF DATA!! 



A compacted daia struclure makes it possible lo 
run ihis lantasy on a single disk drive, though 2 tull 
diskettes worth ol daia are supplied Expanded use ot 
tree form input puts your ingenuity to an even greater 
test The responsiveness ot Ihe programs to the in- 
dividual qualities ol Ihe character make this adven- 
ture Irustralmgly enjoyable lor hundreds ol hours_ 
belore its secrets can be unlocked 
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by Dennis Kitsz 



Autumn will be upon us soon, but the 
nights are already longer than the 
days in Roxbury, since it nestles between 
two ranges of the Green Mountains at the 
headwaters of three rivers. Across the 
street, the mechanic is putting the ciap- 
boards on his solar-powered, micropro- 
cessor-controlled garage. As if to com- 
pete with that technological neighbor, the 
sunflowers are reaching to top last year's 
highest bloom, more than 14 feet. All 
these simultaneous occurrences could 
mean just one thing — it's time for the sec- 
ond annual Autumnal Equinox Hardware 
Festival! 

You can keep the soldering irons cool, 
though, because this month's column is 
(by popular demand, no less) an illustrat- 
ed introduction to electronic hardware- 
resistors, capacitors, transistors, diodes, 
integrated circuits, and displays. There 
won't be a heavy dose of theory, just a 
simple rundown on identification of parts, 
how to read their values, and what they 
look like. 

Your basic TRS-80 Model I keyboard unit 
consists of 59 capacitors, 11 diodes, 6 
transistors, 76 resistors, 82 integrated cir- 
cuits, switches, sockets, a crystal, and a 
fistful of connection hardware. If this 
quick list of contents doesn't conjure up 
any mental images of particular parts, 
then this column is for you. 

What's an IC? 

An integrated circuit (IC) is a black box, 
figuratively and most of the time literally. 
Once upon a time, there was a great, am- 
bitious space program, one that required 
a lot of electronia in a very small capsule 
that also contained a fairly bulky human. 
Electronic engineers set about to minia- 
turize as much of the electronia as possi- 
ble, whittling the metal cans off individual 
transistors and stuffing several of the 
transistors together wherever these indi- 
vidual paris had some logical relation- 
snip Gradijally the engineers came to 
understand that general-purpose circuit 
building blocks could be built inside a 
V- single metal or plastic package, saving 
both valuable space and a lot of piece- 
meal wiring. They concluded that only 
those circuit connections which had to be 



mated to other circuits needed to be 
brought to the outside of these combina- 
torial black boxes. 

The technical prowess to achieve this 
integration of parts came slowly at first, 
especially since the industry had only very 
recently learned how to produce indivi- 
dual transistors reliably. To produce 10 or 
15 or 20 transistors joined together, all 
perfect, was a major achievement as 
significant as a man first stepping on the 
surface of the moon; the whole story can 
be read in a special issue of Scientific 
American (September 1977), but for the 
moment consider this remarkable fact: 
The 16K bytes of memory inside your run- 
of-the-mill TRS-80 contain the equivalent 
of over 140,000 transistors. A complete 
TRS-80 system with disk drives and printer 
would boast a miniaturized body of nearly 
a million individual transistors— and 
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Fig. 1. Mostek Co. Memory Circuit Chip 
(Scientific American, 1977). 



every one must be perfect for your low- 
cost personal computer to operate. 

If you are not in awe of this achieve- 
ment, give up one of those 16K RAMs 
which now cost less than $2 each in sets 
of eight; carefully crack open its cover just 
above the external pin connections. Get a 
jeweler friend to help if you haven't got 
steady hands. Now take a look at Fig. 1, 
which shows what you've got inside that 
memory circuit on a three by five-millime- 
ter chip of little more than refined sand. 
That's a remarkable technical achieve- 
ment, I think you'll agree. 

Integrated circuits come in a variety of 
purposes, voltages, interconnection char- 
acteristics, and shapes and sizes. With a 
few exceptions, the purpose of those in- 
side your TRS-80 is as digital building 
blocks; they operate from a five-volt power 
supply; they directly interconnect with 
each other; and they are produced in 
industry-standard, dual-inline packages 
(DIPS). The TRS-80 ICs that don't fit this 
mold are its voltage regulators, which are 
not digital circuits; its program memories, 
which need 12 volts, 5 volts, and - 5 volts; 
and the cassette and video input/output 
control ICs, which do not connect directly 
to the others. 

Photo 1 shows a group of integrated cir- 
cuits. The first row across the top is the 
bank of eight 16K dynamic RAMs (read/ 
write memories) used for program memo- 
ry inside the TRS-80. The next row con- 
tains eight IK static RAMs, used for the 
video memory. You can't tell much about a 
chip by looking at its shape, as these two 
similar rows demonstrate; shapes are part 
of an industry-wide standard which speci- 
fies that the external pin connections are 
spaced 1/10 inch apart. Three different 
widths of the dual-inline packages (DIPs) 
are used, depending on the number of 
pins. 

The remainder of the integrated circuits 
in the picture have been chosen to give a 
general view of the variety of functions 
similar-looking ICs may have. The two 
white integrated circuits are in gold- 
topped ceramic packages. The. first is a 
seria4 keyboard encoder (it scans a key- 
board and outputs a stream of bits repre- 
senting the key pressed) and the second Is 
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TRS-80 PROGRAMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE DISK-OPERATING SYSTEM 

LDOS™ 

A completely documented new generation of 
operating system for the TRS-80. Far superior to 
any on the market. It is a totally independent 
device system, capable of device linking, routing, 
setting, and filtering. LDOS will support 5 and 8" 
floppies, single/double density, single/double 
sided, and up to 80 tracks. Full customer service 
provided with a toll free 800 number. Excellent 
documentation in a tab indexed manual (over 250 
pages). Call or send for more information today. 
Available for Model i 

or 111 onivsiag.oo 

LDOS"^ is a product of 
Logical Systems Inc. 



ALSO AVAILABLE 

EDAS 3.5 Model I and ill. . . $79.00 

EDAS 5.0 Model II S179.00 

Host Model II was S199.00 

now S99.00 



BUSINESS SYSTEMS 

INVENTORY MASTER SYSTEM 

With today's market, keeping on hand only what 
your demand calls for is reason enough to let 
your TRS-80 accurately and effectively take care 
of yourinventory. Always know what to stock and 
when to stock it. This system has many features 
which were modeled after a main frame system 
of large capacity. More information available 

upon request. 

Model I version just S159 00 

Model III version just $259.00 



ALSO AVAILABLE... 
For the MODEL I or III 

STOCK MARKET MONITOR 

Cassette version S89.00 

Disk version S99.00 



MAILING SYSTEMS 
MAIL/FILE - SERIES II 



NEW Series II Mail/File has all of 

the outstanding features of the 

original Series I Mail/File, PLUS 

many additional qualities which 

again will set standards for 

this type of system. Word 

processor" type input editor, 

fast sorting, and fabulous 

editing capabilities are a 

few of its features. Name 

and ZIP code are under 

constant sort. Series ii is 

compatable with Series I data files. 

Model I system will handle up to 600 names. 

Model III system will handle up to 1200 names. 

Either system available for only $159.00 

Also available for the Model II S199.00 

THE ULTIMATE IN MAILING SYSTEMS 

MASS/MAIL SUBSCRIPTION SYSTEM 

AVAILABLE FOR MODEL II. 

) tninK rue system will stand tne rest of time . it is proDabiv 
ttte most sophisricatea system arouna for trie micros toQay 
Mike schmiat ieDITORI sous Jan/Fea pg. 94 

Calactic's Mass/Mail System was designed with 
the needs of the large mailing list in mind. This 
system has capabilities of handling up to 10,500 
records, with access times of less than 1 5 seconds 
and usual access of about one second. All adds, 
deletes and edits are Instant for the operator and 
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MAILING SYSTEMS 

are then completed later In a 
batch mode' . The System 
comes complete with exten- 
sive documentation and on- 
going support 

contact Galactic Software 
for detailed specifications 
for your exact needs. Avail- 
able only for the TRS-80 
Model II. 

ULTRA-TREK GAME 

can you master this 

trip through the galaxies? 

Climb aboard the Star-ShIp Enterprise and head 

for a universe of unknown encounters, enemies 

and stellar battles. As commander, will you be 

able to keep the Enterprise and Its crew en 

route and on patrol? Can you destroy the 

hostile base? Order today. 

Model I or III version only S19.95 

All Of Calactic's products have a one year 

limited warranty with customer support included 

with each purchase. Warranty information is 

available upon request in writing. 

Money orders, credit cards, & cod s shipped 

within 24 hours- 

cantwait? 
call 

414/241- 8030 

TRS-80 A Trademark of Tandv Carp 
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.f: Photo 1. Integrated Circuits 

an industrial type 8060 microprocessor. 

Next in the plioto is the heart of the TRS- 
80— a Z-80 microprocessor in a black 
plastic package. All three are in 40-pin ar- 
rangements. 

Following are two chips used in 
8080-based computer systems; a 28-pin 
8251 serial interface, and a 24-pin 8212 bi- 
directional buffer- These chips permit an 
8080 microprocessor to talk to the outside 
world in different ways. The third row 
shows a pair of 24-pin integrated circuits 
containing Level I Basic. Next is a 2716 
erasable, programmable, read-only-mem- 
ory (EPROM) with 2048 bytes of informa- 
tion in a 24-pin grey ceramic case; the 
EPROM may be programmed and erased 
by a user. The last three ICs are a three- 
state buffer 81 LS95, which is an ideal tool 
for interfacing theTRS-80 edge card to the 
real world; an ordinary transistor-to-tran- 
sistor logic (TTL) circuit, from which fami- 
ly over 60 of the ICs inside the TRS-80 are 
drawn; and a 1024-bit shift register, which 
sends bits along in a bucket-brigade-like 
stream. Finally, turned sideways in the 
photo are two !C-like parts. These are DIP 
shunts, groups of metal bars which may 
be broken by puncturing. These are inex- 
pensive programmable switches used in 
iKci computer to connect together cir- 
cuitry which Level I or Level II Basic, 4K or 
16K memory. 

Reading ICs 

Occasionally you may see a magazine 
article which describes a modification 
you'd like to make to your TRS-80. Don't 



be afraid to tackle it (once you've checked 
the Debug column for the next two 
months). For hardware newcomers, the 
most fearsome part of going inside a com- 
puter seems to be that anonymous, 
threatening, indistiguishable mob of in- 
tegrated circuit black boxes. Actually, 
they're really quite tame. Every integrated 
circuit inside the TRS-80 is marked in two 
ways. The first marking is a "Z" number 
silkscreened on the circuit board, which is 
a simple way of referencing its board posi- 
tion; this number can also be found on the 
schematic diagram. The second marking 
is the combined industry-standard part 
number, manufacturer code, and dating 
code. The code for Z44 stamped on the IC 
may look something like this: 

SN74LS367N 
7914 

By cross-checking the Z number in the 
TRS-80 parts list, you will find this is a 
74LS367 tri-state hex buffer (whatever that 
means). The number itself (74367) is an 
industry-standard, generic type number in 
the 74xx series of logic circuits; the LS is 
an abbreviation for low-power Schottky, a 
specific family within this generic circuit 
tape (you may find LS, C, H, L, S, or no let- 
ters at all). The SN prefix in the code is the 
manufacturer's identification (Texas In- 
struments uses SN, Signetics uses NE, 
etc.); the suffix letter is the package style 
(N means dual-inline plastic). Finally, 7914 
is a date code in year/week format (the 
part was manufactured during the 14th 
week of 1979). So the part number 
SN74LS367N 7914 tells us that this circuit 
is a low-power Schottky-type tri-state buf- 
fer in a plastic dual-inline package, manu- 
factured by Texas Instruments during the 
14th week of 1979 (whew!). 

There's an easier way to discover the 
part type. Look through the Z numbers, ex- 
amine the integrated circuits on the 
TRS-80 circuit board, and reference the 
parts list (pages 93-98 in the Technical 
Reference Handbook). You should get a 
feel for how part numbers are printed and 
how to read them. Occasionally you will 
find a part number with no relationship 
whatsoever to the generic number in the 
parts list; the schematic also does not 
match the part on the board. In this case 
you are probably looking at a "house-num- 
bered" IC; house numbering is done when 
a customer (in this case, Tandy Corpora- 
lion) orders a large quantity of parts, and 
the manufacturer's production run is dedi- 
cated exclusively to that order. House 
numbering is often found on the TRS-80's 
video memories. 

"Reading" an integrated circuit is easy, 
since they're all numbered the same way; 
see Fig. 2. The IC is positioned by finding a 
notch or a dot conspicuously placed 



toward one end; look down from the top 

(some ICs have both a notch and a dot). 
This is the keyed end of the IC. With the 
notch or dot pointing north, pin 1 is to the 
west. Pin 2 is to the south of pin 1; pin 3 is 
next to the south of pin 2; etc. 

When you get to the bottom of the IC 
(say at pin 8 on a 16-pin DIP), the next pin 
is immediately to the east (say 9), Pin 10 is 
to the north, 11 north of that. The highest 
numbered pin always ends up opposite 
the lowest numbered pin. It's done in a 
"square circle". 

If you read an article that says, "solder 
a wire to pin 12of Z44", you would start at 
the top left and count 'round the bottom 
until you reached 12. That's the place. 

The Logic Blocks Inside 

Digital logic is a subject I've covered 
before (see "80 Applications," May and 
June, 1980, March, 1981, and accompany- 
ing hardware construction projects), but 
this time I'll describe the hardware from— 
as much as possible— a software ap- 
proach, and with lots of analogies to 
everyday situations. Let's start with some 
simple logic functions: AND, OR, Exclu- 
sive OR, and NOT (complement). 

Four simple AND, OR, Exclusive OR, 
and CPL (complement, or NOT) calcula- 
tions using only two binary digits are 
shown in Example 1, 

These are the truth tables for single bits, 
something with which machine-code pro- 
grammers will be very familiar. Basic 
users, too, have the AND, OR and NOT 
functions available. For each truth table, 
there is an equivalent, commercially 
available, logical integrated circuit (Exam- 
ple 2). 

Some integrated circuits contain multi- 
ple inputs— the 741 1 three-input AND gate, 
the four-input 7420 NAND gate, the three- 




fleaa This Way 

Fig. 2. How to read integrated-circuit pin 
numbers. 
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ow's your 
love life? 




A little dull around the edges? 

Routine? Predictable? Boring? Maybe 

all it T>eeds is a little Interlude, Interlude is 

the most stimulating computer game ever conceived 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn yoitf love life into exciting, adventurous, delicious fun! 




interlude Is: romantic, playful... outrageous... a fantasy Interlude is: HA Bed of Roses (Inter- 
lude #1) ■ Mata Hari l!nterlude #49) ■ The Chase (Interlude #7) ■ Rodeo! {Interlude #71) ■ The King and I 
(Interlude #60) ■ Some Enchantfd Evening (Interlude #84} ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30} ■ Satin Dreams (Interlude #72). 



More than 100 Interludes are included in the program. Most are described in detail in the accompanying manual. 

but several surprise Interludes are buried in the program awaiting that very 

special time when your interview says you're ready. (When you learn secret 

Interlude #99, your love life may never again be the same!) Interlude 

can give vuu experiences you'll never forget. Are you ready for if^ j^^ Ultimate Experience. 



Interlude 



INTERLUDE. Dept. 80. 10635 Richmond Avenue. Houston, Texas 77042. I'm really ready. Send my Interlude today. 
Apple II {16K)' TRS-80 (Model 1. 16K)** Poster AvaUablefor Immediate •hlpnent. 

_ Cas^itv ($18,95) Cassette ($18 951 C 20'x 24 " reproduction of 

Diskene ($21.95) i . Diskette {$21 95) this ad without ad copy Please enclose your check payable to INTERLUDE 

IJisketie — Pascal or DOS 3.3 ($21.95) ($4.95 — includes or complete "the charge infornialksn: 

Add $1.75 for shipping and handling, shipping charges) 

D MASTERCARD C VISA All charge customers must sign here.- , '- 

Account No. ,_ Expiration date MasterCard Bank Code _-— 



CHARGE CUSTOMERS: Order by phone toll fret-' 1-800-231-5768 Ext. 306 (Texas: 1-800-392-2348 Ext. 306) 

Name — ^ — ^ . Age 

Address - . 

City 



State 



Zip 



•Apple II is a re^lered trademark of Apple Computf rs. Inc. •TRS-SO is a registered trademark of Radio Shack, a Tandy Co. 
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Example 1. Binary Digit Calculations 




Nol (CPLl Gate, Genenc'lype 7404, 6 gales par 1C. 



Firat Diflil - 
Second DlQlt ■ 




A^ND Gale, Generic type 7406, 4 Qatea per IC, 



First Digit ■ 
Second Digit ■ 




■ Result 



OB Gate, Generic type 7432, 4 gales per IC. 



First Digit ■ 
Second Digit ' 




■ Result 



XOR Gate, Generic type 7466. 4 gales per IC. 



Firal Digit ■ 
Second Diflil - 



z> 



NAND Gate, Genenc type 74O0, 4 gates per IC, 



First Diflit 
Second OiQil 




NOR Gale, Generic type 7402, 4 gates per IC. 



First Dlrjll ■ 
ijecond Digit ■ 




XNOR Gate, Generic type 74266, 4 gates per IC. 

txampte 2. Equivalent Integrated Cir- 
cuits 

■ 'kipift 7427 NOR gate, etc— which have 
the effect of applying the logic function to 
all inputs. The 13-input 74133 NAND gate 
would perform this function: Input 1 AND 
Input 2 AND Input 3 AND Input 4 AND In- 
put 5 AND Input 6 AND Input 7 AND Input 



8 AND Input 9 AND Input 10 AND Input 11 
ANDInput12ANDtnput13 = Result. then 
CPL (NOT) the result. It does this, inci- 
dentally, in less than 15 billionths of a sec- 
ond, 30 times faster than the Z-80 chip 
could perform the same function! 

Still other ICs may combine gates, such 
as the 7464 (see Fig, 3), This gives the 
single-digit result of tfiis complete logic 
equation: 

y = N0T((AANDB ANDCANDD10B(EANDF)OR(G 
AND H ANDI)OR(J ANDK)1 

Okay, stay with me. Like they say in 
those ads for clothing patterns, if I can 
sew, you can sew. Same goes for this digi- 
tal hardware; but put me inside a ham 
radio, and I'm thoroughly lost. This digital 
stuff is easy, however, since it just in- 
volves transferring the logical theory you 
already know into a different form, a form 
that looks like electronics. By way of 
tangential explanation, let me digress a 
bit about functional fixedness. We all con- 
sciously tend to limit our vision or imagi- 
nation, mostly because it's the easiest 
way to make sense out of the world 
around us. That's okay for basic survival, 
but consider: A spoon alone is great for 
soup, but if used with a dash of human im- 
agination, two spoons can make music. 
Who thought of that? Not the same per- 
son who turns junk car bumpers into 
sculpture, but the principle is about the 
same. Here's another thought: Until a new 
liming belt arrives, my printer's carriage 
return functions because I have nylon 
string attached to the print head, looped 
over a pulley, and weighted down with a 
paper punch. It works, with no fancy eiec- 
tronia. Think about this: if thumbs were 
the key factor in the evolution of humans 
from lower animals, then binary is a truly 
unnatural number system. If it's un- 
natural, then no matter how it's trans- 
formed, it's legitimate if we need it that 
way. Now back to digital logic. 

Consider this listing: 

LD A,VALUE 

RRCA 

OUT PORT,A 

What is being output through port A? 
Assuming A is greater than two (hex 10), 
then RRCA (rotate accumulator to the 
right) performs a binary division by two, 
(For those unsure about this, consider 
that the number 57440 decimal when ro- 
tated to the right would be 05744— divi- 
sion by 10. It works the same in base two.) 
There's a digital circuit that can perform 
this same division-by-two function, and 
it's called a flip-fiop. It's a permanently 
hard-wired RRCA function, and it's shown 
as a box. 

A positive-going pulse going into its 
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74S64(N) 

Y = ABCD-fEF + GHI-(-JK 
Fig. 3. A 7464 IC 

clock (CLK) input causes the output to 
toggle once (0 to 1). A negative going 
pulse has no effect. A second positive- 
going pulse causes the output to toggle a 
second time (1 to 0). For every pair of one- 
zero patterns as its input, a single one-zero 
pattern appears at the output— division by 
two, electronic style. Oh yes— there's also 
a clear (CLR) input to keep the division 
from happening when you don't want it. 
Fig. 4 shows a generic type 7473 flip-flop, 
with a clock and clear input, plus "J" and 
"K" inputs, which represent the initial set- 
ting of 1 and 0. Q and Q-bar (the Q with a 
line over it) represent the output in its 
"true" form, plus in complement form— a 
bonus provided by many integrated cir- 
cuits. Eight flip-flops are like having a pro- 
cessor with both an accumulator and a 
complement accumulator available at the 
same time. 

Last among logic circuit considera- 
tions for this brief introduction is the con- 
cept of a three-state device. The first and 
second logic states are 1 and as you 
know, but the third state is a kind of elec- 
tronic invisibility. In a computer, many 
electronic circuits must share the same 
group of address and data lines — the ad- 
dress bus and the data bus— but only one 
may actually use the bus at a given time. 
With more than a dozen devices connect- 
ed to the data bus in the TRS-80, a terrible 
electronic confusion would result if they 
all tried to submit their information to the 
central processing unit (CPU) simultan- 
eously. 

To avoid this conflict, electronic de- 
signers devised an Invisible logic state. 
Liken the computer control circuitry to the 
traffic light at a complex intersection, 
where only one line of traffic receives a 
green light, while all the others receive a 
red light. Assuming no suicidal or reck- 
less drivers and no right turn on red, then a 
driver with a green light may continue 
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Fig. 4. 7473 F lip-Flop 

through the intersection as it there were 
no other cars present at all (that's not ex- 
actly true according to my drivers manual, 
but please accept the analogy). When the 
light changes, traffic stops in one direc- 
tion and starts in another. In the elec- 
tronic intersections of the computer, 
signals may be output by just one device 
when it receives the proper signal. 

To carry the traffic analogy further, 
recall that most traffic signals have an 
amber warning light. In real-life situations, 
cars slow down (or speed up to get through 
the light before it turns red). Cars on the 
other side inch forward upon seeing a hint 
of that amber signal. This is analogous to 
the rise and fall time of data signals run- 
ning through the computer, that safe peri- 



od during which signals may change logic 
state from 1 to or from to 1 with no 
conflict. 

One final analogy: Those of you who 
have driven in New York City know that the 
traffic signals are timed so well that a 
drivercanstart in the financial district and 
drive clear through to Columbus Circle. 
Under these conditions the car maintains 
a constant speed akin to that of the 
changing traffic signals; all other vehicles 
can keep the same speed (or at least out 
of your way); and no emergencies— police 
cars, accidents, or breakdowns— impede 
the car's progress. In the computer, this is 
known as "access time." All electronic 
parts must be able to complete their re- 
sponses throughout the system in at least 
as fast as the master traffic signal, the 
"system clock." Any part whose access 
time is too slow {like some RAMs) will 
have an adverse effect on the operation of 
the computer. 

Narrow Streets and Garages 

Resistors and capacitors are abundant 
in the TRS-80, but I'll keep the theory at a 
low level for this section. Resistors limit 
the voltage or current received by some 
part of a circuit. They can be found provid- 
ing limited current to light-emitting diode 
displays (LEDs), holding an IC input to a 
oneorzerolevel.oraspart of the audio cir- 
cuitry in the video output. Variable 
resistors serve as adjustments to the 
video display or to ttie power supply volt- 
age being sent to the computer as a 
whole. They act like narrow city cross- 
streets, where only a limited number of 
cars can move across town from the large 
potential auto-streams flowing along 
main avenues. 

Capacitors store an electrical charge, 
releasing it as needed. Capacitors inside 
the TRS-80 store power supply irregulari- 
ties, effectively smoothing them out; they 
delay the transfer of current from one 
logic IC to the next (to adjust the horizon- 
tal or vertical video image, for example); or 
they store and release energy at regular 
intervals to provide clocking signals (what 
keeps your disk drive on for an extra few 
seconds, or times the characters being 
output by your printer). 

A collection of resistors is shown in 
Photo 2. At the bottom right is a group of 
simple resistors, varying in size according 
to the amount of current they are capable 
of handling without overheating. Small re- 
sistors are most commonly available as 
carbon composition (inexpensive, packed 
carbon) and carbon film (resistive film 
plated on a non-conducting base). Small 
resistors make up the bulk of those in the 
TRS-80. 
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Photo 2. Resistors 



~, The large vertical row of resistors the 
[Shoto depicts are heavy-duty wire-wound, 
porcelain, ceramic,"and "sand" resistors. 
These types are used wherever heavier 
currents are required; a few ceramic ones 
are found in the TRS-80 power supply. 

At the bottom left are three dual-inline 
(DIP) resistor packs that look like ICs, and 
one -iiingle-mllne (SIP) resistor network. 
Oitw, digital circuits will require a string 
of "^'Jl-up" resistors, needed to activate 
or keep-stable some part of the circuitry. 
Pull-up resistor values are often the same 
for all eight data lines, so groups of identi- 
cal resistors are combined in industry- 
standard packs such as these. In a TRS-80 
system, you may be familiar with the so- 
called "terminating resistors" required in 
disk drive 0. In the photo, this is the blue 
DIP resistor pack, which is made up of 
eight 150-ohm resistors. 

Finally, variable resistors (also called 
potentiometers) are shown in the top right 
biock of the photo. A standard radio 
volume control is followed by eight dif- 
ferent styles of "trimmer" potentiometers. 
The white one at the top right is similar to 
those in the TRS-80 for power supply and 
video positioning adjustments. 

The schematic symbol for a resistor is a 
crunched-up wire, representing its resis- 
tance to the flow of electricity (Example 3). 
Variable resistors can be drawn either 
with an arrow showing they are "center- 
tapped" (a connection to either end of a 
fixed resistor, with a wiper moving in be- 
tween! or merely variable (a single connec- 
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Example 4. Variable Resistors 
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Fig. 5. Resistor Chart 



Photo 3. Capacitors 



tion to the fixed resistor, and one to the 
wiper} (Example 4). 

Reading resistance values is quite sim- 
ple, and has been an industry standard for 
several decades. Resistor values are mea- 
sured in ohms, and these are painted on 
the body of the resistor with color-coded 
bands: The first and second bands are the 
resistance value base number, the third 
band is the power of 10 by which the base 
number is multiplied, and the fourth band 
(if any) is the accuracy of the resistor. Fig. 
5 is a table of color codes. Resistance 
values are usually standard multiples, and 
the most common base values are 10, 12, 
18, 22, 27, 33, 39, 47, 56, 68, 75, 82 and 91. If 
you can't figure out which direction to 
read the color bands, try both ways, then 
see if the base number matches one of 
those above. Otherwise, borrow an ohm- 
meter. 

On precision resistors {those with one 
percent accuracy), the values are usually 
printed in numbers. Thus, 220 would be 
220 ohms, 473 would be 47,000 ohms, etc. 
Variable resistors always have their nu- 
merical values printed or embossed on 
the body of the part. In schematics, the 
values are written with standard abbrevia- 
tions K and M (kilo = 1,000; mega = 
1,000,000). 15,000 ohms is written "15K 
ohms"or simply "15K." 1,200, 000 ohms is 
written "1.2f>^ ohms" or simply "1.2M." 
Occasionally you may come across Brit- 
ish schematics, which do not follow the 
American standard. 4K7 is a mildly con- 
densed way of saying 4.7K, or 4700 ohms, 
3M9 is3.9M ohms, etc. 

For a while, capacitors were also color 
coded, but this practice has not caught on 
in the computer electronics industry. 
Photo 3 shows a small selection of the 
manj shapes and styles in which capaci- 
tors are manufactured, including (top to 
bottom by columns) dipped paper, tanta- 
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Photo 4. Electrolytic Capacitors 



Photo 6. Diodes 
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Photo 5. Light Emitting Diodes 



lum, ceramic, polycarbonate, polystyrene, 
bead tantalum, ceramic disk, silver mica 
and paper. Tlie general physical construc- 
tion is similar — layers of foil are separat- 
ed by non-conducting material (dielectric). 
The material used, its thickness, and the 
number of layers determine the amount of 
current the capacitor can store, and the 
amount of voltage it can stand before the 
dielectric shorts across. 

In general, ceramic disk capacitors are 
used wherever only ball-park capacitance 
is needed. These caps are temperature 
sensitive and have a tolerance of ± 20 per- 
cent or worse. Paper capacitors are good 
for higher voltages, and dipped paper 
caps are fairly stable. Polycarbonates and 
polystyrenes are used in audio circuits be- 
cause of their cleanness and low noise. 
Silver mica is the choice for close toler- 
ances (within five percent or better), and 
bead tantalums work well wherever precr- 
sion, durable high-capacity parts are 
needed. The TRS-80 uses ceramic disk ca- 
pacitors throughout, except in its power 
supply section. 



Capacitor values are marked in frac- 
tions of a farad. Now, a farad is one heck 
of a lot of capacitance; look at Photo 4. 
These are electrolytic capacitors, where 
the current capacity is increased by using 
a chemical dielectric. The one on the far 
right weighs in at half a pound and is less 
than one-twelfth of a farad! The smallest 
capactor In Photo 4 has a value of five 
microfarads, and the smallest capacitor 
in Photo 3 has a value of 10 picofarads. 
Capacitor values are abbreviated mf, uf, 
or ixi for microfarads, and pf for pico- 
farads. Sometimes the f is capitalized 
(mF, pF), and older texts occasionally use 
the term micromlcrofarad In reference to 
picofarad. 

Numerical abbreviations in picofarads 
are found on capacitors like those for 
ohms on resistors— 474 will mean 470,000 
pico farads (0.47 microfarads), and so 
forth. Again, British standards are some- 
what different (and even more sane): 
Since the most-used capacitor values are 
midway between the picofarad range and 
the microfarad range, they will write these 



Photo 7. Transistors 



values In nanofarads. So don't be thrown 
if some peripheral devices specifies a "22 
nP" capacitor— it means .022 micro- 
farads. 

The symbol for a capacitor shows its 
function well. Two current-carrying plates 
are separated by a non-conducting mate- 
rial. Electrolytic capacitors are marked by 
a positive ( + ) sign toward one end to in- 
dicate their placement in a circuit (Exam- 
ple 5). 



+ 



Example 5. Capacitors and Eiectrolytic 
Capacitors. 
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Example 6. LED 

Choosing Replacements 

There may come a time when you have 
to replace a resistor or capacitor in your 
computer. To do this you must obtain a 
part of equai or better quality than the one 
you are replacing. For resistors, ask for car- 
bon film, 1/4 watt, five percent tolerance, 
which can be found as pan of the Radio 
Shack 271-1300 series. If the Technical 
Reference Handbook specifies wattage 
higher than 1/4 watt, make sure you get 
the higher wattage or else you'll watch the 
resistor darken, smoke, and snap in half. 
You may, on the other hand, substitute a 
higher-wattage resistor for a lower- 
wattage one if it physically fits in place. 
Make sure that the resistance you choose 
is within five percent of that specified, 
unless you are familiar enough with the 
circuit that you know you can substitute 
another value safely. 

When you replace capacitors, 50-volt 
ceramic disks are fine for the small ones 
scattered throughout the board. Radio 
Shack sells these in its 272-120 series. The 
Technical Reference Handbook parts list 
specifies 12-volt types for about 30 
capacitors, but erring in the direction of a 
higher voltage is wise. Where 16-volt elec- 
trolytic capacitors are specified, 25 or 
35-volt replacements will do fine. Also, 
since electrolytic capacitors have a per- 
centage of error of + 100, - 50 percent at 
best, don't hesitate to replace a 220 mf 
capacitor with a 270 mf capacitor. 

Displays 

One of the prettiest parts of electronics 
is its human interface— light-emitting 
diode (LED) and neon displays. Photo 5 is 
a collection of these displays, including 
(at the top left) 10 red, orange, and green 
single LEDs, from jumbo to micro sizes; 
(second row) nine seven-segment numeric 
LEDs; (third row) three seven-segment, 
multi-character, "bubble" type displays, 
popular in calculators a few years back; 
(fourth row) a jumbo seven-segement LED 
and a multi-character neon display; (ver- 
tical row at right) three larger neon dis- 
plays from desk calculators; (top center) a 
bar-graph LED used for hi-fi level controls 
in place of meters. 

The schematic symbol for a light-emit- 
ting diode is the same as that tor a diode 



(see Example 6), with a few arrows repre- 
senting light emission. 

Diodes and Transistors 

Diodes and transistors are the building 
blocks of logic gates and other integrated 
circuits, but I've left them till last because 
you will find so few of them in your com- 
puter. Photo 6 shows (at top) three bridge 
rectifiers, which contain four diodes each; 
(left group) zener diodes, used for control- 
ling voltages; (middle group) smali-signal 
switching diodes, found in certain inter- 
facing and logic circuits and for switching 
unwanted signals out of a circuit; (right 
group) rectifier diodes, for transforming 
alternating current top pulsing direct cur- 
rent. The larger diodes at the right can 
handle higher power. 

The schematic symbol for an ordinary 
diode consists of an arrow pointing at a 
bar, showing that electricity may only flow 
in one direction through these device. You 
may see either of the two symbols in Ex- 
ample 7; the surrounding circle is more 
common in older schematics. There are 





Example 7. Diodes 

variants on these diode symbols, the most 
common of which is that for the zener 
diode. A zener diode conducts electricity 
in onedirection until the voltage rises over 
a critical point. Then it undergoes a tem- 
porary breakdown, letting the voltage con- 
duct backwards through the device, tt is 
an electronic safety value. The broken 
lines at the edges indicate a zener diode 
(Exampie 8). 




Example 8. Zener Diode 

Transistors were the breakthrough over 
30 years ago that made your TRS-80 possi- 
ble. Although you will find few individual 
transistors inside present-day computers, 
there are still some used for non-logic 



functions. In Photo 7 you can see three 
general types; (top row) audio transistors; 
(second row) tour small-signal switching 
transistors; a tiny radar transistor; and 
five high-power transistors. 

Transistors usually have three leads, 
because they are switching or amplifying 
devices. Two of the leads represent entry 
and exit points of some type of circuit; the 
third lead controls the flow of current be- 
tween the entry and exit points. Switching 
transistors flip on and off almost full; 
audio transistors follow the waveform pre- 
sent on the third lead and mimic its level. I 
won't go further with the theory because 
of the many types of transistors, and the 
numerous considerations needed to de- 
sign circuits using them. Among the sche- 
matic diagrams, see Example 9. 





Example 9. Transistors 

More to Come 

In a future column (I'm not promising 
next month anymore!) I'll present a run- 
down on what to do when your computer 
breaks down, oome precautions to pre- 
vent it, and, when things get desperate, 
what replacements you can make that will 
get you up and running. Included will be 
how even a rank amateur with 10 thumbs 
(except my friend Paul) can remove and 
replace a bad iC. 

Updates. 

I'd tike to thank the hundred or so 
readers who wrote after reading my report 
of the minimal response to February's 
reader survey, and to those who reacted 
with dismay at my suggestion (in July) 
that I might be moving away from writing 
about the TRS-80 Model I in favor of the 
Color Computer. Yes, I probably will, and 
here's why; I feel the Color Computer is 
faster and more powerful than f^odel I, II 
or ill. More on that sometimes later. 

To those who wondered: Yes, the inter- 
view with Dr. Lirpa was an April Fool joke. 
No, it wasn't a five-volt salami, it was a 
daisy ham borrowed from the Roxbury 
Country Store (thanks, Neal). Yes the pro- 
gram does increase keybounoe rather 
than feliminate it. No, the photo wasn't a 
secret shot to me, it was my wife Claire 
(put on your glasses, folks!). ■ 
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The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



^ 



What's the key to getting the most from your TRS-80? No, 
it isn't disk drives or printers or joysticks. It's information 
Without a continual supply of information and ideas, you 
can'l realize the full potential of the TRS-80. 

Now , you'd think that the 150 pages of a^ticle^ publi-shed in 
80 Microcomputing each month would satisfy even the must 
voracious of THS-RO usen. But no! You've a;>ked for e\en 
more information! 

Our respoase to the clamor for additional information is 
the Encyclopedia for the TRS-80, a ten-\!ilunic rcfereiKr' 
work that m, absoKitd) packt-d with programs and articles 
carefully selected to help you make the most of your 
microcomputer. You can coasider the volumes of the Ejwv- 
clopcdia to be an extension of the documentation that came 
with your TRS-80, The articles ant] programs will tx'simihir 
to those found in 80 Microcomputing, tacli bot>k Ls lull of 
material on programming techniques, busintss. games, 
tutorials, education, utilities, interfacing you name it. 

Unlike conventional encyclopedias, the Encyclopedia for 
the TRS-80 will ne^'er become stale or out of date. That's 
because the volumes of the Encyclopedia are lieing Ivsiied 
one-at-a-time, over a [wriixl of months. This means that eucli 
new volume will reflect the latest developments and 
discoveries, making this a living encyclopedia for TRS-80 
u.sers. 

Volume 1 was out in July, Volume 2 will be shipped in 
September, Each volume will contain approximately 270 
pages of solid information . . no adv'ertising. Here's a sample 
of whafs included in Volume I: 



The Encyclopedia for the TRS-80 is available in two edi- 
tions. The deluxe COLLECTORS EDITION is a handsome 
green and black hardc-over volume, with the title stainixti in 
gold and a colorful protective dmt jacket provided. TIicm.' 
durable volumes are perfect for school and library use and 
make a handsome addition to your personal librarv , The\ arc 
available for $19.95 [ler \olume. Also available is the rniire 
economical softcover edition. This contains all the mforiiia- 
linn in the hardctiver edition, but at a savings of over 4.5'i It 
is ruggedlv bound for heavy u.se and has an attractive green. 
ivor\', and gold cover. Available for $10,95 [xr volume. Both 
editioas are in an easy- to-read 6"' x 9" format which isi»erfect 
Ixiund to remain flat wlten opened. 
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Four Graphics Methods— Improved 
techniques for dealing with the 
TRS-80s low resolution graph- 
ics. 

TTY Interface — Build an interface 
hookup a Telet)pe to a TRS-SO 

The President Decides— A thrilling 
simulation that lets you make de- 
cisions as if you were President of 
the United States 

Measure Instructional Effectiveness 
~ Many programs teach or tutor; 
this one helps determine the ef- 
fectiveness of the lessons. 

The Invoic-e — A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Di.sks— Double 
your disk storage in seven easy 
steps 



THE Encyclopedia for the TRS-80" 

' ES, please reserve lof me a complete set of the first ten volumes of itie Encyclopedia lor the TRS-80 

I want 10 go first class so send me Ihe deluxe nardtjountl COLLECTOR'S EDITION— a $199 50 value for 
t184.00 postpaid. A total savings of 134 % over tne single volume price! lOnde) ENBIOO) 
_ Send me Ihe ■blue collar "aoflcove'ediiion— (tie same inlormaiionai asutisianiially lo*er price, ati09.50 
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"(Please enclose ii 5C per volume for shipping and handing An volumes win tie stiipoed UPS t1 tt»e roTun-l'- 
siieei address is S'ovided; otherwise shiprnenl is by 4ih class booti rate ) Allow 23 weeks for delivery- 
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Networks Wire You to the World 



Strung out between the terminals and 
microcomputers ot America and the 
computer banks of The Source, Compu- 
Serve and several hundred other timeshar- 
ing services worldwide, are thousands of 
miles of leased telephone lines. 

Originally designed for use by larger 
computers, this international system of 
linked common-carrier networks and the 
vast majority of the databanks they serve 
are compatible with TRS-80s and Tandy's 
Videotex terminals. 

While most services are specialized, 
their large number ensures that they have 
something to offer everyone, whether it's 
timely legal advice, medical information 
or a handy way to communicate with 
r.omeone overseas. 

The networks cut the cost of reaching 
the data banks. Some of them can handle 
certain compatibility problems between 
different computers and protect data from 
transmission problems ranging from line 
noise to physical breaks in the cables. 

Most users, however, are only aware of 
the service they are subscribing to. 

Earty Experiments 

Common carrier data transmission net- 
works like Tymnet and Telenet grew out of 
experiments in the late 1960s and 1970s. 
Telenet. Vienna, VA, was one of the first 



experiments which went public after sev- 
eral years of successful private operation. 

Lawrence G. Roberts, one of the net- 
working pioneers involved in Telenet from 
the start, writes in his article "The Evolu- 
tion of Packet Switching" [IEEE Pro- 
ceedings, June 1978) that the networks 
are based on a very different approach to 
communications than that used for most 
electronic communication methods. 

Telephones, Telex and most radio 
transm]Ssions, for instance, are pre- 
allocation methods. That is, a transmis- 
sion channel is allocated exclusively to 
each user, either on a permanent basis as 
with commercial radio frequencies or on a 
per-use basis as with the telephone. Even 
If the assigned user is not communicating 
at a given moment, no one else may use 
any part of the channel allocated to him. 

An alternative to this method is 
dynamic allocation which incorporates a 
time-sharing concept. This is the system 
used by telegraph and postal systems. 

Rather than giving each user a direct 
link to the person he wishes to commu- 
nicate with, these systems allocate chan- 
nels only after a message is received. The 
messages ate moved from point to point 
(for example, post office to post office) 
within the system until they reach their 
destination. The system does not provide 



a direct, complete link between message 
sender and receiver. 

While both kinds were tried for comput- 
er networking, a form of dynamic alloca- 
tion called packet switching proved to be 
more effective. This method was devel- 
oped simultaneously in the mid-1960's in 
Britain by Donald Davies of the National 
Physical Laboratories, who named the 
system, and in the US by Lawrence G. 
Roberts at the Advanced Research Proj- 
ects Agency (ARPA), Cambridge, MA. 

Both these networks consisted of com- 
munications cables connecting minicom- 
puter packet switches. To use the system 
you call the nearest packet switch, tell It 
who you want to contact and give it the 
message you want to send. It chops your 
message up into discreet packets, each a 
standardized size. Davies' network, for in- 
stance, used 128-byte packets. 

The network determines the optimal 
path for the message, and the computer 
feeds the packets out to the next switch in 
that particular path. This method allows 
each packet to be checked to make sure it 
has not been garbled and determines the 
route for the packet to the next switch. 

While Davies wrote the original design 
for the network, European communica- 
tions people were slow to recognize its 
value, and Davies was only able to set up a 
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one-switch network to connect the com- 
puters at the National Physical Labora- 
tories. 

Launching ARPANET 

The story at ARPA was different. In 1968 
work began on the development of a 
packet switching network to connect 
computers involved in ARPA-sponsored 
research at several major universities. The 
result was ARPANET which used 50 kilo- 
bit per second (kbps) leased lines and 
minicomputer packet switches. H went in- 
to operation in December 1969 with just 
four client computers. By March 1977 it 
had 111 connections. 

ARPANET proved dependable and 
demonstrated several advantages over 
pre-allocation networks. It made more ef- 
ficient use of the leased lines which, in a 
period of increasing iine costs and de- 
creasing computer costs, means savings. 

Since each switch or node checks each 
packet and can get a retransmission from 
the sending node if it detects an error, it 
guards against transmission garbles. It 
routes each packet separately, so it 
reacts instantly to overloads and even 
physical breaks in the transmission lines. 

The ARPANET and National Physical 
Laboratory experiences encouraged 
others, particularly in France, Germany, 
Canada and Japan, to start networks. By 
1974 five were being planned, and those 
involved decided it was time to agree on 
standards so they would be able to inter- 
connect. 

By March 1976 they had formed the 
CCITT, an agency of the United Nations 
based in Geneva, Switzerland, and agreed 
to Recommendation X.25, which estab- 
lished basic rules tor making networks 
compatible. Because of this foresight, to- 
day there are 35 countries worldwide con- 
nected by networks. 

At this point the groundwork was fin- 
ished, and public packet-switching net- 
works began to develop. In most countries 
these were sponsored either by the na- 
tional government or the national tele- 
phone monopoly. The Trans-Canada Tele- 
phone System, for instance, started Data- 
pac, the dominant network in Canada, in 
1974. 

Things developed differently in the US. 
According to Roberts, the developers of 
ARPANET offered to sell the system to 
American Telephone and Telegraph 
(AT&T) in the early 1970's In the hope it 
would become the basis of a public net- 
work. AT&T was uninterested. 

At that time, however, the Federal Com- 
municalions Commission (FCC) made 
some changes in its regulations designed 



to increase competition in the communi- 
cations field. These allowed ARPANET to 
go public on its own in 1973 under the 
name Telenet. 

Competition Emerges 

Meanwhile, Tymeshare Corp., Cuper- 
tino, CA, a timesharing company, had 
founded its own private packet switching 
network to serve its customers in 1969. 
According to company spokesman Dick 
Jokinen, "One day someone came along 
who wanted to use our network to reach 
their own computers." 



Tymshare was interested, but this 
would make it a common carrier under 
FCC regulations. In order to comply with 
these rules, they split Tymnet off as a 
wholely-owned subsidiary in 1977. 

While Tymnet is a packet-switching net- 
work and is fully compatible with interna- 
tional standards, it is significantly differ- 
ent from Telenet in several ways. For one 
thing. Tymnet uses 66-byte packets. 

Also, it is more centralized. While Tele- 
net depends on its thousands of nodes for 
all routing and other computer functions, 
Tymnet uses a combination of packet 



Dr. Lawrence Roberts, 
The Quiet Revolutionary 



Dr. Lawrence Roberts is an easy-going 
man. To talk to him you would never 
think him a revolutionary. Yet, he is one of 
the original developers of the packet net- 
working concept and the designer of the 
first operational packet system. 

Today, as president of GTE's Subscrib- 
er Network Projects division at Vienna, 
VA, he remains intimately connected with 
the network he started at the Advanced 
Research Projects Agency (ARPA), Cam- 
bridge, MA, in 1967. 

Roberts said the groundwork for Tele- 
net was laid while he was with MIT's Lin- 
coln Laboratory, Lincoln, MA. "We had 
pretty well developed time sharing in the 
research community in the early 1960s, 
so I felt that was going to happen in the 
business world, but I wanted to go further 
and access computers remotely." 

Can Computers Communicate? 

The first question to be answer was 
whether the computers would communi- 
cate at all. No one really knew. MIT had a 
mainframe computer in Lawrence and an- 
other in a laboratory in California, and 
Roberts hooked them together using a 
leased telephone wire, "to see how the ma- 
chines would react." 

"At that point I concluded it was feasi- 
ble to link machines," he said. "Then I 
started worrying about the networking 
aspects of it." 

Eventually he developed the concept of 
packet networks. He said it is natural for a 
computer person to think of digital com- 
munications in packets instead of in ana- 
log streams. Roberts wasn't the only one 
working on this idea, but he didn't discov- 
er that until after he had finished his 
design. 

"There were other activities going on. 



particularly in England, and we corre- 
sponded, but they were not doing any 
building," Roberts said. "We had already 
finished our conceptual work when we be- 
came conscious of their conceptual work. 
It also turned out Paul Barron had written 
some things in the early 1960s for the Air 
Force, but no one had heard of that until 
after our network was designed." 

Unlike the others, Roberts didn't just 
leave his network on paper. In 1967 be 
joined ARPA, a group which, among other 
things, sponsors research on several uni- 
versity campuses. He interested them in 
the idea of building an experimental net- 
work to link computers, and ARPANET 
was born. 

Selling the System 

It wasn't quite that simple, actually. 
While Roberts and, apparently, his bosses 
at ARPA believed in the concept, virtually 
no one else did. 

"The communications community 
{which was telephone at that time) 
thought it would never work," Roberts 
said. "They have a certain model and 100 
years of working with circuits of their kind, 
and they couldn't see it." 

Roberts met with a different kind of re- 
sistance from the universities. "They were 
violently against It," he said. "They 
thought 1 was crazy." 

Each university wanted to have com- 
plete control over its own system and did 
not want to share anything. At the same 
time, none of them believed that any of the 
others would have anything interesting to 
offer. 

"That quickly changed when they found 
other people had exciting things and they 
could do research through the system." 

ARPANET paid another dividend in 



54, • 80 Microcomputing, September 1981 



50 NEWS 



terms of savings. "We developed ARPA- 
switching minicompulers and a central 
bank of four mainframe "supen/isors." 
These keep track of the condition of tfie 
system. 

When you call Tymnet and tell your 
local node what timesharing service you 
want, it tells the supervisor. The super- 
visor establishes the route your data will 
follow. The supervisor also steps in to re- 
route data if a line is broken or some part 
of the network is blocked. 

The nodes take care of establishing 
packets, checking them for transmission 
errors and retransmitting them whenever 
necessary. As with all other packet switch 
networks, its nodes handle several calls at 
once, operating like an electronic post of- 
fice. 



Today Tymnet uses more than 700 

nodes, services more than 350 host com- 
puters and can carry more than 4,000 
simultaneous users. It reaches about 250 
US cities. Telenet, a division of GTE Corp., 
Stanford, CT, reaches about 300 cities and 
carriers 200 timesharing services. 

Presently these networks are all using 
leased telephone lines to carry their 
transmissions. Roberts estimates that, 
depending on the kind of data being sent, 
packet switching makes from three to 100 
times better use of its lines due to the effi- 
ciency of time sharing. 

The extra computer needed for packet 
switching also costs money, but it is 
cheaper than the rising cost of transmis- 
sion lines. 

Because of this, packet switching be- 



came more cost effective than prealloca- 
tion several years ago. Roberts predicts 
that as that gap widens virtually all elec- 
tronic communications will be by packet 
switching. 

2001 

Roberts also predicts the eventual 
replacement of telephone leased lines 
with a variety of more efficient alterna- 
tives. He says as traffic grows, present 
trunklines, which work at 56 kbps, will be 
replaced with T1 digital trunks which 
operate at 1.544 megabits per second, 
allowing a great increase in the transmit- 
ting capacity of the system. 

He also says satellite transmission will 
become economically feasible for long- 

Conlinues lo page 56 



NET as a research tool and to access the 
research sites in the community," Roberts 
said. "One of the goals we had was to 
lower the cost of computer resources, and 
we did that by a factor of three by allowing 
universities to share resources instead of 
duplicating them." 

ARPANET also quickly dispelled the 
worries of the communications engineers 
who had said it would not work. It did not 
lose packets; it did operate smoothly and 
efficiently. 

Ma Bell's Reaction 

ARPANET did not impress everyone, 

however. One group that was not excited 
at all was American Telephone and Tele- 
graph, the parent company of Bell Tele- 
phone, as Roberts found out when ARPA 
tried to sell the network to them. 

"The Bell lab's evaluation said it wasn't 
compatible with anything else in the Bell 
network," Roberts said. "Actually it 
wasn't incompatible with their network— 
we were using rented Bell lines— it was in- 
compatible with their thinking." 

Bell apparently had decided back in the 
early 1960s that the Sherman Anti-Trust 
legislation made it impossible for them to 
get involved in data networks, so they nev- 
er did any research in them. They have 
lived to regret that decision. 

Today they are struggling to develop 
their own packet network under the name 
Advanced Communications Systems 
(ACS). Roberts says they are still putting 
hundreds of man-hours into designing the 
system and are at least two years away 
from building it. Meanwhile both Telenet 
and Tymnet, Cupertino, CA, are operating 
smoothly. 

One way or another digital data transfer 



will take over, probably in this decade. 

"For the home market it will take 
longer." Roberts said. "In business it is 
happening very quickly, as businesses go 



' ^Actually it wasn 't 

incompatible witti (Bell's) 

network — 

we were using rented 

Bell lines — 

// was incompatible with 

their thinking. " 



to leased lines connecting buildings full 
of terminals to the network directly." 

The problem with the home market is 
the microcomputers are spread out. To 
solve this, GTE, the Japanese and several 
other groups are working on digital tele- 
phoning. In fact, the Japanese telephone 
company is presently installing a small 
operational digital telephone system. 

GTE is working on a method to allow 64 
kilobit (kb) data transfer through paired 
wire, an idea which Roberts terms quite 
feasible- He said the system would actual- 
ly work at about 200 kb, but would be alter- 
nating so you could transmit in one milli- 
second, receive in the next. 

Roberts envisions a telephone-comput- 
er terminal combination of the future 
which would handle both voice and digital 
data transfer at the same time, to and 
from different destinations. 

It would, for instance, tell you while you 



are taking one call that someone else is 
calling. It would get the caller's name and 
number and tell him you are on a call and 
either put the caller on hold or call back. If 
he wanted to send a written message, he 
could enter it and your phone would store 
it for you. 

If you had a list of people you needed to 
talk to, you could have your phone send a 
packet to their phones and find out who is 
free. Your phone would then make voice 
contact automatically. 

Your phone would also be able lo take 
and store messages and communicate 
with time-sharing computers over the net- 
work. It would be able to tell callers if you 
are unavailable and when you will become 
available. It will be able to direct them to 
another phone where you can be reached. 

Roberts said the cost of lines makes it 
absolutely necessary the two systems, 
voice and data, be combined, although il 
is not impossible that voice transmission 
would remain analog for some time and 
the two methods would simply share the 
same cables. 

Roberts is working in the forefront of 
this development with GTE. He is respon- 
sible for the development and marketing 
of hardware that will complete the digital 
communications revolution. 

He remains optimistic about the future 
of packet switching. "It's my belief that 
the only way to handle data is to do the 
economics and the protocol conversions 
(to allow different machine to communi- 
cate with each other)," he said. "It will 
continue to be the major and probably the 
only ^A'i to handle data. There's' really no 
other way to do it."H 

by Bert Latamore 
80 Microcomputing staff 
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Ethernet Alive at Stanford U. 



Local networking may be the hottest 
thing in business communications 
since the telephone. A network changes 
the microcomputer on an executive's 
desk from an isolated business machine 
into an integral part of a company-wide 
computer system. 

it allows an executive in his office in 
one building to instantly send written in- 
formation, charts, diagrams, worksheets, 
etc., to another executive in another office 
in another building. 



^^ Ethernet is one of. 
20 to 30. .systems 



It allows him to compose a letter, cor- 
rect it himself, then send it directly to a 
spinwriter in the mailroom for printing. It 
allows him to receive up-to-the-second in- 
formation from the firm's central data 
banks on any aspect of his company's ac- 
tivities from parts in stock to the book bal- 
ances whenever he needs them. 

Such a tool creates a large business 



market, and many firms, from large com- 
puter manufacturers like Digital Electron- 
ics Corp (DEC) to tiny components 
makers, have developed networks and are 
supporting them with the necessary hard- 
ware and software. 

Ethernet 

One of the most Interesting of these is 
Ethernet Several manufacturers, includ- 
ing Xerox, DEC and Intel have promised to 
provide support to it. 

This network, developed by Xerox, is 
barely out of the experimental stage, and 
most components are not yet available for 
it. An experimental version is running at 
Stanford University, Stanford, CA. 

The Stanford Ethernet is a three mega- 
bit system, and the equipment and soft- 
ware used were part of the experimental 
system Xerox built when developing the 
10-megabit Ethernet. Xerox donated the 
experimental equipment to Stanford, Car- 
negy Mellon University and MIT. A group 
at Stanford has been working with the ex- 
perimental system. It is operating suc- 
cessfully, interconnecting 25 computers 
on campus. The object of the experiment 



Networks 

continued from page 55 

distance transmissions when the excess 
data flow exceeds 100 packets per second 
between two cities. Because of the built-in 
270 ms delay in one-way satellite trans- 
missions this would not be acceptable for 
transmission of interactive traffic but 
could be used for batch data transmis- 
sion. 

Roberts also spoke of packet radio with 
local distribution systems. Local distribu- 
tion Is the most expensive part of a net- 
v^ork. In this alternative to land lines, 
several clients would share a frequency. 
Each would broadcast to the node only 
when it actually has data to send, he says. 

Tymnet recently announced it was try- 
ing a packet radio system m San Francis- 
co and a satellite link between San Fran- 
cisco arvd New York City. The experiments 
follow a January FCC ruling reallocating 
the 10.55 to 10.68 GHz RE spectrum to 
digital efectronic message services, both 
for local distribution microwave transmis- 



sions and satellite communications. 

As the cost of copper continues to in- 
crease and the cost of computing drops, it 
becomes easy to visualize a future in 
which dynamic atlocation networks domi- 
nate telecommunications. Cable tele- 
vision (and radio}, with its promise of 
unlimited channels, is growing rapidly. 
Packet switching could greatly improve 
its economics. 

Even telephone service may go this 
way. tHowever, Roberts says, voice 
transmissions cannot be condensed as 
much as digital transmissions can, so 
such a change may not be economical in 
the near future, especially as it would in- 
volve the complete rebuilding of a large in- 
place system. Because of this, electronic 
mail sent through packet networks may 
become serious competition for the tele- 
phone. 

Whatever the future, the networks are 
here today which provide a doorway to a 
whole new world. • 

by Bert Latamore 
80 Microcomputing staff 



is to determine whether Ethernet or Ether- 
net-type network technology has a place 
on Stanford's campus. 

10,000 Computers Expected 

The current population on campus of 
250 computers and around 2,000 termi- 
nals is expected to grow to something like 
10,000 in 5 to 10 years. They hope to devel- 
op a network or system of networks to al- 
low most Of all of these to interconnect. 
While a single Ethernet system would not 
be able to connect all the computers 
spread out around the several-acre Stan- 
ford campus, it could be used on a more 
limited scope In a single building or a 
large number of Ethernets could be linked 
together to do the job. 

Simple Packet System 

Ethernet is a packet system but with a 
much simpler and more limited method of 
operation than the intercontinental com- 
mon-carrier systems. When you send a 
message through Ethernet, the system 
chops the message up into packets in- 
cluding addresses indicating what stop 
on the system the message is being sent 
to. Then it inserts your packets into the 
stream of packets running through the 
Ethernet cable. 

So far its operation closely resembles 
the common network. However, the Ether- 
net arrangement does not include any 
packet-switching computers, and all 
packets follow the same path through a 
single cable. 

Each client computer on the system 
reads the addresses of every packet going 
past- If the packet is for it, the computer 
captures and stores it. H not, it passes it 
back into the system. 

Ethernet by itself is even more limited 
than that. Ethernet is not a complete sys- 
tem; It provides only the bottom two of the 
seven levels of "protocols ' or software 
and hardware packages needed for a total 
network system. What it does do is give 
you the connection devices to attach your 
machines to a cable and the interfacing 
software to allow it to create and address 
the packets. 

It does not include application pro- 
grams, for instance, which would instruct 
machines on how to communicate with 
each other. Ethernet is meant to'provide a 
common network base over which the net- 
working of different firms' machines can 
be accomplished. 
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This does not mean that DEC machines 
will be able to taii< with Xerox comput- 
ers—unlike the common carrier networks, 
Ethernet does not handle any interfacing 
problems. These are talten care of by the 
higher level protocols which the Ethernet 
package does not include. 

Ethernet also does not Include any pro- 
vision for confirming that the receiving 
machine gets the message sent to It. If 
that machine is turned off or malfunction- 
ing or if one of the packets are addressed 
incorrectly, the message will never arrive, 
and without some kind of confirmation 
the sender will not know this. This must 
also be included in the higher level pro- 
tocols. 

Physical Limits 

Ethernet has physical limits as well. It is 
a baseband system as opposed to a 
broadband system. This is like a tele- 
phone line which is a baseband system 
able to handle comparatively few mes- 
sages at once while a television cable is a 
broadband system able to carry hundreds 
of channels simultaneously. 

Additionally a single system cannot be 
more than 2,500 meters long. You can con- 
nect several Ethernets together using 
"gateways," however. These are devices 
used to interface different networks. Al- 
ternatively, an Ethernet system can be 
connected to a different kind of network, 
including the common carrier networks, 
using gateways which would translate be- 
tween Ethernet and the other network's 
protocols. 

Not On Market 

Part of the problem with determining 
the economics of the system is that the 
commercial hardware and software is not 
yet on the market and not expected to be 
for 18 to 24 months. 

Meanwhile, Ethernet is only one of 
some 20 to 30 possible networking sys- 
tems, each with their own advantages and 
disadvantages. Some, like the Tymnet lo- 
cal network which is really a smaller ver- 
sion of Its common carrier network com- 
plete with packet switches, have much 
greater capability In terms of area covered 
and number of machines it can handle. 

Others, like Omninet by Corvus Sys- 
tems, which does not even use coaxial ca- 
ble but runs on simple twisted pair wire, 
have less capablllly than Ethernet but are 
probably less expensive. 

The question is what system fits the in- 
dividual's needs and pocketbook. ■ 

by Bert Latamore 
80 Microcomputing staff 



Four Hundred Databases 
Await Your Microcomputer 




CompuServe, The Source and, recent- 
ly, the Dow Jones Electronic News, 
have received a great deal of press atten- 
tion as interactive electronic information 
services for general microcomputer use. 

They are, however, only the start of the 
list of available data bases. Several hun- 
dred of these exist in 35 or more countries. 

Most were not originally designed for 
use by home microcomputers; however, 
the networks automatically handle most 
compatabllity problems, and as the 
microcomputer market grows, more data 
base publishers are becoming conscious 
of compatibility and are making efforts to 
take care of formatting and other residual 
problems. 

It is impossible to list all of these ser- 
vices here. Both Telenet, Vienna, VA, and 
Tymnet, Cupertino, CA, publish direc- 
tories showing most of the services they 
connect to. If you want to subscribe to a 
service, you must deal directly with that 
service, not with the network. All network 
charges are included in the fees you pay 
for using the service. 

Here are a few of the data bases: 

• Berkeley Solar Group, Berkeley, CA, of- 
fers solar energy analysis, weather data 
and other services for the solar energy in- 
dustry. 

• Blaise, British Library, London, 
England, Includes medical data bases, a 
listing of all British-imprint books ac- 
quired by the Library of Congress and a 
document-ordering service. 

• Bridge Data Co., St. Louis, MO, gives 
common stock quotes and other services 
to investors. 

• Bodart, Inc., Williamsport, PA, offers 
800,000 English-language monographs, 
including a descriptive list and an on-line 



ordering service. 

• Comcap Computing Systems Oakland, 
CA, provides technical time-sharing ser- 
vices for civil and structural engineers and 
land surveyors. 

• Dr. Dvorkovitz & Assoc, Ormond 
Beach, FL, offers what is reputedly the 
largest data base of licensable tech- 
nology in the world. 

• E. H. Boeckh Co., Milwaukee, Wl, pro- 
vides building cost estimates for insur- 
ance appraisers, developers, contractors, 
etc. 

• Florida Computer Inc. (FCI), North 
Miami, FL, has daily and historical data on 
the United States, Canadian and London 
commodities markets tor speculators, 
hedgers and brokerage houses. 

• Lockheed Information Systems, Palo 
Alto, CA, has more than 100 data bases 
holding more than 30 million records giv- 
ing references to published articles, con- 
ference papers and technical reports on a 
wide range of subjects. 

• National Library of Medicine, Bethesda, 
MD, provides medical information in- 
cluding a 500,000-citation file of abstracts 
and references and is one of several medi- 
cal services available. 

• New York Times Information Service, 
Parsippany, NJ, carries abstracts from 
The New York Times and more than 60 
trade publications. 

• QL Systems Limited, Ottawa, Canada, 
has 40 or more data bases on Canadian 
subjects, including Canadian law, aquatic 
environmental data, fisheries, mining 
technology, energy, business, metals and 
Parliament. 

'^Several hundred. . , 
databases exist in 35. . . 
countries." - 



• Weather Systems International Corp., 
Bedford, MA, provides past, present and 
forecast weather data and past and pres- 
ent sports and business information. 

• Westlaw, West Publishing Co., St. Paul, 
MN, gives full text and headnotes yf deci- 
sions in all federal courts and in'courts of 
all 50' states. ■ 

by Bert Latamore 
80 Microcomputing staff 
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Micro for Hire— Four Bits or Eight 




Ask her, and Head Librarian Marion 
Boben will tell you Ihat she isn't at all 
threatened by the machine. The fact is, 
she's fascinated by it. It's been earning 
extra money for her library, and she hopes 
it stays right where It is— near the card 
catalog, just within sight of her checkout 
desk. 

With the exception of its coin slot, the 
cassette-equipped Model I is not very ex- 
otic. There is no disk drive, no expansion 
interface, no printer. The '80 has generat- 
ed a lot of interest among library regulars 
in Strafford, a suburban community of 
23,000just outside of Philadelphia. It even 
achieved date-line status for the town on 
the Associated Press wire when a story 
about the library's new addition appeared 
in several newspapers across the country. 
There aren't many microcomputers in 



Taxi, local businessmen getting their feet 
wet in computerized Accounts Receivable 
and general ledger bookkeeping, middle- 
aged parents trying to become computer 
literate before their children, and students 
from the Junior and High Schools doing 
their computer programming class home- 
work. 

Marion Boben's machine has been 
swallowing change at a respectable rate 
since last December, Use has fallen off 
slightly during the summer, but she's sure 
the soothing silence of the library will 
once again be broken by the clink of drop- 
ping quarters come fall. 

Straightforward Installation 

The Model I installation In theTredyffrin 
Public Library is straightforward. A 
TRS-80 is connected to a power-interrupt 
device controlled by a timer. Drop 50 cents 
into the slot and the '80 comes alive— for 
15 minutes. Three minutes before shut- 
down the user is warned that a crash is im- 
minent. At that point more money can be 
deposited or operations terminated. The 
microcomputer has not been specially 
modified: it has no kid-proof keyboard or 
protective enclosure. The only precaution 
taken is bomb-proofing the coin box. 

The one-armed '80 is the brainchild of a 
Philadelphia firm called Compuvend, Inc. 
Compuvend, a division of Computer Sys- 
tems, Inc., has placed the coin-operated 
micro in the Tredyffrin Library strictly on a 
trial basis. Compuvend's president, Will 
Zimmerman, is encouraged by the results. 



'7immerman told 80 Microcomputing 

his new company has been besieged 

by requests for information since 

ttie AP article about the 

mercenary microcomputer appeared. 



public access settings yet and even fewer 
for rent. In Strafford, however, if you've 
got the money, the Tredyffrin Public Li- 
brary has the microcomputer: four bits for 
15 minutes or $2 an hour. 

Who is using the rent-a-brain? Marion 
Boben says it's hard to categorize the 
users. There are 15-year olds who plunk 
down 50 cents for 15 minutes of Space 



Zimmerman told 80 Microcomputing his 
new company has been besieged by re- 
quests for information since the AP article 
about the mercenary microcomputer ap- 
peared. One group that has exhibited ex- 
ceptional interest is the electronic arcade 
game industry. 

Response has been so encouraging 
Zimmerman is planning to offer several 



versions of his coin unit. The Series 10 will 
accept only coins, the Series 20 will be a 
"dollar bill recognition unit" and, even- 
tually, a version that will accept credit 
cards will be marketed. 

Coin-Op Printer 

Zimmerman has other plans as welt. He 
hopes to have a companion coin-operated 
printer available soon for those who need 
a printout and are willing to pay for it. In 
addition, he intends to make large data 
bases such as The Source available on an 
auto-dial, cost-per-minute basis from 
public access settings. 

In the meantime he is dickering with 
Tandy, Apple, Atari and other microcom- 
puter manufacturers for the right to sell 
their equipment on a non-exclusive dealer 
basis. Two of these deals have been se- 
cured already, but Zimmerman isn't will- 
ing to name them. 

Zimmerman supplies a variety of soft- 
ware with his system, selected to be of in- 
terest to homemakers, businessmen and 
students. The machine Marion Boben is 
using came with a 20-program library that 
included games, Basic language tutorial 
tapes, statistical analysis programs, 
home-budgeting routines, vocabulary drill 
programs and a payroll program. Users 
are free to purchase software from other 
sources if they desire or write their own. 

Though only one prototype is being 
field-tested by Compuvend at present. 
Will Zimmerman is confident that great 
potential exists in the public access 
market. He told 80 Microcomputing. "My 
gut feeling is that this (the rent-a-comput- 
er) market could be as lucrative as the 
photo copier market has proven to be in 
public settings." He also said that since 
libraries are in the information business 
and the microcomputer is the tool of the 
information age, its placement in libraries 
is inevitable. 

While the Information age may have 
finally arrived at Marion Boben's library, 
its premier tool, the microcomputer, is be- 
ing used mostly for game playing and 
teaching computer programming. Marion 
Boben is not disheartened, though. In her 
opinion, public access computing may 
take the microcomputer out of the realm 
of mystery and place it in the hands of the 
masses, providing, of course, that they 
have the ability to pay.H 

by Chis Brown 
80 Microcomputing staff 
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DBS... 

true data base management 
for your TRS-80 " 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M. Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



"MDBS IS truly a data base management system. . ., not a file management system " 

"MDBS... offers the data manipulation, query, and report-writer capabilities of a DBMS 
found on much larger and more complex computer systems." 

"MDBS has come to the rescue with. , .products whose ability to reduce development time 
and implement processes not available elsewhere make them invaluable to integrators and 
developers of ^c-based systems. [With MDBS.) .. .program development and data base 
description is simple." 

For the complete Weiss review, see "Downscaling DBMS to the Microworld," Mini-Micro 
Systems, April, 1981, pp. 187-195 

Flexible, powerful data structuring capabilities: network and hierarchical data structures, 
including direct many-to-many relationships {not available elsewhere). 

Genuine data base management capabilities, far surpasses file management in data 
independence, automatic maintenance of relationships, and control over data redundancy. 

English-like, nonprocedural query language interface: ad hoc queries result in the automatic 
generation of desired reports, tables, files, and relations. 

Host language interfaces, including various BASICS, COBOLs, PASCALS, FORTRAN, PL/), 
C, and several assemblers. 

Extensive built-in data access security (256 levels). 

Automatic transaction logging and data base recovery 

Dynamic data base restructuring.. .and many other advanced data base management 
features. 

Is MDBS right MDBS is written in Z-80 machine language and runs under TRSDOS or NEWDOS with TRS 

for your system? disk BASIC: under CP/M® (and similar derivatives) with CBASIG2, PL/1, PASCAL Z, 

PASCAL M, PASCAL MT+, BDS C, CIS COBOL, and Microsoft COBOL, FORTRAN, or BASIC. 

MDBS code size is only 18K to 20K bytes for Models I and II. 

MDBS IS independent of the types and sizes of disk drives. Supports data base spread over as 
many as eight disk drives. 

To learn more • For free literature about serious data base management on Models land II, call, write, orTWX 
us. We'll include a pamphlet on features to consider when choosing a software tool tor 
application system development. 

For a practical introduction to true data base management for small computers, please send 
$20 (Indiana residents, add 80C tax) for PRIMER/GUIDE booklets. 



>->i 



Free pampniet 



For a comprehensive DOCUMENTATION PACKAGE consisting of THE PRIMER plus user 
manuals covering the MDBS, QRS, RTL, and DRS, please forward $60 (-*- $2.40 Ind. tax). 



Setting itandards of •xcvltonca for data baa* 
•oftwara. . .woridwida. 



yWllcrc 
DDtn Base 
Sustcms. Inc. 

Box 248 

Lafayette. Indiana 47902 

317-448-1616/TWX 810-342-1881 

Dealer/distributor/OEM inquiries invited. 




D Please send me free literature on the MDBS. 

n$20 (Ind. Ux 80«) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

n$60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(Please print) 



Title 



Company 

Address _ 



(Stoto) 



(Z'-j) 



City 

Phone — '■ 

MAIL TO: Micro Data Base Systems, Inc. ^3ie, 
Box 248-M 
Lafayette. IN 47902 



-See List of Adveriisers on page 354 
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MICRO 80TW CASSETTE5- 
100% ERROR-FREE 




LENGTH 

C-10.... 
C-20.... 



PACK PACK 

..69$ 59$ 
..89$ 79$ 



• Fully Guaranteed! 

• Premium 5-Screw Construction 

• Used By Software Firms Nationwide 

• Custom Cases, Add 19c Eacti 

• Shipping, Add $1.50 Per Pack 

COD HOT LINE 
1-{206)-675-6143 



MICROSOTM INC. 

E26«5 NO. BUSBY ROAD 
OAK HARBOR. WA 98277 



m SICK X 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated imtializalion 

• EDIT & LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED 0( hourly 

• SPECIAL PAY — special hours 

• TWO SAVINGS- including RIA 

• CLASSED by occupation or dept 

• PAYSTUB shows Yeaf 10-Oate 

• STATE — FICA-FED TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $'0.00 
Disk S Documentation $95.00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list of all D'operly 

• PRINTOUT shows — I D. Number- description — 

• Yr purchased — tile — melhod — 
ist yr additional aeprecialion — 

• Reg. (teprec — deprec prior yrs —balance 

• SUMMARY-total value prop —additional 1st yr. 

• REGULAR deprec -depiec prior yrs 

• PERMANENT records loi your taices 

Documentation S15.00 
Disk 8 Documentation $195.00 

MIN: 32K— 1 DISK — PRINTER/132 CPI 

TERMS. Personal checks require 3 weeks to clear 

USE-VISA— MASTER CHARGE-MONEY ORDERS 

TEL 7 PM-9:30 PM EASTERN-(6171 359-2364/6370 

SEND SASE lor additional mlormalion 

MEDFIELO '^"' 
COMPUTER SOFTWARE 

39 GREEN ST. MEDFIELO. MA 02052 



College Board Database 
Available on CompuServe 



CompuServe now offers electronic 
help to college-bound microcom- 
puter users trying to find and qualify for 
admission to the right school. 

The databank, provided by the College 
Board, Princeton, NJ, contains informa- 
tion on choosing a school, finding finan- 
cial aid, preparing for the Scholastic Ap- 
titude Test and finding adult education. 

Prospective additions to the service in- 
clude excercises related to building deci- 
sion-making skills and a schedule of the 
activities associated with college selec- 
tion, application and admission. 

The College Board is an association of 
more than 2,500 secondary schools, col- 
leges and educational associations, 
which provides guidance and admissions 
information to college-bound students 
and adults nationwide and helps schools 
and colleges respond to the educational 



needs of students. 

$5 An Hour 

The College Board information will cost 
CompuServe subscribers $5 per hour of 
access time nights and weekends. Week- 
day business hour access is also avail- 
able. 

CompuServe, Columbus, OH, is a gen- 
eral database service offering the latest 
news from major newspapers and a na- 
tional wire service, financial information 
on stocks and commodities, home bank- 
ing, electronic mail and real-time commu- 
nications, computer games, family infor- 
mation and computer time-sharing for 
programming activities. 

Available by local phone call through 
the common-carrier packet networks and 
its own private network, CompuServe is a 
division of H&R Block. ■ 



Wall Street Week Transclpts 
On Line from Dow Jones News 



Transcripts of the popular half-hour 
financial news program Wall Street 
Week are now available electronically the 
Thursday after each show is aired from 
the Dow Jones News/Retrieval Service. 

The Show, hosted by Louis Rukeyser, is 
seen by about 10 million people in 250 
markets in the United States, Canada, 
Guam and the Virgin Islands. 



Jones and the Maryland Center for Public 
Broadcasting. Access to the data bank 
will cost 50 cents per minute during busi- 
ness hours and 25 cents per minute nights 
and weekends. 

The Dow Jones News/Retrieval Service 
provides business and financial news in- 
formation on command through standard 
time-sharing terminals and personal com- 



me electronic news service will make 
transcripts available significantly sooner 
than printed versions sent by mail. " 



The electronic news service will make 

transcripts available significantly sooner 
than printed versions sent by mail. Trans- 
cripts of the last four programs aired will 
be available in the databank. 

PBS Center Agrees 

The service is being made available 
through an agreement between Dow 



puters. including TRS-80s. The Wall Street 
Week data base is formatted to be com- 
patible with TRS-aOs. 

Dow Jones is the publisher of The Wall 
Street Journal, Barron's, Book Digest 
magazines, the Dow Jones News Service 
wire; The Asian Wall Street Journal, and 
the 20 community newspapers of the 
Ottaway Newspapers, Inc. chain. ■ 
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More than Math- 
Computers Meet Curriculum 




they would have to queue up and would 
quickly lose interest, " Weinberg said. 
Otherwise, "the students have been gung- 
ho on computers ever since they had 
anything available." 

One school source said students have 
been "breaking dowri the doors to get at 
the computers" ever since a May seminar 
on the new program ran for the staff. 

Weinberg said the old approach meant 
the computer course had to compete with 
foreign languages, art, history, and other 
elective courses for student registration. 
The new approach gives computer litera- 
cy the status of a basic requirement like 
English and math. 

Few Problems 

So far there have been few problems im- 
plementing the program. Staff involve- 
ment started in May when the computer 
department ran a four-day seminar on the 
TRS-80 for teachers and other education 



When the 4,000-strong student body 
returns to the Lyons Township, IL, 
High School this month, they will begin an 
experiment in computer literacy educa- 
tion that will involve every student from 
math whizzes to special education stu- 
dents and every class from physics to 
physical education. 

Over the summer, teachers and pro- 
grammers have been working together to 
implement a new school policy requiring 
10 percent of all class work to be done on 
computer. 

The Computer Department, meanwhile, 
has been installing 150 TRS-80 microcom- 
puters, most of them 16K Model Ml ma- 
chines. 

An integral Part 

The idea, according to Norman Wein- 
berg, the school's head of computer ser- 
vices, is to make the computer "an inte- 
gral part of much of the course work," 

"This is as it should be," Weinberg said, 
"because computers are an integral part 
of much of what's going on in the world to- 
day." 

The program is a major change of ap- 
proach for the school, which, until this 
year, offered only a few courses in com- 
puters to selected students as electives. 

"In the past, generally there would be 
too few machines available for the kids. 



professionals, Weinberg said about 250 of 
the 300-person staff attended on a volun- 
teer basis, and they were alt enthusiastic 
at the end of the experience. Since then 
they have had no trouble with teacher ac- 
ceptance of microcomputer use. 

As the next step, teachers were asked 
to submit recommendations on how they 
could use the microcomputers with stu- 
dents. Ideas ranged from drilling students 
on spelling and punctuation in English to 
teaching basic guitar cord fingering in 
music. 

One of the more imaginative uses came 
from the Physical Education Department, 
which is going to use its computer time to 
have students derive personal exercise 
programs based on computer analysis of 
their scores on several physical fitness 
tests, including the President's Test on 
Physical Fitness. 

Continues to page 62 



Color Computer Gets 
Educational Software 



The TRS-80 Color Computer will be go- 
ing to school this fall with a new learn- 
ing program called the Talk/Tutor system. 

The system, developed by Dorsett Edu- 
cational Systems, Inc., Norman. OK, and 
licensed to Tandy/Radio Shack, Fort 
Worth, TX, presents numbers, upper and 
lowercase test, high-resolution graphics 
recorded by a special television camera 
and processor and high quality audio. 

Only a standard TRS-80 Color Comput- 
er and television set and a single-track 
audio cassette player are needed to re- 
trieve lessons prepared on this system. 
Students interact with lessons using the 
computer keyboard or optional joysticks. 

Exciting Program 

William T. Gattis, director of Radio 
Shack's Education Division, called It "One 
of the most exciting tutoring programs in 
along time. We plan to offer a variety of in- 
structional programs for both the home 
and classroom that run on the new sys- 
tem." 



He said the first three of these will prob- 
ably be released during the third quarter 
of this year. 

Dorsett will supply the video camera 
control and image processing equipment 
to Radio Shack, which will use the equip- 
ment to develop teaching programs under 
the licensing agreement between the two 
firms. Dorsett will also supply Radio 
Shack with some finished tutorial pro- 
grams in reading, mathematics and other 
subjects. 

Radio Shack will not sell the video 
equipment, but Gattis said that equip- 
ment may be made available to education- 
al publishers under a sublicense agree- 
ment allowing them to develop and sell 
educational programs tor the Radio 
Shack Color Computer. 

■'We have a large-scale effort under way 
to develop instructional programs that 
support the use of our TRS-80 Model I and 
111 computers in the classroom," Gattis 
said. "The Talk/Tutor system now extends 
this effort and this commitment to include 
our TRS-80 Color Computer."* 
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, :' — Professional — 

^Real Estate Software 

for APPLE, TRS 80 1 PET 

Properiy'lJVIanagement System 

^ ,; . .'',,(32K, I Disk Systems) 



Features- • 

• !«rijri|.|n(oriTialion 

• ta!f Bern HeioVts 

- 'YTM Menlhly tn(;onie 

■ JjaniTes - 

- -■ /'.Parlral pa^mentj 
. REliirmil dliectij 
Advance Paymenis 

• Prints fleceipis 



5 Digpt EiBtrse Stcounls 
BmlOing Eipense Repaii 
Vendor Expense Report 
Inr^ome 'Ji flepoil 
All Reports Can Be Pnntea 
Corrpleto Docurrenlatian 
Ea^y Dala Entry I Etfit 
Vacanci Roporl 



Price $275.00 
Real Estate Analysis Modules: 

(Cassette or Disk) 

)| Hnme Pnrctiase Analysis 

?! T3I Deterred Fichange 

3| Consliuctioo Coil/frotil 

1) Incnme Properlv Cjslillom 

■ . 51 APfl Loan Analysis 

,, ■. 6) Properly Sales Analysis 

■; - ■ 7) Loan Amorlualion 

$35 Per Module 



oftware 



Depi M T1I6 f aih St.. ManhatianBeach. CA90?66 



BLACKJACK PLAYERS 
A YEARS INCOME IN 4 MONTHS. 

Boik Strategy Tulori. for >h» novica 1 aiipcrl oiitia. 
U» our Tutori 1 quickly l*ain ho» to bwioma A WINNER. 
Eorn t40 hour. L*arn lti« tacrati oi our >utc«i. Our Tutori 
wkll r«Qch you how fa 

■* UT rout MONET '■ 

"PLAr EACH HAND ■' 

" NOT GET lAMID " 

" U A MJUNESS " 

•*•■ MWAM"" 

Our Tutors or* not gornatl i ' Tbty art tariout too^t to 
mok* wir^nari out of you. Tha authori hova tpanT 7 ya<iri 
playing S bainy wlnnsri Now )o con you. with tha old 
ot our Tutori Our Tutors or* botad on fha itrat*gi*i 
davakofwd by l.awronc« Ravara. Mora odvancad itrottgi^i 
ora avoilabla col J lor into. Coniultotlon it ovallabJa 
(or yoL by moil o( phona. From 12pm 12om M.S.T 

PKG 1 conloint 10 Boiic Tulori tor Allonfic City, or Nava<la 
Ru«h 125 for 16K Mod I or Mod III. fo» (30 tor 32K diik 
PlaOH odd 12.00 tor ihipping. 

,^205 

MICRO BLAJAK SYSTEMS INC. 
2*00 NORTH ELLEN STREET 
FLAGSTAFF, ARIZONA MOOI 
(603) 774-5723 or (603) 774-7M1 



STEPWISE 

MULTIPLE LINEAR REGRESSION 

Fast Compiled Machine Language 
Comprehertsive Daia Base Manager 

' Ttanstormations 

■ Lags 
Designate Anv Variable As Dependent 

At Run Time 
Descriptive Statistics 
Correlation Matrix 
ANOVA Table 
Partial Correlanon Coefficients Each Step 

Future Releases Are Upward Compatible 
And Include: Factor Analysis. Time Series, 
Linear Programming 

For 2 Disk, 48K TRS-80(ii. Wuh Line Printer 
Write For Information On Other System 

Configurations 
Price $139.fX)— Documental ion Only $20,00 
\/isa And Master Charge Accepted 



Barslfann Corporation - Dept. A 
P 0, Box 265 Mid Citv Station 
Dayton, Ofno 45402 



k'201 



^100 



CdmpuCduea 

COVER YOUR INVESTMENT 




Oiror ZOO covsrs, write for compfots list. 



itPa Cfl«lk Or monti orQir 10 

•da II SO iDf poalAff* flrvt h«ndl1i^0 
rua4 ama'i Includ* £4 DO pD1iag4 

DEILEH INOUIxn INVITtD 



CawuCouth 



r,t. ri J?!i69 



Math 

continued from page 61 

During the summer Ihe teachers are 
working with protessional programmers 
the school has hired to program these 
ideas. Weinberger said they hope to attain 
the goal of 10 percent of ali class material 
on computer within another year. 

A Little Advice 

Weinberg said the TRS-80s are perma- 
nently installed in special classrooms. 
Each room is networked to the others us- 
ing two Tandy multiplexers connected to 
a 48K, twin-disk master machine (which 
the teacher can use to monitor and inter- 
act with student activity) and to a printer. 

There are tour-and-a-half classrooms of 
16K machines and two-and-a-half of 48K 
twin-disk machines, intended for use in 
programming classes. Weinberg said they 
plan to teach Basic and may offer Cobol. 

TRS-80S were selected because they 
seemed to do the best job for their price. 
"Some people wanted fancier machines," 
Weinberg said, "but that would also mean 
fewer machines." 

He said he hopes other school systems 
watch the Lyons Township experience 
closely. 

"They should take our approach and try 
to design systems so they reach the max- 
imum number of students," he said. 

To counter teacher resistance or con- 
cern, he said, the best approach is to in- 
volve the teachers at the start. "We got 
250 of them to get their hands on the 
machines and scared away the boogey- 
men."H 



™TRS80 color 

From Bie January 1981 issue o( the CSRA Computer 
Club newsletter. 

There was some amusement at tfie Novem- 
ber meeting wtien (he Radio Shack repre- 
sertalives slated thai the software in the, 
ROM canndges could not be copied. This 
rTX)hth's 68 Micro Journal reported Diey had 
disassembled the programs on ROM by 
covering some ot the connector pins with 
tape. They promise details next month Never 
lell a hobOyist something cant be done! This 
magazine seems to be the onty source so far 
of lectinical intormalions on the TFIS-80 color 
computer"* Devoted lo SS-50 6800 and 
6809 machines up to now, 66 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 



To get the MOST (rom your 6809 CPU ■ This Is fie 
BEST SOURCE! TTie ONLY Magazine for the 9809 
ComputBt. Months Ahead at All Othersi 



68 MICRO JOURNAL 

3011 lliinlll Rond 
HIXSC*, Til 3J3« 

USA 

1 Vr . J10 50 2 Vr - 132 so 3 Vr - S*B 50 

Foiagn S/l3ce Ada 112 Vr 10 USA Price 

Foragn «ir yail Ada i35 Vr lo USA Pnce 

■Canafla i Mexico Aad $S SO Vr to USA Price 
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! 8" DOUBLC SIOC R 
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J SVmMI BO.OI10I0. t80 L 

OVSAN* DISKS I 

g 8'«" MINI ... Boi oi 8 tor 128 M 
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If You've Written a 
Topnotch Program- 
We'd Like to Publish Itt 
Programs needed for BUSINESS/ 
OFFICE Applications: 

WORD PROCESSING 

PAYROLL/TAX CALCULATION 

GENERAL LEDGER/ AR-AP 

ORDER ENTRY/INVENTORY 
Start collecting your royalty 
checks sooni Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. "2 

Submissions Dept. 

Peterborough, NH 03458 
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TECHNOLOGY ! 




Character Set 

- upper and lower 
case 

- 80 column plus 
double-wide print 



i 



Ribbon 

- long IHe cartridge 
ribbon $9,95 

- easy to ctiange: no 

mess 



■' -miH: 



■--.-- .vj''- 'o.d';.'-"- 



Paper 

- roll paper and 
single sheet 

- original plus 3 
copies 

- accepts up to SVi 
wide paper 



Transformer 

- heavy duty power 

transformer for 

longer life 




Phnthead 

- 100 million 
characters $29 95 

- disposable 

- 7 wire bi-directional 
impact matrix 

Trimpot 

- for fine adjusting 
of vertical 
alignment 



$2P« 



Controller 

- state of the art 
single chip 8039 
microprocessor 



Price 

- high quality printer 
for $299. 



BYTEWRITER-1 




With a highly engineered circuit board and soft- 
ware program, backed by a rugged mechanism, 
the Bytewriter-1 makes no compromise with 
quality. 

Call us for more information today — and be 
sure to ask us about our 30-day money-back 
guarantee. 



Microtek, Inc. -^^eo 
9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. 714-278-0633 
Outside Calif, call 
toll free: 800-854-1081 
TWX. 9ia-'i35-1269 




MICROTEK 



inc. 



Don't Pdy High Prices for 

Get top quality & ftist service at ttie iowest prices. 



"carbonless" PAYROLL CHECK 
with PAY STATEMENT 



Product 9002 PAYROLL CHECKS are 

designed to be used with the RADIO 
SHACK* payroll program #26-1556. 
Size 9Wx7'' {7V?"x7' detached.) 
Check size 7V!"x3^/?". Prices Include 
printing your heading, bank name and 
number, and MICR encoding. Attractive 
green fine line design on white MICR 
Bond stock. Available in single (white) 
or duplicate (white, canary) continuous 
sets. 



OUAHTfTY 


SINQLE 
Produei 
KDM 


OUPUCATE 

Product 
M02-2 


6,000 
4,000 
2,000 
1.000 
500 
250 


$149.00 

110,00 

65.00 

43.50 

32.50 

- 27.50 


$299.00 

21500 

124.00 

75,00 

48.95 

37.00 



V*r«atll«, Aaiy to uft« 

Special 9V2" check width 
allows for use on adjustable 
and fixed pin printers. 
Duplicate checks use 'car- 
bonless" paper to produce 
clean copies automatically. 

Maintains good 
•mployaa ralatlons 

Pay Statement and Pay 
Check given to employee as 
convenient unit. Space to 
spell out exact earnings, 
standard and special 
deductions. 




.'- ^' 



"carbonless" 

ACCOUNTS PAYABLE CHECK 



Product 9023 ACCOUNTS PAYABLE 
CHECKS are designed to be used with 
RADIO SHACK" accounts payable pro- 
grams #26-4505 and #26-1554. Size 
9V;"x7'" (7-l*"x7"" detached.) Check size 
7-%"x3^y^". Prices include printing your 
heading, bank name and number and 
MICR encoding. Available in green fine 
line design on white MICR Bond stock. 
Available in single (white), or duplicate 
white, canary) continuous sets. 



Varsatll*. easy to usa 

Special 9'^" check width 
allows tor use on adjustable 
and fixed pin printers. 
Duplicate checks use "car- 
bonless" paper to produce 
clean copies automatically. 



' 






■KiM 


_ 




'T^ 


. 




m^i- — . — i — 




„-^— , 


■ 












|l ' 

















( 


- 




















— * 













SINGLE 


DUPLICATE 


Product 775 


QUANTITY 


Product 


Product 


DU-O-VUE ' 




&023-1 


9023-2 


Envelopes 


6,000 


$149.00 


$299.00 


$140.95 


4.000 


110.00 


215.00 


98.50 


2.000 


65 00 


124.00 


53,50 


1.000 


43,50 


75.00 


29,50 


500 


32-50 


48.95 


17.95 



Eliminates 
Envelope Addressing 

Assures privacy, checks are 
designed for use in Product 
775 DU-O-VUE Envelope (3-S'x8-S"). 
Made of opaque gray stock. 
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"carbonless" Multi-Use 
STATEMENT/INVOICE 



Product 90S0 STATE MENT'IN VOICE S 

designed for use with PADIO SHACK" 
accounts receivable program #26-450*1 
Slze9V!"x7" (8V;"x7" detached.) Prices 
include printing your heading in black 
ink. Available in single (white) or 
triplicate (white, canary, pink) con- 
tinuous sets. 





Slngl* 


IHpllcat* 


Product 771 


QUANTITY 


ProducI 


Product 


OU-O-VUE' 




MSft-l 


SOSO-S 


Envolopoa 


6.000 


$152,00 


$348.00 


$120.75 


4000 


108.00 


248.00 


84.50 


2,000 


62.50 


135.00 


44.50 


1,000 


43.50 


78.50 


24,75 


500 


32.50 


49.95 


14.75 



Varsatlla. easy to uu 

Special 9V;' width allows 
for use on adjustable and 
fixed pin printers. Use as a 
statement, invoice, credit 
memo, collection notice, 
etc. . . Triplicate sets have 
"carbonless" paper to pro- 
duce copies automatically. 



Saves Addressing Time 

Product 771 DU-O-VUE® 

Envelope (4'4'"x9"). Your 

printed statement 

heading shows through upper window, 

customer's name through lower. 
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TRS-80' Computer Forms 

from NEBS... Your sotjstaction guaranteed! 

"carbonless" STATEMENT 




Large SIza 

Provides up to 25 lines to record 
charges and credits. 

Easy-to-usa 

Duplicate sets have 'carbonless" 
paper to produce clean copies 
automaticaily. 



Saves Addressing Time 

Statement is designed for use in com- 
panion Product 772 DU-O-VUE* 
ENVELOPE (3%"x6'^'). 



Product 9062 STATEMENTS are 

designed to be used with RADIO 
SHACK* accounts receivable program 
#26-1555. Size 7"x%W (6"x8i/?" de- 
tached.) Prices include your lirm name, 
address and phone at top left, plus firm 
name only in lower left. Printed in black 
ink. Available in single (white) or dupli- 
cate (white, canary) continuous sets. 





Stngla 


□upllCBla 


Product 772 


QUANTITY 


Product 


Product 


OU-O-VUE' 




9062-1 


9M2-2 


Envalopot 


10.000 


$249 00 


S450.00 


$154,00 


6,000 


158 00 


279.00 


102.95 


4,000 


112,00 


195.00 


72,25 


2,000 


67.50 


11000 


40,50 


1.000 


47.50 


67.00 


23,25 


500 


34.50 


43.95 


13.75 



Why order from NEBS? 



• NEBS is the nations largest direct 
mail supplier of standardized 
business forms to small businesses 

• NEBS has over 750.000 satisfied ac- 
tive customers in the U.S. and 
Canada. And, processes over 40,000 
orders every week. 

• NEBS has NO handling charges, NO 
extra charges for printing standard 
headings on imprinted products and 
NO extra charges for consecutive 
numbering on numbered products, in- 
cluding bank MICR consecutive 
numbering. 



• NEBS offers you top quality products 
at low prices with quantities as low 
as 500 forms — compare! 

• NEBS Unconditional Guarantaa: 

"// for any reason you are not com- 
pletely satisfied w/frt any product 
you purchase from us, your money 
will be promptly refunded, includ- 
ing any transportation cfjarges you 
have paid." 

• NEBS Fast Service — It is our policy 
to ship within 6 working days follow- 
ing our receipt of your order. Please 
allow time for normal delivery from 
NEBS to you. 




Fast service by mail or . . . 
PHONE TOLL FREE 

1-f 800-225-9550 

Mass. residents l -f 800-922-8560 

8:30 a-m lo 5:00 p.m 

Easlern Time Monday Fnday 



WE PAY SHIPPING CHARQES 

When you include full payment with your order 
Massachusetts customers add 5% sales tax, 
Missouri customers add 4,5% 

OPEN ACCOUNT- Net 7 days, shipping 
Charges added to your invoice. 
NoC.O,D. orders, please. 



'TRS 80^^ IS a registered trademark ol Radio Shack, a division ol TANDY Corporation 



Please ship the following comput* 


r forms: 


QUANTITY 


PRODUCT NUMBER A DESCRIPTION 


raid 
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IMPOfVTAHT INFORMATION 


CONSECUTIVE NUMSERtHQ 


When ordering checks, write 
"VOID" across sample check you 
are now using (be sure wording is 
up-to-date) and enclose. For new 
bank accounts secure a MICR en- 
coding form from your bank. 


IF NOT SPECIFIED NUMBERING 
WILL START AT No, 1001 

G No numbof 

D No. 1001 

n M» 



HEADINQ TO BE PRINTED ON PRODUCTS iplease type or print Include ^ip code and 
phone numbet (I you wish them printed) 



Zip Code 



Phone 



BILL AND SHIP TO <ll different from atwve) 



Striei 

City and Slate Zip Code 

Your line of business do help us send the ngm samples in the tulure) 



Authorized SignatufB 



Area Code 



Phone 



^ Nebs, ^ 

Computer Fmns ^^^ 

78 Mollis St reel. Croion. Mass 014? I 



CODE 14460 ^ 



N*w Engian] Buv>m* S»»ir>. k< 









60 MICROCOMPUTING 
AKKOUNCES... 



. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of tlie major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more. . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even try to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctly 
(which seems rare). I ine\'itably screu it up 
when 1 keyboard it. Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes calietl Load SO. Each cassette will 
have program dumps of the listings in an 
issue of 80 .Microcomputing. These listings 
are direct from the authors and tested bv the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus you will he able to sa\e hours of input- 
ting programs and even more of debugging 
your keyboarding errors. 



"Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
d(X'U mentation and associated hoopla. The 
documentation for the Load 80 programs 
will be entirely in 80 Microcomputing. 

"I originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthl)' subscription arrangement." 

Wayne Green, Publisher 



The Lood-eO cassette is simply the pfogram listings thai appea' in ttie articles in SO Microcompulmg It was created lo save 
you trie lime involved in lypinglr the listings yourself Successlul loadir^gol the programs depends on readiriotnedocumen- 
lalion m the articles II you ^ave your current magazine ai hand when you load the casselle, you should have no dilflcutty It 
you siilt have problems, please return the tape lo( a replacement. 



r 



Send m the attached card and you will 
receive the cassette for the major pro- 
grams in this issue. If the card is gone, 
photocopy the coupon. 



D Yi:s . . .send my LOAD 80 Cassette for only $9.95 

D Check Enclosed Bill my D AE □ MC D VISA 

NAME 




STATE. 



ZIP. 



EXPIRE DATE. 



SIGNATURE. 



INTERBANK*!. 



FtoOM oMow A-t fWu lor rMltvAfy 

to h«crocorr>pullng Pine Street Pete<bofo<jgh NH 034U 

Attn Dvbro I BouAleou 



31968 
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Continued from page 7 

the Stops to make my short visit one I'll 
never forget. I had an opportunity to talk 
with the Prime Minister of the country; I 
vtrent to a party at which I met most of the 
active hams; was given a tour of the whole 
island; went on a wonderful scuba-diving 
excursion; and was shown the red carpet 
treatment all the way around. 

By the time you're reading this I'll have 
visited South Africa, Swaziland, Lesotho, 
Kenya and Tanzania on a short trip in Au- 
gust. I'll take some pictures and have a lot 
to tell you about computing in Africa. I'll 
be addressing the Microcomputer Exposi- 
tion in Johannesburg, as well as the local 
computer clubs, ham clubs, and Apple 
dealers. I understand there are already 
5,000 microcomputers there, and things 
are starting to move ahead rapidly. We've 
been distributing Instant Software in 
South Africa for two years now. 

This will be my fi^st trip to South Africa, 
though I've been to East Africa (15 years 
ago on a hunting safari). My ham contacts 
have provided me with friends In all of 
these countries for some 40 years now, so 
I'm looking forward to meeting them per- 
sonally.! 

80 Microcomputing 

To the best of my knowledge, 80 can lay 
claim to being one of the all-time success- 
ful technical publications. Imagine the sit- 
uation: Here is the first magazine on a sin- 
gle manufacturer's product, that has no 



connections to the manufacturer and is 
not even distributed in the manufacturer's 
stores. Yet, its circulation is expected to 
pass 100,000 before the end of this year! 

It has few rivals among technical publi- 
cations, running over 300 pages per issue 
since early this year. In just the first six 
months of this year 80 published 207 fea- 
ture articles. To put that into perspective, 
compare that with second place Micro- 
computing with 140 articles and Byte with 
only 73. 

The main reason 80 has been such a 
success is you, the readers. You have 
been telling your friends about 50 and buy- 
ing products advertised in the magazine 
at a rate no other magazine can even 
come close to. Many advertisers have 
bragged to me that they are getting five to 
ten times more sales from 80 than they are 
able to get from any other magazine. 
When I ask them for a letter to that effect 
they put me off, saying they don't want 80 
to fill up with ads and cut their sales. They 
feel that advertisers in what is primarily a 
monthly catalog just get lost, and they 
have the sales figures to prove it. 

Now I'm not putting Byte down. No, I'm 
proud of Byte. . .after all, it was my origi- 
nal idea and I spent six months of my life 
getting it started. For that matter, most of 
the crew of 73, my first magazine, worked 
hard on Byfe to get it off the ground. I 
think we all take some pride in my ex-wife 
being able to sell it to McGraw Hill for a 
reputed $7 million. Talk about a coup! 

When you help 80 to grow with more 



EDUCATION ^ 

Continued from page 8 

involved in the action. The rectangular box 
may have more than one arrow leading to 
it but only one can lead from it. There is 
normally a box for each program state- 
ment but there are times when one box 
will be used for a series of statements. 

That's all there is to it— except for the 
arrows. They point from box to box, the 
same way the program moves from state- 
ment to statement. 

There is one situation which seems to 
cause a small problem. You will find 
For. . .Next loops handled in several dif- 
ferent ways. The approach 1 find the least 
confusing is shown in Fig. 2. This is an il- 
lustration of the statement: 

F0RX= 1TO10:LPRINTX:NEXT 

As you can see, when the For. . .Next 
loop is charted this way it Is actually hard 
to misunderstand! 



Rules 

Flow chart ruies are simple. First use 
the right Kind of box for each program 
statement. Second, join the boxes with ar- 
rows which point in the direction of pro- 
gram execution. Actually, it is even easier 
to read a flow chart than a program. Sim- 
ply go from box to box as the arrows point 
and answer the question at each diamond 
box. 

A flow chart can be made for an entire 
program or for a section of a program. It 
can put the design of a program into an 
understandable perspective. After you 
make a broad general outline of a new pro- 
gram, take the time to make a flow chart 
before you start writing; charting time can 
be saved many times over by eliminating a 
lot of debugging and rewriting later. 

Making a flow chart can also be ex- 
tremely helpful when you are working on a 
program someone else has written. After 
all, modifying is really rewriting, and it is 
just as important to understand that pro- 
gram as one of your own.B 



subscribers, you get more articles, more 
information and more programs. It 
doesn't hurt to make the extra effort and 
mark up the Reader Service card and send 
it in. Many advertisers put great store in 
these responses. They should, for these 
replies are responsible for about half the 
monthly sales the magazine develops. 

A recent poll of 80 readers showed a 
median age of 37 years, a median income 
of $32,000, and an average investment in 
computers which is difficult to believe. 
You, the readers of 80, claim you are 
spending about $61 million per month on 
your computer systems. Most of the pur- 
chasing in the higher dollar volumes is for 
business and educational systems, but 
you can bet that the purchasers are read- 
ing 80 ads, looking for the best bargains 
they can find. 

Kilobaud Microcomputing 

We also publish Kilobaud Microcom- 
puting, a magazine for the computer 
owner of any type. Like 80, Kilobaud is 
aimed at the average computer owner, not 
the computer scientist. TRS-80 coverage 
in Kilobaud is minimal, mostly leaning to 
articles which may be too technical for the 
average 80 reader. Kilobaud Microcom- 
puting is strong on Apple, Atari, 081, and 
the other popular microcomputers. 

Kilobaud was started in 1977 and has 
about 100,000 circulation. The tremen- 
dous success of 80 has eclipsed Kilobaud 
to some extent. 

Why two computer magazines? The 
main advantage is directed at smaller 
firms in the field. By splitting our reader- 
ship into two groups, advertising is afford- 
able to even the smallest firms. I feel that 
this is important to the entrepreneurial 
spirit which makes our country strong. 
One large magazine would stop many 
small firms from advertising and we might 
lose out on another Apple. 

Thus, smaller advertisers can select a 
magazine which reaches their particular 
customers and larger ones can use both 
our magazines and reach everyone. This 
gives you the opportunity to find new and 
exciting gadgets and programs put out by 
small firms. 

Desktop Computing 

While this new magazine is being writ- 
ten and edited for the non-technical busi- 
nessman, I think you'll find the artlcles-to 
be of substantial value. The articles will be 
written from the viewpoint of the average 
computer user rather than the manufac- 
turer or hobbyist. We'll be covering the 
use Qf small computers in all sorts of bysi- 
nesses, schools, and so on. 

If you are aware of any successful mi- 
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crocomputer (or desktop minicomputer) 
system, we're interested in getting an arti- 
cle on It. Readers will want to know wtiat 
hardware was used and why, what soft- 
ware, how much trouble it was to get run- 
ning, how long before it was a part of the 
business operation, what problems were 
encountered and how they were resolved. 
One key point will be the benefits the sys- 
tem brought about, such as savings in per- 
sonnel, the ability to provide better service 
to customers, speeding up service, and so 
on. Readers will want to have some esti- 
mates of the bottom line— cost vs. sav- 
ings and improvements in the business. 

Be sure to write clearly and simply, leav- 
ing out all of the technical jargon. Even 
skip bits and bytes, if you can. I realize 
that dedicated computer people speak 
computerese without even realizing that 
they are doing this and are compulsive 
about it. We pay generously for articles as 
long as we don't have to edit out technical 
buzzwords and pyt In explanations of 
terms you just couldn't keep yourself from 
using. Double space your copy, upper and 
lowercase type, good photographs help, 
generous margins for editing, and send it 



in. Publish or perish. 

Desktop will be the first computer mag- 
azine you'll be able to show to your non- 
computer friends so they can see what all 
the excitement Is about. They'll be able to 
read and understand this magazine, as it 
will be written without the computer jar- 
gon. I hope you'll interest them in sub- 
scribing. We're looking for a 100,000 circu- 
lation for this new magazine twfore the 
end of 1982, but we can't do it without a lot 
of help from you. 



*^A recent poll of 
80 readers showed 

... a median 
income of $32,000." 

Load-80 

A couple thousand readers a month are 
now sending for Load-80 cassettes, which 
contain the major programs in each issue 



of 80. These are still selling for $9.95, 
though I notice that one of the Apple mag- 
azines is selling a similar dump of their 
programs for double that with far fewer 
programs, too. Having done my share of 
keyirig in programs for magazines, I've 
been through the aggravation of trying to 
find my errors. This has often taken more 
time and sweat than the original keying. 
What a relief it is to put in the cassette, 
load the program into my TRS-80 and then 
save It on a disk for instant use when I 
want it. 

The Encyclopedia 

Beautiful set of books, these; I think 
you'll like them. With the success of 
Lpad-80 making the programs from each 
Issue of this magazine available on cas- 
sette, similar plans are In the works for the 
Encyclopedia. There are a lot of first-rate 
programs In each volume, creating a need 
for an easy way to get the programs into 
your computer. Watch for gn announce- 
ment. Of course. If your time is without 
value and your aggravation level extreme- 
ly low, perhaps you'll want to key In the 
programs. ■ 




Utilities and 

Software Speedups 

for the TRS-80 

Models 1 and lU 

RFM measures the rotational speed and variation of your 
disk driveS) and reveals a common cause of unexplained 
errors. Simple one- key operation, runs under any DOS, 
interchangeable between Models I and III, Shows current 
and average speedst plus fluctuation history. Recovers 
from severe errors. Documentation explains how to adjust 
drives. Use RPM monthly for best results. 

32-48K Model I or III disk! 424,95 

3CTE1SII340 

Converts 35-track diskettes to 40 tracks in 15 seconds. 
Requires your 40 track drive and DOS. 

32-48K Model I diskt tl'?.95 

Software Translator converts your keyboard to high speed 
DVORAK layout. Includes press-on labels. 

Typing Tutor hands-on program teaches you to touch-type 
in DVORAK, Requires translator (above). 



32-48K Model I or III disk; 



tl9.95 each 




F iV S T E I^ 

Monitors your BASIC programs whi^e they runt then 
displays a simple change (usually one U'^) that can reduce 
run-times by as much as 50%. No hardware change&t and 
handles programs that cannot be compiled! Complex 
programs benefit the most. See review in Personal 
Computing, May, 1981. 

lfc-48K Model I or III, tape and disk: «29.95 



qxjick: coiMFr^Ess 

Small t276 bytes), fast (processes 80(> lines in under 3 
seconds) utility removes blanks and remarks from your 
BASIC programs. Produces smaller, faster programsi and 
doesn't alter the original logic, 

1&-48K Model I or III, tape and disk: »19.95 



Qpeczia.ls i 

FASTER + QUICK Compress: $39,95 

DVORAK Translator + Typing Tutor! *34,95 

NEWSCRIPT + labels: tl 15.00 



Specify Model I or Model III when ordering. We accept checks, M/C, VISA, money orders, C.O.D. (add 
*2.00), and even cash. No Purchase Orders, please. Add 6% tax in Calif., and lOX shipping outside 
North America. Specials expire October 31, 1981, 

Box 839 / No. Hollywood Ca. 91603 / (213) 764^131 
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DEMAND THE MOST 
FOR YOUR 
WORD PROCESSING 
DOLLAR? 

THEN MOVE UP 
TO PROSOFT'S 
NewScript • • . 



Easy-touse Full Screen Editing 
Typeahead — never loses keystrokes 
Headings, Page Numbering, Centering 
Form letters. Big Documents 
Global search and change 
Double-Width, Underlining 
Sub-scripts, Super-scripts 
Table ol Contents, Indexing 
Proportional font right-margin 
justification on 737, 739, LP. IV, D.W. II 
■ All 12 MX-80 fonts + underlining 

• Italics on GRAFTRAX MX-80 
Supports Diablo, Microline, Anadex 
160 pages of excellent documentation 
includes "EZEDIT', "EZSCRIPT', self- 
study tutorial, and hundreds of examples 

• Runs under TRSDOS, NEWDOS, NEVTOOS/SO, 
LDOS, DOSPLUS. 

• Requires 48K TRS-80 with one disk drive. 
Specify: Model I or Model HI. 

NewScript $ 99.95 

Mailing Labels Option $ 29.95 

Special: NewScript + Labels $1 15.00 



Order from your local dealer, or from: 



PRom 



(213) 764-3131 




NOTE: 

Som* fsotuTM work only U your 

printsr has tfa« machonical 

capability. 



v>Sm LHt of Mmtlnwn en page 3M 



lept. C, Box 839 • No. Hollywood, CA 91603 

ORDERING INFORMATION: We accept checks, MasterCard, VISA, Money Orders, 
C.O.D. {add $2.00) and even cash. Please, no Purchase Orders. Calif, residents add 6% 
tax, 10% outside North America. I 
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5i9 ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



"... simplicity of operation 

seems to tiave been ttie major 

objective of tfie Bookl<eeper's designer." 



One of the most unexpected events at 
Comdex 81— The National Spring 
Conference & Exposition for Independent 
Sales Organizations held in New York, 
June 23-25— was the discovery of a new 
accounting package. The Bookkeeper is 
available from Universal Software Studios 
Inc., 179 Smith St., Gallatin, TN 37066. This 
system, written In Cobol for the Model II, 
offers an integrated accounts payable 
and receivable, payroll and general ledger. 

To the best of my knowledge this sys- 
tem has a unique file structure. Only one 
master file is maintained for all customer, 
employee and vendor names and address- 
es. This means grow/th In any application 
file will not cause the system to run out of 
space. This Is an Important advantage in a 
floppy-disk system. 

Even more interesting is the elimination 
of transfer entries between applications. 

Data Is entered directly Into accounts 
receivable and payable ledgers. At the 
same time, a simultaneous entry is 
created in the daily activity journal. This is 
the only journal contained in the system. 
Entries in the daily journal are automatic- 
ally balanced. When the dally journal is 
printed, a summary journal entry Is 
automatically created and posted into the 
general ledger. In this manner, control is 
developed over daily activity and the sales 
and purchase journals are eliminated. 
Since the general ledger has been updat- 
ed it would be possible to generate an es- 
timated financial report. 

The need for a daily financial report Is 
questionable; however, the ease of sum- 
marizing for reporting will certainly faclii- 
iata preparation of regular monthly finan- 
cial reports. In fact, simplicity of opera- 
tion seems to have been the major objec- 
tive of the Bookkeeper's designer. All ac- 
counting applications are called from a 
single menu. As you might expect, this 
menu is quite cluttered. Despite this, It is 
easy to select the appropriate application 
program. 

Application programs are grouped Into 
five areas: general ledger, payroll and spe- 
cial functions; and accounts payable and 
receivable. 

Under each of these areas, tasks are 
preceded by a code number. For the gen- 



eral ledger functions area, there are 10 
tasks numbered 1-10. Under payroll, there 
are five numbered 20-24, Under accounts 
payable, there are three numbered 40-42. 
Accounts receivable has five and there 
are eight special functions. To extend the 
system Into applications such as fore- 
casting, a provision is made to call a sub- 
menu, in all, 32 different functions can be 
called from the main menu. 

To familiarize potential customers with 
the use of the system. Universal Software 
offers a demonstration disk. Accompany- 
ing this disk is a well written 80-page man- 
ual which serves as an instruction guide 
to the system's features. Naturally, the 
demonstration disk does not contain all 
the programs required to maintain the ac- 
counting system. Missing, for example. Is 
the end-of-the-month closing program. 

Universal Software has provided a com- 
plete roster of employees, chart of ac- 
counts, customer and vendor lists. With 
all data In place, it is quite easy to prepare 
an impressive list of reports, ledgers and 
sample checks. I gather from their materi- 
al that the demonstration disk may be 
used as a training aid by new customers. 
If so, It is most effective. It provides a com- 
plete Introduction to the system and its 
unique features. 

Since much of the system activity will 
be devoted to file maintenance, the pro- 
grammers have attempted to make file up- 
dates, additions, and deletions as easy as 
possible. On entry into the file inquiry 
mode the message appears "File Number 
?" A file can be selected by keying in 
99999, accessing an alphabetic search 
routine. Typing In as many letters as you 
know will cause the program to search the 
file and stop at an account that has the 
letters selected. Since that account will 
be displayed In context, the missing ac- 
count number will be quickly located. If 
the desired account rs not on the screen, 
you can backscroll or advance the dis- 
play. If the file Is located or the search 
proves fruitless, the escape key provides 
an exit. 

If a new name and address account Is 
required, keying in 99998 will call the new- 
account entry routine. The account num- 
ber will be automatically assigned. Once 



this has been completed, the computer 
will request you to designate how the file 
will be used. Keying in a response to that 
question displays the data entry format. 

Once a valid account number is en- 
tered, a sub-menu Is displayed to call the 
application desired and the data entry or 
change the routine. Within an application 
the same format Is used to enter data or 
inquire about data previously entered. If 
the Inquiry mode is selected, It is neces- 
sary to step through each line on the 
screen before the next invoice Is dis- 
played. . .a time consuming process. Af- 
ter the last Item on file is displayed, the 
program automatically returns to the "File 
Number?" screen. 

After 37 pages of descriptions, explana- 
tions and sample exercises, most people 
will be glad to follow the author's advice 
to "take a break." 

Although there are many automatic fea- 
tures such as self-balancing payable and 
receivable entries (the offsetting journal 
entry to payables Is automatically made 
when a purchase invoice Is entered), the 
system never seems to run out of control. 
All entries and correcting entries are 
logged and appear in the daily journal. A 
printout of this journal serves as an audit 
trail to the original transaction. If any en- 
try Is required to a sensitive area such as 
the payroll ledger or a general ledger ac- 
count adjustment, a user password is re- 
quired. If the resulting general ledger ad- 
justment throws the books out of balance, 
no financial reports can be printed until 
the imbalance Is corrected. 

I noticed entries Into the system do not 
generate any feedback control totals. 
Such totals will be required If a post-in- 
voicing entry to accounts receivable Is 
made. Since I was working with an Incom- 
plete demonstration disk, an invoicing 
module was not Included. I would expect 
such an option to be obtained unless the 
invoice volume was quite small. 

The financial reports generated by the 
system Include comparatives for the 
month and year to date. Although unex- 
plained by the demonstration manual, the 
chart' of accounts appears to have a 
"level" coding provision. If this provision 
Is similar to other "level" coding methods 
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THE BOOKKEEPERS 



TO ORDER CALL (603)447-2745 



Pragmatic Programs for Small Business 
If we don't use them we don't sell them 



GENERAL LEDGER 

We call ttils program Intermediate Bookkeeper. It comes 
with a standard chart of accounts. Accounts can be 
changed or added up to a total of 110 accounts (including 
headers). This modification of accounts is done by the 
menu driven program - not by reprogromming. Posting is 
done from your checkbook and your sales summary. You 
post account number, check number, deschptlon (only If 
you wont it), and the amount. Proof of bolance Is obtained 
by running an adding mochlne tope of checks and posting 
the total as a negative amount to the Cash in Bonk account. 
The program win teii you whether you ore In balance and 
if not how much your error Is. A complete listing of oli 
items postetl to any account Is available on call. At least 
4400 entries can be posted and retained for any year. 
Reports print in an 80 column format on a printer and ore 
standard Statement of Condition, Profit and Loss, and Gen- 
eral Ledger Detail, Year to dote totals. Period to dote totals 
and percentoges are given. 

One of the principals in this company uses the system 
in an accounting business. Several clerks have used the 
system. This yeara clerk was 14 and averaged 200 entries 
per hour. 

This Is the type of program you have been looking for - 
one that is simple - one that is quick - one that saves you 
time Instead of wasting it. 



Price 



$109.95 



ACCOUNTS RECEIVABLE 

Ann Rose, Our Accounts ReceJvoble Clerk is not for every- 
body. This Accounts Receivable program does not gener-. 
ate invoices, rather it is used to produce work lists and 
bills, and when applicable to post automatic charges and 
service charges. 

Our accountant uses this to prepare his own billing, 
however, the best use of this program would be a com- 
pany that normally bills most of it's customers on a flat 
rate monthly basis such as a small garbage company or 
a small leasing company. Each control is set up on a pair 
of diskettes and con handle 328 accounts. A disk record 
Is maintained of the last 18 transactions per customer. 
Each customer is assigned an account number by the 
mochine when first entered. Customer lists con be listed 
In alphabetical order or in order of account number. 
Bills are printed on plain white tractor feed paper (not pre- 
printed) and take 55 seconds per bill to print (averoge). 
Accounts with a zero balance do not print. Accounts can 
be deleted when no longer needed. Sorts are done quickly 
except when Initially entering a name Into the system. 
We feel that a little time token at the beginning Is well 
worth the speed thereafter. Posting is rapid but one has 
the chance to correct errors. At the end of each posting 
session a journal entry Is prepared for posting to the gen- 
eral ledger. Each posting stores date. Invoice number, type 
of transaction, and amount on diskette. 



Price 



$150.00 



Both programs require a Radio Stiack TRS-80 
Model I or III w/48K, 2 Disk Drives, and at least 

an 80 column printer 
MONEY BACK IF NOT SATISFIED 



ORDER FROM 



Sturdivant and Dunn, Inc. ^^■. 
73 Washington St., Box 277 
Conway, N.H. 03818 



Phone(603)447-2745 

TRS-80 is a trademark of TANDY CORPORATION 



vS** Lfst of AdwtVttn oa p»g» 3S4 
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I have seen, it should be possible to group 
the accounts when printing the financial 
statements. Another possible use for this 
feature might be creating departments. If 
these presentation methods are required, 
the vendor should be contacted for clarifi- 
cation. 

In addition to the financial statements, 
the system contains a budgeting module. 
This module permits entry of a budget for 
each account on a month-by-month basis. 
A comparative budget report can be 
printed to compare the actual results with 
the plan. 

Within the limitations of the demonstra- 
tion disk, I liked the system. It is easy to 
use and appears complete. At $2,495 it is 
not cheap but for a floppy disk Model II 
system. It is certainly worth looking at if 
an integrated system is desired. Unfortu- 
nately, it is not suitable for a public ac- 
counting practice. The reports generated 
do not meet the standards of reporting re- 
quired and the system still does not retain 
detail beyond the current month. How- 
ever, for a small business, the system 
might be ideal. 

Tandy General Ledger Package 

The professional accountant may have 
an opportunity to use the nev/ three-disk 
Radio Shack general ledger package. Al- 
though I received it too late to review for 
this month's column, a quick look through 
the system manual indicated this system 
could prepare a number of reports includ- 
ing: balance sheets, profit and loss state- 
ments, statement of changes in financial 
position, analysis of changes in working 
capital, cash flow statement, and state- 
ment of retained earnings. 

Next month's column will be devoted to 
an evaluation of the Radio Shack system. 

Cornucopia Software 

Another late arrival, but usable Immedi- 
ately, was an updated version of the 
Cornucopia Software Editor for the Model 
II. The original version reviewed last 
month did not integrate into Model II 
Scripsit. The new version does... and 
what a pleasure. 

To use the new version, all that is re- 
quired is to place the cursor over the docu- 
ment to be proofed and press M. The Mi- 
croproof program takes over. Your docu- 
ment is r-'ad into memory and compared 
against the 50,000-word dictionary. At the 
conclusion of the comparison, a list of 
potential problems is presented on the 
CRT. After pressing Enter, each word in 
question is displayed and the user can: 

• Add the word to the dictionary; 

• Bypass the correction procedure; 



• Correct the error; and 

• Display the word in context when the 
correction procedure is in progress. 

Once the selection process is com- 
pleted, Microproof adds the new words to 
the dictionary and automatically corrects 
the misspellings. This Is accomplished on 
the screen. Page by page, Microproof 
reads in the document and highlights the 
word being corrected. If the display-in- 
context option had been selected, a 
prompt "replace with" is displayed in the 
highlighted area and the program pauses. 
After the document is completely correct- 
ed, the Scripsit menu reappears. 



"\Nith the software 

available for ttie 

micro, powerful 

packages for 

manipulating data 

can be obtained 

cfieaply." 



This editor is a valuable addition to 
Scripsit and easy to use. During the 
limited time I have used the new Micro- 
proof, I have found only two limitations. 
The file to be edited must be on the same 
disk the Microproof program is located 
and the repaglnation utility must be run 
before editing if double spacing is used. 
Apparently the entire file must be in a con- 
sistent format for the editor to function. 
For those interested in this system, con- 
tact Cornucopia Software, P.O. Box 5028, 
Walnut Creek, CA 94953. An integrated 
version is also available for Model I and 111 
users. 

Mainframe Connections 

All the new software packages— ac- 
counting and non-accounting — have 
made the Model II a valuable stand-alone 
computer. However, it has not linked with 
the IBM mainframe. In the July issue of SO 
Microcomputing. Ed Juge of Tandy an- 
nounced the availability of three software 
packages that are of interest. These 
packages— Reformatter Cat. #26-4714, 
3270 Emulator Cat. #26-4715, and 3780 
Emulator Cat. #26-4716— deserve more 



than a casual mention at the end of Ed's 
column. Properly employed they will pro- 
vide the Model II with the ability to in- 
tegrate into a large mainframe system. 

Consider the potential for a firm. With 
the software available for the micro, 
powerful packages for manipulating data 
can be obtained cheaply. If the data can 
be obtained from the firm's data base 
easily, the problems of entering data for 
applications such as tax planning and 
projections can be significantly reduced. 
Since these applications are usually in- 
teractive, "what if" projections must be 
done on line. Large numtwrs of on line 
users could degrade response time affec- 
ting other applications. The ability of the 
micro to "off load" the planners from the 
main frame could significantly improve 
the data processing system for all users. 

This is called "distributed data process- 
ing" and it is at the core of the new com- 
munications networks announced by 
most major computer vendors. It is sur- 
prising Tandy has not chose to advertise 
Its potential in this area. With the enor- 
mous amount of software available for the 
TRS-80 under both TRSDOS and CPM and 
national service availability, the Model II 
is a logical choice for use in any distribut- 
ed processing network. 

Mass Software 

In my July column, I suggested a new 
user should stick with software packages 
that have wide distribution. This advice 
may be difficult to follow with mass distri- 
bution software packages such as Radio 
Shack products. These products are all 
wide distribution products by the nature 
of Tandy's distribution system. Although 
this does not automatically mean they are 
"bug free," it does mean any major bug 
will be found and corrected immediately. 
You can Imagine the irritation level in Fort 
Worth when hundreds of dissatisfied 
users are calling in with program prob- 
lems. 

Mass distribution of software has 
created a unique situation. Until this oc- 
curred, a software package that had over 
500 users was considered a mass distribu- 
tion product. The system "debug cycle" 
was measured in years and user groups 
were developed to make suggestions for 
product improvement. Now a system's life 
cycle has been radically altered. With 
1,000 systems distributed for the same 
computer, the "debug cycle" has been 
reduced to a few months. However, we 
still need business users groups to provide 
suggestions to the vendor. If there is any 
interest In forming such a group, please 
contact me c/o Oppenheim Appel Dixon & 
Co., One New York Plaza, NY 10004.H 
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Now NRI takes you inside the 

new TRS-80 Model III microcomputer 

to train you at home as the 

new breed ofcpmputer specialist! 



NR] teams up with Radio Shack 

advanced technology to teach 

you how to use, proeram and 

service state-of-the-art 

microcomputers . . . 
It's no longer enough to be just a 
programmer or a technician. W\lh mi- 
crocomputers moving into the fabric of 
our lives (over 250,000 of the TRS-SO^'^ 
alone have been sold), interdiscipli- 
nary skills are demanded. And NRI can 
prepare you with die first course of its \ 
kind, covering die complete world of 
die microcomputer. 

Learn At Home 
in Your Spare Time 

With NKi training, the programmer 
gains practical knowledge of hardware, 
enabling him to design simpler, more effec- 
ti\e progmms. And, with advanced pro- 
gramming skills, the technician can test 
and debug sv-stems quickly and easily 

Only NRI gives you both kinds of 
training widi the convenience of home 



TraininR includes new THS-80 Model III micro- 
cumpuler. 6-funciion LCD Beckmin mutti meter, 
and ihe NRI Discovery Lab with hundreds of tests 
and experliDctits. 

(TKS-80 li i iradnnvk orihc Kadio ih»d. dmuor of body Coip ) 





Study, No classroom pressures, no night 
school, no gasoline wasted. You learn at 
\our comenlence, at )our own pace. Yet 
you're alwa\« backed by the NRI staff and 
your Instructor, answering questions, giving 
you guidance, and available for special help 
if you need it. 

You Get Your Own Computer 
to Learn On and Keep 

NRI training is hands-on training, 
with practical experiments and demonstra- 
tions as the very foundation of your knowl- 
edge You don't just program your computer; 
you go inside it. ..watch how circuits in- 
teract ,., interface widi other systems. . . 
gain a real insight into 
its nature. 

You also work 
with an ad\'anced liquid 
cry^al di^lay hand- 
held multimeter and 
the NRI Discovery Lab, 
performing over 60 
separate experiments. 
You learn troubleshoot- 
ing procedures and gain 
greater understanding of 
the information Both 
microcomputer and 
equipment come as part 
of your training for you 
to use and keep. 



Send for Free Catalog . . . 
No Salesman Will Call 

Get all tlie details on diis exciting 
course in NRI s free, 100-page catalog. It 
shows all equipment, lesson outlines, and 
facts on odier elearonics courses such as 
Complete Communications with CB, 
T\'/Audio and Video, Digital Electronics, 
and more. Send today no salesman will ever 
bother you. Keep up with the latest technol- 
ogy' as you learn on die latest model of the 
worlds most popular computer If coupon 
has been used, write to NRI Schools, 3939 
Wisconsin Ave,, Washington, D.C, 20016. 




NRISchoob 

.Mc(]raw-Hill Continuing 

Fdiic:Uion Center 
.^9.19 ttlbconsin Awnue 
Vliuhington, DC 20016 



m SALESMAN WILL CAU. 

Please check for one free catalog ocik 

n Compuler ElectrcKiics including 

Microconipuiers 
n Color \'\ Audio, and \ideo System 

Servicing 
□ Elecironics Design Itchnolos' 
D DiRital Electronics 
D Comniunicalions F.learonics • FCC 

Ijcenses • Mobile CB • Aircraft • Marine 



-*JK 



.1>* 




a Basic Electronics 
D Small iingine Servicing 
n .\pplia:K:e Servicing 
n Automotive Serviciiij 
D AuioAirContiilioning 
D Air Condiliffliing, Heaiinf' 

Refrieeraiion, & Solar Ibcnnoioft 
D Building CoiistriKlion 



IPJMSf Prim 



A»t 



Ciiv, State 2ip 

Accrtdlinl tf^ Ihe Accrtditlng Commission of the Nnionii Home S(ud> Council 
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News From 

KITCHEN TABIE SOFTWARE. INC. 



by David Busch 




Early in 1981, one of the top program- 
mers at Kitchen Tabie Software Corp., 
a fictitious supplier of innovative pro- 
gramming for the TRS-80, put the finishing 
touches on a brand new disk operating 
system, DROSSDOS 8E, originaily intend- 
ed as a replacement for DROSSDOS 1.1, 
reviewed in 80 Microcomputing several 
months ago. Unfortunately, the new DOS 
was compatible with no known computer 
system. A few ill-conceived but insur- 
mountable bugs in the DOS made it im- 
possible to run on the Z-80 micropro- 
cessor. The machine code used instruc- 
tions that did not exist in the Z-80 chip. 

Rather than scrap the estimated 47 
person-years invested in developing this 
DOS, Kitchen Table immediately dis- 
patched a staffer to Sri Lanka, long known 
as an oriental hotbed of solid-state high 
technology. There, arrangements were 
made for the development of an entirely 
new computer system, based on a new 
chip, the Z-79A, which was designed to in- 
clude the new instruction set. 

I'm happy to report that the innovative 
firm has undergone a name change to 
Kitchen Table, Inc., and has broadened its 
scope to include hardware marketing. 
Sometime this year, KTI will be importing 
the new micro, dubbed the TLS-8E by the 
manufacturer. The computer is of special 
interest to 80 Microcomputing readers, 
because it is 100 percent downward com- 
patible with the TRS-80 Model I or Model 
III. 



The Unbiased Report 

Because of my glowing reports on their 
earlier efforts, Kitchen Table asked me to 
prepare an equally unbiased report on the 
TLS-8E. I accepted a sample of the new 
micro (on loan only, we reviewers have 
scruples, too), and promised to give the 
machine a thorough workout sometime 
before the loan expires in 1991. 

Less than three days later, the TLS-8E 
arrived. It took only five minutes to un- 
tangle the unit from the wadded paper 
packing (this later turned out to be the 
documentation), and to set up the 
machine. The TLS-8E consists of five ma- 
jor components: a keyboard/CPU, CRT 
unit, expansion interface, tape drive, and 
a long spool of ribtion cable. Odds and 
ends included with the kit were some 
loose PC card connectors, solder, a 
soldering iron, and a stack of 8-track 
tapes. Following the instructions, I set the 
CRT on top of the expansion box, and 
quickly snapped the edge card connec- 
tors onto appropriate lengths of ribbon 
cable. These were then plugged into 
likely-looking orifices on the keyboard, ex- 
pansion interface, CRT and tape drive. I 
powered the contraption up, and, lo, the 
CRT sprang to life with the message 
"Memoly Size?" 

The keyboard is simplicity itself. To 
keep costs down, KTI elected to go with a 
non-standard keyboard. Instead of the 
familiar QWERTYUIOP array, the keyboard 
is laid out in a 16-key matrix, four keys on a 
side. Each of the 12 keys in the top three 
rows may be pressed in four directions,— 
forward, back, left and right. This config- 
uration yields a possible 48 characters to 
be entered using only 12 keys. The bottom 
four keys are SHF (shift), CTL (control), 
ESC (escape) and TBA (to be announced). 
When one of these keys is depressed 
along with one of the upper 12, the result 
is uppercase control characters and the 
Chinese alphabet. My source at KTI says 
the TBA key will be used to produce a 
selection of Japanese, Greek, Russian 
and popular Walt Disney characters. The 
company is still workmg on the character- 
generator ROM, which is said to weigh 
over five pounds. 



Character arrangement on the keys fol- 
lows a logical alphabetic order, KTI re- 
ports that the TLS-8E will not be sold to 
touch typists under any circumstances. 

I broke the seal on my unit to look at the 
interior. The breadboard inside was im- 
pressively arrayed with transistors, capa- 
citors, a few ICs and other complicated- 
looking gadgetry. A KTI spokesperson ex- 
plained that the TLS-8E makes extensive 
use of hard-wiring in place of the less ex- 
pensive (cheaper) printed circuitry. In a 
similar vein, more than a dozen ICs have 
been replaced by the equivalent transis- 
tors and other solid-state components, to- 
talling in the thousands. Those integrated 
circuits that were used, such as the Z-79A 
microprocessor, have been solidly sol- 
dered onto their connecting wfires to keep 
the computer working reliably, even 
through the estimated 1200 degree tem- 
peratures that develop inside the key- 
board when the computer is left on for 
more than 30 minutes. Stainless steel was 
used for the keyboard case so the entire 
unit can function as a heat sink. 

On to the CRT; It is not necessary to 
connect the CPU to the monitor. Instead, 
an unshielded RF modulator built into the 
computer automatically transmits direct- 
ly to the CRT and any other television re- 
ceiver within 100 yards. The monitor sup- 
plied with the TLS-8E was a generous 
19-inch unit, which had Pes Plaines Holi- 
day Inn engraved on its top. Resolution of 
the image compared favorably to that of 
the TRS-80, which was unfortunate. We 
had hoped for better. However, I wel- 
comed the addition of a Horizontal Hold 
button to my CRT controls. 

The TLS-8E monitor provides the popu- 
lar green screen favored by many com- 
puterists. However, and I believe this is 
unique to the industry, this unit allows the 
user to adjust the tint of green to suit per- 
sonal preference. I added a touch of ma- 
genta to warm the image a bit. 

Though I have learned that KTI plans to 
allow purchasers to start with a basic 
TLS-8E, and upgrade their systems a com- 
ponent at a time, the expansion interface 
is practically a necessity, even for first- 
time purchasers. First, without the expan- 
sion box, the CRT wobbles uncontrollably. 
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for it is supplied with only three feet on the 
bottom. Second, and perhaps more impor- 
tant, all of memory is contained within the 
expansion interface. Both the ROM and 
RAM chips reside permanentiy in the op- 
tional interface. This possibly explains 
why the basic TLS-8E (keyboard, CRT and 
tape drive) is priced at $99, while the ex- 
pansion interface carries a $599 price tag. 
The good news is that the interface is 
fully supplied with a 16K ROM, 54K of 
RAM (yes, the Z-79A can address 70 thou- 
sand memory locations), a disk controller, 
RS-232 board, and other goodies. These 
can be put into service by the user with 
minimal wiring and soldering. 

The Tape Drive 

Special mention has to be made of the 
tape drive supplied with the TLS-8E. KTI 
has chosen to eschew the popular Kansas 
City and less popujar Radio Shack stan- 
dards for its own unique cassette I/O sys- 
tem. I don't understand the electronics, 
but I do appreciate the hardware: TheTLS- 
8E makes effective use of an ordinary 
eight-track tape recorder. This innovative 
tack makes several new features possi- 
ble. Now one can record eight different 
programs on the same length of tape. By 
setting the recorder in monaural mode, 
and switching among the tracks and 
channels, users can store more than 250 
megabytes of program material on one 
80-minute eight-track tape! 

Alternatively, programs can be stored 
on four tracks, and the other four used for 
recording stereo music. The TLS-8E tape 
drive is the only microcomputer tape I/O 
device of which I'm aware that is supplied 
with interchangeable face plates to fit 
twth GM X-body cars and most Toyota 
dashboards. The biggest drawback is that 
the tape cannot be rewound. Once a pro- 
gram has been CSAVED, or CLOADed, the 
user must fast-forward through the entire 
tape to get back to the same point. 

This brings us to one peripheral that KTI 
did not send me to test— disk drives. I 
thought that odd, because it was the off- 
shoot of DOS, DROSSDOS 8E, that 
spurred the creation of the computer in 
the first place. However, I have inspected 
the Kitchen Table literature carefully, and 
was able to glean a few details about the 
disk drives. I filled in the gaps with a long 
telephone conversation with KTI techni- 
cal personnel. 

The company's product development 
people combined features from many dif- 
ferent drives in designing the KT1 100. The 
units are single-sided, 35-track, 40 ms 
track-to-track drives fully rated for single- 
or half-density operation. A rheostat that 
emerges from the top of the case allows 



the user to alter the speed of the drives 
plus or minus ten percent. 

Design of the drives is unusual to say 
the least. Great emphasis has been 
placed on simplifying those components 
prone to breakdown, to provide greater 
reliability. For example, the write-protect 
tab sensor and door-open sensor have 
been eliminated entirely. As a matter of 
fact, the KTI 100 has no door at all. The 
user simply slips in a disk and enters the 
desired command at the keyboard. The 
drive cone clamps the disk when the 
motor starts, although it is sometimes 
necessary to jiggle the disk a bit to ensure 
proper centering and mounting. There is 
no LED on the front of the unit to indicate 
that the drive is operating. KTI spokes- 
people point out that the noise generated 
by the motor Is sufficient indication. The 
stepper arm makes a grinding sound as It 
moves across the disk surface, so It is fair- 
ly easy to tell which drive is actually being 
accessed. 



"The TLS'8E 

makes effective use 

of an ordinary 

eigtit-track 
tape recorder." 



The KTI drives are supplied with lami- 
nated fiberboard cases. The units are 
compact because no power supplies are 
Incorporated in the drives themselves. KTI 
deemed the 1250-watt supply built into the 
TLS-8E keyboard sufficient for all periph- 
erals. Though the voltage supplied ( -^ 5 v. 
and - 5 v.) to the drives can vary as much 
as 37 percent, the rheostats on top of the 
drives can compensates for fluctuations as 
needed. KTI also provides circuit dia- 
grams for a simple rewiring, allowing the 
user to dim the room lights when the disk 
drives are not in use. 

DROSSDOS 8E is the standard operat- 
ing system supplied free with the disk 
drives. Mandatory Zaps are available for 
only $4.95 per month. 

What about the compatibility with the 
TRS-80? Kitchen Table insists that their 
new computers should be 100 percent in- 
terchangeable with Tandy's micro for 
nearly any application. The key is the 
Z-79A processor. The Z-80's instruction 
set is a subset of the Z-79A's, which 



means that all machine language pro- 
grams are directly transferrable. The 
Z-79A does have more than 114 additional 
instructions, such as SHOVE, DROP, 
FLIP, FORGET, and CREATE, which 
should be invaluable to creative program- 
mers who don't mind limiting their market 
to the 1000 TLS-8E owners whom KTI 
estimates will blanket the nation by 
mid- 1985. 

The TLS-8E's Level XXII Basic, and Disk 
Basic supplied with DROSSDOS 8E, are 
similarly compatible with the Radio Shack 
equivalents for the Model II and Model III. 
KTI says that POKEs can be written into 
TLS-8E programs, and transferred directly 
to Radio Shack Model I and Model 111 com- 
puters. The company does caution that 
the result might not necessarily be the 
same, however. 

For example, POKE 15360,65 in the 
TRS-80 will cause an uppercase A to be 
produced on the CRT screen. This same 
command in Level XXII instructs the com- 
puter to zero 4K bytes of memory, begin- 
ning at the starting address of the pro- 
gram. This could conceivably cause prob- 
lems to the unsuspecting programmer. 
KTI is planning to provide a Superduper- 
map listing that will cross-reference the 
TLS-8E ROM with Tandy's. 

Some Level II features have multiple ap- 
plications in Level XXII. DIM may be used 
to dimension an array. Without an argu- 
ment, DIM will lower the brightness level 
of the CRT by 50 percent. CLS will clear 
the screen if used at the beginning of a 
subroutine. Otherwise, it causes the com- 
puter to Cancel Last String. 

There are too many enhancements to 
Level II in the KTI TLS-8E to discuss here. 
For a computer that is not officially on the 
market yet, and which may never be im- 
ported after this review is published, the 
TLS-8E has generated a great deal of in- 
terest. Keep reading 80 Microcomputing 
for further developments from Kitchen 
Table, Inc.B 
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THE EXCIUSIVE ORACLE 



by Dennis Kitsz 



Ql have an alternate suggestion for Mr. John W. 
■ Schrage of Chester, NJ, concerning his problems with 
the real-time clock and LNW board (Exclusive ORacle, May 
1981). Perhaps he has not seen the note at the bottom of page 
5 of the LNW users manual; 

"If Floppy seclion is not installed, 
conned U23 pin 9 to ground. Note: U14 
(FDir7lB) mu9t not be installBd." 

Also advise him to check for etch shorts. Mine had one 
under an IC socket! Every time I tried to load a tape from cas- 
sette, the UART would aiso become enabled, dumping all 
sorts of garbage onto the data line. 

Ron Kiyomura 
Huntington Beach, California 

A. It seems many of us never saw LNW's footnote on en- 
abling the clock. Thanks to Ron and other readers who called 
my attention to it. That small print can save Mr. Schrage the 
$24.95 cost of the floppy disk controller. 



Q. I tried your "unlocking Reset" note (80 Applications, 
September, 1980), but it had no effect on the need for Break 
with Reset, and continues to show the memory size ques- 
tion when pressed. I am enclosing a sketch of my interpreta- 
tion of your instructions. I have tried all arrangements of the 
10,000 ohm resistor, but nothing worked except that by keep- 
ing the switch closed I still had my original system intact. Did 
I goof somewhere? 

Dan Fieider 
Atlanta, Georgia 



A. My instructions might have been clearer, as you and sev- 
eral other readers pointed out. The trace cut you need to make 
is found between Z32 pin 4 (Z39 on newer interfaces), a type 
74LS155 circuit, and Z23 pins 1 and 15(Z50andZ51 on newer 
interfaces). Your sketch shows you have cut the trace next to 
pin 4, which is not correct. 

A schematic of the trace cut is shown in Fig. 1. 
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Fig. 1 



Also, the Reset modification can be made to work for users 

of the LNW expansion board. The LNW design incorporates 
termination resistors clamping the data lines low (220 ohms 
to ground, 470 ohms to -f 5 voits). Even when the disk control- 
ler response is supposed to be in the invisible "tri-state" 
mode-your CPU should see all ones on the data bus (decimal 
255)-the LNW resistors force it to see zeroes Instead. I have 
contacted LNW about this, but they feel the problem is in- 
significant. 

If you are using the LNW board and wish to unlock Reset, 
you must replace the termination resistors with other values. 
Replace the 220-ohm resistors with 680-ohm resistors, and 
leave the 470-ohm resistors as they are. The lines will still be 
immune to noise (the reason for the resistors in the first 
place), and Reset works once again. This will also prevent 
some unusual memory phantoming (the appearance of high 
memory where there actually is none) on LNW systems with 
only 16K expansion memory. 



Q. i have problems with speeding up my TRS-80. The mod 
works fine in the high-speed mode as long as the program 
doesn't use any memory from the expansion interface. I pur- 
chased a300 nanosecond memory from God bout Electronics; 
my expansion interface was manufactured in January, 1980, 
and it does not have the buffered cable. I can't understand 
what is causing this problem. 

l-larry Ventin 
Wilmington, Delaware 



A. Speeding up the TRS-80 itself is not a hard task, but get- 
ting an entire system to work at high speed can be a problem. 
First, let me refer you to a note that supplements the original 
high-speed modification published in February, 1980, since 
changes are required for the newer expansion interfaces-see 
80 Applications, "High Speed Update", May, 1981, page 54. 
This change speeds the memory selection in the expansion 
box, which Radio Shack set to a fixed rate. 

A second change is made in the keyboard unit Itself, and 
has been published in various forms in user group newslet- 
ters. This second change is necessary in situations where any 
part of the memory-select circuitry is marginal, and will im- 
prove reliability anyway. The simplest version: Locate 269 in 
the keyboard unit, and find pin 5. You will see that a circuit 
trace goes off to the left, around, and back underneath Z69. It 
leads to pin 12. Cut that trace. Now attach a small jumper wire 
between pin 12 and pin 10. Assuming you have made both the 
changes to the expansion box and to the keyboard unit, your 
high-speed modification should work correctly. 

By the way, if you have a great deal of patience and good 
eyes, you can install a super speed-up kit available from Arch- 
bold Electronics in Rancho Cordova, California.' For about 
$45, you can double the speed of your machine. This board is 
also "intelligent", monitoring the activity of the computer so 
it automatically slows down during disk access. Tripling the 
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Now for theTRS-80" Models I & 




• Double Sided & Double Density Support 

• Hard Drive Support UpTolOMEGS As ASingleDrive 

• Inter mix 5", 8" and Hard Drive Up To 8 Total Drives 

• A 250 Page Manual 

• Complete Technical Information 

• A TOLL-FREE 800 Number for Customer Service 

• A Full Time Staff to Handle Customer Service 

• A Bulletin Board on MicroNet 



• An LDOS NEWSLETTER 

• A Liberal Update Policy 
•An ENHANCED BASIC 

• A Complete Job Control Language 

• Device Independent 

• Media Compatible Model 1 to Model III 

• A One Year Warranty 



♦SPECIFIC HARDW/ARE IS REQUIRED TO UTILIZE THESE FEATURES. 



The Ultimate In Operating Systems Model I & 



Only $ 



14900 



For Further Information Contact The Distributor Or Dealer Nearest You: 



DEALERS 



Foreign 

Cesco Electronks Ltd. 
Montreal, Canada 
Callsto Computers Ltd. 

Birmingham, England 

Mollmerx Ltd. 

Sussex, England 

Graphic 

Montreuil, France 

Domostic 

Hobby Worid 

Northrldge, CA 

Byte Shop of San Diego 

San Diego. CA 

Howard Industries 

Anaheim, CA 

Patio Computer Sales 

North Hollywood, CA 

J ti R rnventory 

Santa Ynez, CA 

Jim's Computer Service 

Laguna Nigel, CA 

Micro Computer Tech, Inc. 

Santa Ana, CA 

Berkeley Microcomputers 

Berkeley, CA 

Dimensional Software 

San Diego, CA 

Byte Shop of Placentia 

Placentia, CA 

Computerland of 1000 Oaks 

Thousand Oaks, CA 

CW/est) 
LOBO DRIVES INT'L 

354 S. Fairview Ave. 

Goleta,CA 93117 

(805) 683-1576 



Computer Forum 

Santa Fe Springs, CA 
Teem Quest 
Palm Desert, CA 

H.W. Computers 
Redondo Beach, CA 
Lobo Drives Int'i 
Goleta, CA 
The Prosram Store 
Washington, DC 
Computer Junction 
Ft. Lauderdale, PL 
Adventure International 
Long wood. FL 

Personal Computing Center 
Margate, FL 
H.I.S.Computermation 
Melbourne, FL 
Thompson Sporting Goods 
Rexburg. ID 

Idaho Micro Computer 

Buhl, ID 

Information Concepts 

Richton Park, IL 

Advanced Operating Systems 

Michigan City, IN 

Radio Shack Computer Ctr. 

Louisville, KY 

The Computer Shoppe 

Metairie, LA 

Small Business Systems Group 

Westford, MA 

(Central) 

GALACTIC SOFTWARE LTD. 

11520 N. Port W/ashington Rd- 

Mequon, Wl 53092 

(414) 241-8030 



Computer Center 

Garden City, Ml 

The Alternate Source 

Lansing, Ml 

Computerland of Kent wood 

Kentwood, Ml 
The 8 Bill Corner 

Muskegan, Ml 

Soft Seaor Marketing, inc. 

Garden City, Ml 

TrI County Electronics 

Fenton, Ml 

Comp-U-Trs Software 

St. Louis, MO 
Forum -80 Headquarters 
Kansas City, MO 
The Software Sliop 
Belton, MO 

J ft J Electric/Radio Shack 

Hackettstown, NJ 
The Computer Forum 
Red bank, NJ 
M-T Electronics 
Sparta, NJ 
Computer Madness 
Englishtown, NJ 
Autel Electronics 
Albuquerque, MM 
Data Base, Inc. 
Albuquerque, NM 
Hurley Electronics 
Las Vegas, NV 

(The Common Market) 

MOLIMERX LTD. 

1 Buckhurst Rd., Bexhill 

Sussex, England 

(0424)- 220391 



A World o( Computers 
Port Chester, NY 

Programs Unlimited 

Jerico, NY 

B. I. Enterprises 

Centereach, NY 

Computerland of Nassau 

Carle Place, NY 

Computerland of White Plains 

White Plains, NY 

Computronics 

Spring Valley, NY 

Crowleys Radio Shack 

Whitehouse Station, NY 

John D. Owens Associates, Inc. 

Staten Island, NY 

Computerland of New York City 

New York, NY 

Dig! byte Computers Center 

New York, NY 

Future VisionsComputer Store 

Melville, NY 

Micro Mini ComputerWorld Inc. 

Columbus, OH 

The Computer Store 

Tulsa, OK 

Vern Street Products 

Sapula, OK 

V.R. Data 

Folcrott, PA 

MIcrotronix Inc. 

Philadelphia, PA 

(East) 
MISOSYS 

5904 Edgehill Dr. 

Alexandria, VA 22303 

(703) 960-2298 



Stevens Electronics/ 
Radio Shack 

Phoenixville, PA 

Erie Computer 

Erie, PA 

Quality Software Distributors 

Dallax, TX 

Computers To Go 

Austin, TX 

Aerocomp 

Dallas, TX 

Custom Computer Center 

Houston, TX 

AT-80 

Dallas, TX 
Misosys 
Alexandria, VA 
80-US Journal 
Tacoma. WA 
Petted Micro Systems 
Milwaukee, Wl 
Galactic Software Ltd. 
Mequon, ^1 



DEALER INQUIRES WELCOME 

LDOS is a product of LSI Inc. , 
TRS-80 a trademark of 
Tandy Corp, 






OGICAL 
SYSTEMS 
INC. 3^ 



^S»a UsI of Adrertrsers on pap* 354 
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speed of the computer is also possible with this board, by re- 
placing the Z-80 microprocessor with a hotter Z-80B, and ad- 
ding a $20 delay line also sold by Archbold. 

O. I bought an Expansion Interface on a trip to the United 
States two years ago. It is an old version with a black box 
cable, but no DIN plug connector. I have installed memory 
chips from Jade and Godbout. However, with the E/l switched 
on, I only get 15572 and not the full 48K in response to the 
Print MEM command. 

The Jade literature states: "You should be aware that there 
are some versions of Level II that do not give an indication of 
memory in the E/l. If you ask your machine to print the mem- 
ory size and it gives you a number like 15572, this does not 
recessarily mean that the memory in the E/l is bad— simply 
that the software does not recognize its existence on a Print 
MEM command. Try reading and writing to the higher 
memory..." 

I am able to write to and read from memory. However, when 
I try to set the memory size above the 16K limit, the computer 
hangs up, and when t use a memory test program on the upper 
memory it says that it is practically all defective. Is there 
damage to my system? Does my AC current of 50 Hz create 
timing problems? 

Ken Lennan 
Brussels, Belgium 



A. First of all, the Jade literature is straight out of science 
fiction fantasy. All the Level II memory tests are the 
same— i.e., each potential memory location is read in order by 
the CPU. The complement of the value which has been read 
from memory is written back into the memory location under 
test. The new value is then read back. If the new value does 
not match the value written, the software assumes it has 
reached the end of usable memory. 

Apparently this test is failing at the beginning of Expansion 
Interface memory. In my answer to Mr. Ventin (above), I mem- 
tion the change necessary to the keyboard unit to produce 
faster memory access. This is doubly important with the buff- 
ered cable, which delays access about 20 nanoseconds 
longer. It's unlikely there is damage to the buffered cable, 
since other problems would show up. The 50 Hz power is ir- 
relevant, except that your external power supplies wilt run 
warmer (don't enclose them in the slots provided in the expan- 
sion box!). 

You should be sure to install the "twisted pair" modifica- 
tion—known by various names including the DIN cable and 
the XRX-I mod— because the buffered cable afone actually 
made things worse on some computers. These cables are still 
available at no charge from Radio Shack (or Tandy stores in 
Belgium) by special order. If you cannot obtain one, you can 
make your own using a six-pin DIN plug/Jack pair. 

In either case. Radio Shack provides no instructions for its 
installation, so here they are: 

The twisted pair mod consists of three sets of wires 
(red-black, white-black, and green-black). Each pair of wires 
ts twisted together in what is called "transmission line" con- 
figuration, which helps shield external noise from these sen- 
sitive select circuits. The female end of the cable connects to 
the keyboard unit, the male end to the expansion interface 
• Open the keyboard unit and locate Z72. Identify pins 3 5 
8 and 9. Turn the board over; you will be attaching the cable to 
the tjottom. 

*'^""* the bare ends of the female cable so that only 1/16 



inch (1.5 mm) of tinned wire remains exposed. 

• On the bottom of 272, solder the red wire to pin 5 (Row 
Address Strobe, or RAS), solder the white wire to pin 9 (Col- 
umn Address Strobe, or CAS), and solder the green wire to pin 
3 (Memory Select Multiplexer, or MUX). 

• Solder each of the black wires to the three available 
points leading from Z72, pin 8 (Ground). 

• Find pins 1,3, and 16 on the edge-card connector. These 
are the connectors normally used for RAS, CAS, and MUX. 
Cut all three foil traces leading from the edge connector. They 
will no longer be used, and are cut to lower induced noise. 

• Route the cable out the back of the computer,and re- 
place the cover. 

• Now open the Expansion Interface and locate Z16 pins 1 
and 8, Z22 pins 12 and 8, and Z24 pins 2, 4 and 7. 

• Again trim the bare ends of the DIN cable (the male end 
this time) to 1/16 inch (1.5 mm) of exposed wire. 

• Solder the red wire to Z22 pin 12, and its black partner to 
pin 8. Solder the white wire to Z18 pin 1 and its black partner to 
pin 6. Solder the green wire to Z24 pin 2 or 4 (they are connect- 
ed by a circuit trace), and its black partner to pin 7. 

• Now locate pins 1, 3 and 16 on the Expansion Interface 
edge card connector. The pin numt>ers are silkscreened on 
the circuit board, and arfe not a mirror image of those on the 
keyboard unit. Cut these traces at the edge connector. 

• Route the cable out the front edge of the case, and close 
the unit. The modification is complete, and, together with the 
keyboard unit modification to Z69 explained in the letter 
above, should have your TRS-80 system running crash-free. 



0. 1 have a TRS-80 Model I Level II 48K cassette and Stringy- 
Floppy system, and a brand new Epson MX-80. I am using 
Scripsit. While it works well by itself, I cannot use any of the 
special modes available with the MX-80. It is of course possi- 
ble to have the printer primed for a special type of printing be- 
fore Scripsit is loaded, but then one is locked into that particu- 
lar mode. Can you help? 

Ranes C. Chakrovorty 
Salem, Virginia 



A. I can't help, but Jerry Goodwin can. Jerry has developed 
a few programs to patch Scripsit. The first program is called 
SCRIPTR, which modifies Scripsit to enable use of MX-80 con- 
trol codes, as well as: entry and reentry of DOS; program- 
mable display; printing of graphics; insertion during printout; 
complete printing control; a macro facility; and other 
features. SCRIPTR can be obtained from Jerry directly, and 
will be available from Instant Software for $40 within a month 
after you read this. 

In response to my request for you and other readers who 
only need the MX-80 control-code feature (for the moment), 
Jerry has also prepared another program called SCRIPT80 to 
do just that. Send Jerry $7 (or a disk and $5) and he'll fonward it 
to you; 1746 N.W. 55th Ave. #204, Lauderhill, Florida 33313. 

Finally, Jerry has offered to provide a customized patching 
program for SCRIPTR to allow its use with just about any 
printer on the market. Once you've received a copy of SCRIP- 
TR from Instant Software, send Jerry the complete specifica- 
tions for your printer, together with $25, and he'll return you a 
patch program and a 25-page book of documentation within 
six weeks. 

How's that for sen/ice, Ranes? 



78 • 80 Microcomputing, September 1981 



updates 

Reader Lenny Greenberg asked in May's column about in- 
terfacing 128 devices to the TRS-80, and my response inciud- 
ed the line "So here's part of a circuit you might use:" Unfortu- 
nately, the schematic diagram was left out. So, Lenny, here is 
part of a circuit you might use {see Fig. 2). 

In the same issue, a gremlin crept into my explanation to 
Dave Hildebrandt of the TRS-80 scrolling routine. The routine 
works like this: 



LD 


HL,3C40H 




LD 


HL,3C40H 




LD 


DE,3C00H 


(nol 3C41 H) 


LU 


BC.3BFG 


(not 37FH) LOIR 



The original explanation would have had a screen full of iden- 
tical characters! Thanks to Dennis Thurlow for pointing out 
the error. 

Brian Donlon has vi/ritten with a method of providing de- 
bounce to EDTASM. Here it is: 

"The keyboard driver for EDTASM begins at 445FH. I re- 
placed the routine here with the routine I found in KBFIX start- 
ing at 7FDAH through 7FFF. There was only one jump that 
had to be changed. After loading this routine over the one in 
EDTASM, I changed the instructions now residing at 4402H 
from F2 E2 7F to F2 F7 43. 

"The code including the above instruction changes is 
shown in Fig. 3." 

"You can zero 4415H to 445FH. There is enough room here, 




Fig. 2 



starting at 43EFH, to use KBEEPFIX (80 Applications, 
February, 1980) and you won't have to change any instruc- 
tions. Just use the routine starting at 7F98H through 
7FFFH."B 



Address your questions about the TRS-80 to Dennis Kitsz, 
Roxbury, Vermont 05669. 



43E0 
































21 


«F0 


36 


40 


01 


01 


38 


16 


00 


OA 


5F 


AE 


73 


A3 


20 


08 


14 


20 


4400 


CB 


01 


F2 


F7 


43 


C9 


5F 


C5 


01 


DC 


05 


CD 


60 


00 


01 


OA 


4410 


A3 


C8 


C3 


FB 


03 






Fig. 3 



















THIS IS DIGITALKER 
OUT 127,0 




This is all it takes to say ttiis on 43 ottier expressions wit ti MICRO- 
MOUTH*. Absolutely no software drivers or subroutines to load, 
MICROMOUTH*, ttie latest Circuit Cellar project can be used as an 
emergency annunciator, as an aid for the handicapped, for process 
control and auton^atic monitoring, and to add new dimensions to 
computer games. 

Sample phrases that can be programmed are: 

"THE TIME IS 4 HOURS 23 MINUTES . . ,(BEEP}" 

"NUMBER 4 IS 3.47 VOLTS" 

"THE SPEED IS 100 METERS A SECOND. . SLOWDOWN" 

Thousands of expressions can be added by changing the RDM chips. 

MICROMOUTH* is plug compatible with APPLE II and TRS-80* com- 
puters. Directions are included for S100, H8 and parallel 

port operation . *D1GITALKER is a irauema^k ol National Smiiconijuclof Corp 



fr.* 



^e» 



.-c^^ 



^ 



\<^ 



^ 



c6^ 



iO<^* 



.ft^ 



Complsts Kit (Modsl I) $150.00 
Asssmblad and tostwl: 

Apple II $150.00 

TRS-80 Mod«l I w/powar supply, case, 

cable $175.00 

TRS-80 Model III $200.00' 

•MICROMOUTH isalraOemaikol Micrommt Ire 

The MicroMint Inc. ^^sio 
917 Midway 
Woodmere, NY 11598 
Dealer inquirie$ 
invited. 



To order call: 

1800-645-3479 
lnN.Y.516-374-6793 
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THE ASSENBIY IINE 



by William Barden, Jr. 



"Ada. . . v/as thoroughly 
disgusted with the support software 
and reputedly attempted upgrades. 



Programmers have always been inter- 
ested in how other people's software 
worked. Ada, the world's first program- 
mer, was thoroughly disgusted with the 
support software on Babbage's Analytical 
Engine and reputedly attempted up- 
grades. 

Given the commented source code for a 
particular Assembly program, it is some- 
times virtually impossible to figure out 
what is going on. Without comments, the 
problem is quite a bit more difficult. With- 
out source code, the problem is an order 
of magnitude more difficult. 

Is tt possible to disassemble machine 



code and to find out how a program 
works? It certainly is. In this month's col- 
umn, we'll discuss some of the tricks of 
the disassembler trade, in a special report 
entitled "The Disassembly Line". 

Why Disassembly? 

Disassembling can be an educational 
experience. You can see how Microsoft 
implements their code, and get a first- 
hand report of the programming expertise 
at Radio Shack. 

Secondly, disassembly may be neces- 
sary to correct bugs in the program. There 
are some assemblers that will not assem- 



MEMORY LOCATION OF INSTRUCTION MACHINE CODE 

5522 CDB95A 

5525 ED5e537C 

5529 DD4E00 

552C C9 

552D ED5B537C 

5531 21627F 

5534 B7 

5535 ED52 
5537 2005 
5539 DD4E00 
553C 37 
553D C9 
553E CD0D55 
5541 DD7E00 

5544 91 

5545 67 

i 5546 CDD953 

5549 7C 
554A 91 
554B 380C 
554D 3A647C 

5550 91 

5551 2600 

5553 69 

5554 19 

5555 EB 

5556 0E00 

5558 C9 

5559 6C 
555A 2600 
555C DD7E00 
555F 95 

5560 4F 

5561 19 

5562 EB 

5563 C9 

5564 AF 



DISASSEMBLER OUTPUT 



CALL 
LD 

LD 

RET 

LD 

LD 

OR 

SBC 

JR 

LD 

SCF 

RET 

CALL 

LD 

BUB 

LD 

CALL 

LD 

SUB 

JR 

LD 

SUB 

LD 

LD 

ADD 

EX 

LD 

RET 

LD 

LD 

LD 

SUB 

LD 

ADD 

EX 

RET 

XOR 



54B9 

DE. (7C53) 

Ci ( IX-f00) 



(7C53) 
7F62 



DE 

HL 

A 

HL.DE 

N2,553E 

C, (IX+00) 



550D 

A, < IX+00) 

C 

HiA 

53D9 

A,H 

C 

Ci5559 

Ai (7C64) 

C 

Ht00 

L,C 

HL,DE 

DE,HL 

Ci00 

L,H 

H.00 

A, (IX+00) 

L 

C,A 
HL.DE 
DE.HL 



Fig. 1. Typical Disassembly 



bie LD A, (iX-3} properly; there are some 
operating systems that blow up on full 
diskettes; there are some Assembly mail- 
list programs that will not handle address- 
es in the 92692 Zip code. 

Thirdly, creeping elegance rears its 
t)eautlful head. Why not improve pro- 
grams? Why not add underlining, escape 
sequences, and proportional spacing in 
Scripsit? I am firmly convinced that soft- 
ware for the Radio Shack computers has 
become better because of the pressure of 
improved versions; without them, we'd 
still be at TRSDOS Version 1.0. The overall 
result is better Radio Shack software and 
a more competitive product. 

First, Load the Disassftmbler 

A disassembler is the inverse of an as- 
sembler. It takes machine code in memory 
and converts it into the equivalent Assem- 
bly program mnemonics. Take a look at 
Fig. 1 . This is a portion of a disassembly of 
Scripsit. Because of copyright laws, the 
comments from the disassembly have 
been left out. 

You can see that there are no symbolic 
labels as there are in a typical Assembly 
program listing. All jumps are to absolute 
addresses. Also, it may be possible for the 
disassembler to get lost when it encoun- 
ters data, buffer or unused areas. 

Fortunately, the disassembler will al- 
most always get back into sync, although 
it is statistically possible for It to never 
recover from the point at which it first en- 
counters garbage. 

Some disassemblers output the disas- 
sembly listing to disk as a file. The file can 
then be edited and reassembled. Some 
disassemblers even provide labels in the 
disassembly. 

One of the first disassemblers was 
Small Systems Software's RSM-1 pack- 
age. Apparat followed with their DISAS- 
SEM. Two other excellent disassemblers 
are the Misosys DSMBLR, which provides 
labels, Equates, and Origins and outputs 
to cassette or disk files, and The Alternate 
Source's Tasmon, which provides sym- 
bols and disk files. (The Tasmon package 
is a powerful monitor, one of the best I've 
seen.) All disassemblers provide output to 
the system printer. 
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mnDEFTi-aa 

THE TRS-80* DATA COMMUNICATIONS SYSTEM FOR THE EIGHTIES 



• Direct connects to your 
home telephone jack 

• Installs in a minute 

• Program swapping mode 
plus terminal mode 

• All software included 




\ 



,%%. 






''^ 
> 



No RS232C interface is 

required 

Lowest price ever 



The MODEM-80 and your TRS-80 Model I Level 2 
disk or tape system make the perfect combination 
to maximize your data communications capabili- 



This direct connect, auto dialing/answering 
modem will transmit programs and data between 
MODEM-80 equipped TRS-80 systems. In addition, it 
will transform your computer into a full-function In- 
telligent terminal. And, no RS-232C interface is re- 
quired, so tape-based systems do not need an ex- 
pansion interface. The result is the lowest priced 
data communications system of its type available 
anywhere. 

Program-swapping with your friends is a snap 
with the MODEM-80. Both machine-language and 
BASIC programs can be easily exchanged over the 
telephone line. And, accessing your favorite com- 
puter club bulletin board or any other Bell 103-type 
compatible time-sharing facility is no problem 
either. 

The TRS-80 to TRS-80 software, included with the 
MODEM-80, extends your system's BASIC language 
with 8 new communications-related functions. 
These can be easily incorporated into your own 
BASIC programs allowing, for example, "computer 
vs. computer" competitions. BASIC programs are 
also provided which support disk, tape and memory 
transfer of programs and data, including automatic 
line error detection and re-transmission. This ap- 
proach combines function with flexibility, reliability 
and ease-of-use. 



When operating in the intelligent terminal mode, 
you have over 35 functions from which to choose. 
These include 8 user-definable function keys, baud 
rate selection from 25 to 300, forward and backward 
buffer scrolling, parity control, full and half-duplex 
operation, disk and tape file load and save, auto- 
matic dialing, parallel printer support. . .the list 
goes on and on. 

You can install a MODEM-80 on your system in 
one minute. The ribbon connector plugs into the 
back of your keyboard or expansion interface. 
Power is provided by your computer's power module 
so no additional 110 V outlets are needed. An exten- 
sion cable with standard miniature phone plugs is 
included for direct connection to the telephone line 
and there is even a spare jack to plug in a phone, if 
desired. Since the TRS-80 bus is extended through 
the MODEM-80, you can leave the unit permanently 
connected and still plug in other devices as you ex- 
pand your system. 

The MODEM-80 complete with all software and User 
Guides is only U.S. $219.00** plus U.S. $5.00 for 
shipping, handling and insurance. We accept 
money orders, VISA and MasterCard. The 
MODEM-80 hardware has a 90 day manufacturer's 
warranty. , 

INTRODUCING TOMORROW'S 
PRODUCTS-TODAY! 

■"Subjei t to Canadian rate 
of exchange al time of piirchait 



master charge 



'Sm List of Adtmrtlsara on pag» 354 



TO ORDER CALL 416-923-7961 ANYTIME 
AND ASK FOR IGROM'S ORDER DESK 
<ft)^^ OR WRITE 

ICROM ENTERPRISES LTD. ^m 

\Yi^ 1240 BAY ST.-SUITE 505 

"-^"^ TORONTO, CANADA M5R 2A7 



^1=^ 

m 
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THE ASSBIBIY IINE 



5200 


START 


5202 


TITLE MSG 


F7F7 


VERSION MSG. INSERT MSG 


5C69 


SMALL MSG AREA 


69C3 


LARGE MSG AREA + TABLES 


6FBg 


SMALL MSG AREA 


7*52 


TWOMSGS 


77BF 


TABLES + LARGE MSG AREA 


7AA4 


END 


Fig. 2. Rough Map of Scripsit 



Next, Get a Listing 

The next step in disassembly is to get a 
disassembly listing. You may have to do 
some fancy relocation footwork here, de- 
pending upon the disassembler. Some 
O'sassemblers provide a disassembly 
fiom a disk tile, making it unnecessary to 
relocate the program to be disassembled. 
Tasmon relocates itself, a neat trick for a 
monitor program. 

The starting address of the file to be 
disassembled may be obtained automati- 
cally by NEWDOS' LMOFFSET or other 
utility programs. At the worst, you can 
find the area loaded by clearing memory, 
loading the file by a DOS Load or Basic 
System command, and scanning memory 
to see which areas have been loaded. 

Once the file has been loaded, disas- 
semble it from beginning to end. If the pro- 
gram is any size at all, you'll wind up with 
a number of pages with approximately 50 
instructions per page or 50 instructions 
per 100 bytes of program. 

For illustrative purposes, we'll be work- 



L 



6F3D 

6F3E 

6F3F 

6F40 

6F41 

6F42 

6F45 

6F48 

6F4E 

6F4D 

6F4F 

6F50 

6F54 

6F57 

6F5A 

6F5D 

6F5E 

6F61 

6F64 

6F66 

6F69 

6F6C 

6F6F 

6F71 

6F75 



BA 

C0 

7D 

BB 

C9 

21F2:6F 

CDCB6B 

CDFB6B 

FE01 

28F3 

F5 

FD3611FF 

21Dn6F 

CDCB6B 

CDD651' 

Fl 

32317C 

FD3502 

280B 

CD0460 

3A3E7C 

CDE852 

laFB 

FD36110e 

C9 



ing with a disassembly of Disk Scripsit, a 
moderately hard program to disassemble. 

Finding the Messages 

Set the listing aside for a while. Like the 
Shadow, it has the power to cloud men's 
minds at this point. We're going to chop it 
down to size by the next step. 

Use your monitor, dump program or De- 
bug to print out the ASCII equivalent of 
the memory area you just disassembled. 
Here again, you may not be able to do this 
easily. At the worst, write a short Basic 
program that uses PEEKs, or simply scan 
the area visually by disk Debug. 

You must now correlate the ASCII with 
the disassembly listing. The Scripsit pro- 
gram we're using as an example uses 
many messages; other programs may not 
have more than few. Write the message 
opposite the starting point on the disas- 
sembly listing. In the case of Scripsit, this 
will probably take several hours. 

What you now have is a disassembled 
listing with all messages denoted. In addi- 
tion to messages, you may also have ta- 
bles of ASCII values, which probably ap- 
pear to be senseless. A rough map of 
Scripsit at this point is shown in Fig. 2. 
The first byte of every message in Scripsit. 
by the way, is the length, in bytes, of the 
message following. At this point the 
10,400 bytes of Scripsit have been re- 
duced to about 9,100 undefined bytes — 
not bad for a start. The step-by-step pro- 
cess now turns into an art, not a science. 
We'll offer some hints at how to continue, 
in a rough priority that has worked for 




REPEAT HOW MANY TIMES' MESSAGE 



CALLS TO -MESSAGE OUT- 



ENTER REPEAT COMMAND' MESSAGE 



Fig. 3. Finding Message Out Calls 



us— modify it as required for your own 
uses. 

Look for the Message Out Routine 

Having the message locations, we can 
now look for the message-out subroutine. 
With such a large number of messages, 
we should find many references to such a 
routine. Sure enough, there are many Call 
6BC8s, each one preceded by an LD HL, 
XXXX instruction, where "XXXX" is the lo- 
cation of the message. 

Mark each call (two dozen or so) with 
the message to be output, as shown in 
Fig. 3. Since Scripsit messages are often 
associated with the function to be per- 
formed, you're essentially mapping the 
areas of the program by function, as 
shown in the figure. The Control R com- 
mand, or Repeat, in Scripsit displays "Re- 
peat How Many Times", waits for an input 
of the repeat count, and then displays 
"Enter Repeat Command". We can see 
from the figure that this is the sequence at 
location 6F42H. We can strongly suspect, 
therefore, that this is the portion of the 
program associated with the Repeat com- 
mand. 

Decoding the Tables 

Scripsit uses many special Break se- 
quences, where a Break key press is fol- 
lowed by the message 'Special Com- 
mand?". An input of a one-character com- 
mand is then done— R for Replace. T for 
Tab, ? for system query, and so forth. 
Scanning ourASCII dump {or using Debug 
in the ASCII mode) we see a likely looking 
string at location 6AE4H— WPI7TSLFRD- 
HSCVE. Each character corresponds to 
one Break special command. This is more 
than coincidence. What else can we de- 
duce from the table? 

With a table of this type, it's a good bet 
that there is a corresponding jump table 
of addresses somewhere else in memory. 
The index to the command character is 
used to access the jump address. Sure 
enough, the 14 addresses following the 
string at 6AE4H all look like valid address- 
es in the Scripsit program area, when 
transposed in Z-80 least-significant, most- 
significant fashion. There's a good possi- 
bility that there's a one-for-one relation- 
ship between the two tables. 



15 Relerences to trtese Locations 

F 6F76 AF XOR A 

F 6F77 CD7CGF CALL 6F7CH 
6F7A 1812 JR SFSEH 

5 657C 07 RLCA 

5 References to this Location 

Fig. 4. DISASSEM Reference Notation 
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The Newest NEWDOS/80 Versiort 2.0 
For Model I And Model III 

THE HOTTEST DISK OPERATING SYSTEM FOR THE 
TRS-80® COMPUTER IS NOW READY FOR THE MODEL 
III AND VERSION 2.0 IS READY FOR THE MODEL I. 
MANY ENHANCEMENTS AND ADDED FEATURES 
SUCH AS NEWCOMMANDS MAKE YOUR COMPUTER 
MORE POWERFUL! $149 00 



• DOUBLE DENSITY ON MODEL I 

Use of the LNW DOUBLER or the PERCOM 
DOUBLER to expand storage 80% under 
NEWDOS/80 Version 2,0, mixing single 
and double density specifications without 
any patches. 

• SINGLE DENSITY ON MODEL III 

Wiil allow the MODEL III to read disks from 
MODEL I and to write disks the MODEL I 
can read, making it easy to move programs 
between the two machines. 

• EXPANDED DIRECTORIES 

Directories can be expanded three times 
the normal number of available entries, 
even on DOS disks. This is extremely useful 
when using double density, 

• DYNAMICALLY MERGE IN BASIC 

To allow sections of BASIC programs to be 
deleted and replaced with lines from a disk 
file during program execution. Also allows 
merging of non-ASC II format files. 

• SELECTIVE VARIABLE CLEARING 

Allows the programmer to keep some vari- 
ables and release the space used by the 
rest; also, specific variables may be erased 
releasing the space they use, 

(CALL OR WRITE FOR MORE INFORMATION ON OUR 
COMPLETE LINE OF PRODUCTS AND HARDWARE 
REPAIR SERVICES FOR YOUR TRS-SO COMPUTER) 



Apparotjnc. 

4401 South Tamarac Parkway 
Denver, Colorado 80237 



(303) 741-1778 

"On-going Support for Microcomputers" 

TRS 80 IS a registered Iradornafk ol Tjndy Co'puraljon 



• PAGE SCROLLING (N BASIC 

Scrolling has been modified to allow the 
user to display programs page by page, in 
addition to the regular line scrolling. 

• REPEAT FUNCTIONS 

Keys in MODEL I repeat when held down. 
Entering "R" as a DOS command causes 
the previous DOS command to be repeated. 

• ROUTING FOR DEVICE HANDLING 

To send input and output from one device 
(display, printer, keyboard, etc) to others or 
to a routine in main memory, 

• DISASSEMBLER OUTPUT TO DISK 

The Disassembler wili now write a source 
code file to disk, which the editor assembler 
can read and edit. 

• CHAINING ENHANCEMENTS 

Features to allow chain files to be written 
from SCRIPSIT; also, chaining may be 
switched on and off without changmg 
chain file positioning, and may be executed 
via CMD "XXX" and DOS-CALL, 

• SUPERZAP 

has the ability to scan diskettes or disk files 
to find the occurences of specific values. 
Also will generate disk file passwords and 
hashcode, 

• FAST SORT ROUTINE 

basic function CMD "O" provides direct 
or indirect in-memory sort of multiple 
arrays, 

• MERGING OF NON-ASCII BASIC 
PROGRAMS 

• BASIC SINGLE STEPPING 



^Sm Ual of AdivrtiMn on pag» 354 
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**SPECIAL**SPEaAL** 

TRS-dO ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5** FD's 



I 



2 INTERFACE, INC ^2A6 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



THE ASSEMBLY LINE 



DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




• Disk controller (4 drives) 

• Hardware data separator 

• Buffered TRS-bus connector 

• Realtime clock 

• Printer port (optional) 
ASSEMBLEDSTESTED 

wilh 16K RAM $329,95 

Centronics Pnnler 

Port add $ 50.00 

wiIh32K RAM add $ 50.00 

DISK-80 PC board $ 48,00 

Prinler/Powef Supply 

PC board $ 16,00 

Complete Kil with 16K 

RAM and Printer Port $275.00 

Thfl DISKSO EXPANSION INTERFACE .s Radio 
snack hafdware and sollware compalibla and carties 
a 90 day warranlee including pans and labor 
Includes user's manual and power supply 

Call 1-800-645-3479, in N.Y. 1-516-374-6793 
erwrlte: The MicroMinI Inc. 
917 Midway 
Woadmere, NY 11598 
Dealer 
inquiries 
invited. 




Mgny large programs with dozens of 
functions will make considerable use of 
tables. Look for them to provide clues to 
the location of program functions. 

To get ahead of ourselves, it turns out 
that the addresses in the second table 
represent the commands in reverse order. 
The sequence, In the jump table at 6AF3H 
is for E, V, C, H, etc. (We discovered this 
after decoding the scan-and-branch rou- 
tine at location 58F0H.) 

We can now search for tables using a 
similar format. A table at 6AD1H of 
WLMCNI is followed by six addresses, 
and these are obviously two tables of the 
same structure. Knowledge of Scripsit 
provides the clue. These tables are associ- 
ated with the responses to Break ? com- 
mands, such as Report Length, Memory, 
etc. 

A third table, at 77BFH. holds the string 
RTBJCVWLPFH, followed by 11 address- 
es. After some thought, we conclude that 
this is associated with format line pro- 
cessing ->RM = X Tfvl = X, etc. 

Having the addresses for each of the 



5200 
5300 
5400 
5500 
5600 
5700 
5800 
5900 



Title, Initializaiion 
Get Character 
Small Subroutines 



Messages 
Stock Mode 
Scan TabJe SR 



5A0O 


Unknown 


5B00 




5C00 


Messages 


5D00 


Disk i/O Subroutines 


5E00 




5F0O 


Printer 


6000 


Read Keyboard 


6100 




6200 


Unknown 


6300 


Cassette Subroutines 


6400 




6500 


Hyphenation 


66O0 


Special Processing, UART 


6700 


Special Processing 


6900 


? Processing 


6A00 


Message Area 


6B00 


Messages, Tables 


6000 


ASCII^Binary, Other Subroutines 


6D00 


Deletion, Window 


6E00 




eFoo 


Special, l^«peal 


7000 


Messages 


7100 


Unknown 


7200 




7360 




7400 


Messages 


7500 


Format Line Processing 


7600 




7700 




7800 


Messages 


7900 




7A0O 


Unknown 


rAA4 


End 


Fig. 5. Rough Scripsit Structure 



branch points, we can now labei each sec- 
tion of code with the function Involved, 
further mapping the disassembly func- 
tionally. 

Separate Into Subroutines 

We're now past the easy part. From 
here on in, It's a question of seeing what 
the code does. At this point we can look 
for obvious subroutines and functional 
blocks. We already have a good idea 
where many of the large functional blocks 
are from the jump table addresses. How- 
ever, there are probably a myriad of small- 
er subroutines that are below the func- 
tional blocks in structure. 

The Apparat DISASSEM provides some 
useful hints to the location of subrou- 
tines. A reference table at the end of the 
disassembly lists all references to values 
of zero through FFFFH. References to ad- 
dresses within the disassembled area 
may define subroutines, especially If 
there is more than one reference to the ad- 
dress. The number of references to each 
location is also displayed to the left of the 
location value on the disassembler listing, 
as shown in Fig. 4. 

Code looks like a subroutine when a Re- 
turn terminates the code segment, espe- 
cially If registers are POPped from the 
stack directly before the Return. One can 
work backwards from the end of the sub- 
routine to find the subroutine entry 
point(s), possibly Indicated byanumberof 
PUSHes to save registers. 

Another method of finding subroutines 
is to scan the reference table or memory 
(using Debug or another monitor) for ad- 
dresses associated with specific func- 
tions. This is the disk version of Scripsit, 
and we know that somewhere within the 
code are calls to the TRSDOS I/O subrou- 
tines. These are fairly easy to find at loca- 
tion 5E13H on, where there are consecu- 
tive Calls to INIT, Close, Open, Read and 
Write. The Disk I/O calls are described in 
the Radio Shack TRSDOS manual; almost 
all programs using disk will use the TRS- 
DOS Disk I/O routines to avoid a non- 
standard disk I/O structure. 

Other obvious addresses to look for in 
Model I code are 37E8H (printer), 3801 H 
(keyboard row 0), 3C00H (start of video 
memory), OEXH (serial port) and OFFH 
(cassette). 

Defining the Structure 

At this point the structure of the pro- 
gram (or lack of It) has been fairly well de- 
fined. Don't expect the structure to follow 
a beginning, middle, and end format, or 
even an upper, middle, and lower level 
structurfe. In this case, Scripsit isn't bad, 
but even here calls to the line printer are 
sprinkled over 10K, instead of being in one 
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C ilE Fir /°" Software and Hardware for 

3/WL/ TRS-80^ 



SOFTWARE 

NEWDOS/80 version 2.0(specity Model I or lll| $149.00 

Flextext I $29.95 

Utilize the additional features ot the 737/739 under 

Model I or III Scripsit*' 

Flextext II $29.95 

Utilize the additional features of the NEC spinwriter 

under Model 11 Scripsit" 

Flextext 80 (available soon) 

Utilize the additional features of the MX-80 

under Model i or III Scripsit* 

Chextext $79.95 

Spelling checker for Model I and III word processing 
MIcroclintc $24.95 

The ultimate in memory and disk diagnostics 
Meal Master $24.95 

Meal planning and grocery shopping aid 
Sprint 80 $14.95 

Creates your own custom serial printer driver 
Professional Football Predictor $29.95 

Let your TRS-80 pick the winners 
Bionic Basic $74,95 

Expand your Model I disk basic features 
Interactive Business System $500.00 

An inventory control system for manufacturing 
Micro Accounting System $489.00 

The finest general business package we've seen 

HELP/CMD $14.95 

Adds "HELP' feature to NEWDOS/80 version 1 .0 



MISCELLANEOUS 

Apparat's Data Separator $29.95 

16K TRS 80 or APPLE memory kits $1 9.95 

gVa" X 1 1" blank white.tractorfeed paper.full box $24.95 
9V2" X 1 1" blank whtte,tractof feed paper.halt box $14.95 
I4V2" X 1 l"green bar.tractorfeed paper.full box $34.95 
3V2" X 1 5/1 6" 'tractor feed mailing labels $1 9.95 

Model li add on drives (call for prices) 

Model ii business software (call for prices) 

SERVICE CENTER SPECIAL 

Disk dhve tune-up $29.95 

Complete-cleaning, alignment, and speed adjustment. 
With any tune-up you may purchase your choice 
1 box Verbatim diskettes $19.95 
BASF head cleaner $9.95 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips TRS-BO" 
MOD I & III or APPLE $149,00 

Bus Extender with power source, enclosure and 
5 card slots $149.95 

Mini version witti 2 card slots and no enclosure $69.95 



Apparatjnc. 



NEW LOWER PRICES ON 
TANDON DISK DRIVES 

Complete with power supply, chassis & configured 
for TRS-80* Model I or III 

• Single sided 40 track $295.00 

• Dual 40 or Single 80 track $425.00 

• Dual sided 80 track $51 5,00 

• Special - 2 Dual sided 80's $999 00 



Model I DOS and drive 
package add $54.00 
Includes above drives and 
NEWDOS/80 version 1.0-the 
established DOS, 



MODEL III SUPER SYSTEM 

Approximately 2,1 megabates ot disk storage using 2 dual 
headed 40 track drives internally and 2 dual headed 80 track 
drives externally, 

with NEWDOS/BO version 2.0 
same as above with only 2 single 
sided 40 track drives(no DOS) 

NOTE: These Model III computers contain Apparat installed 
disk drives and memory. They are warranted by Apparat, Inc, 
for 90 days. 

Attention Dealers: Call or write for information on our new 
dealer discount package. 




$3299.00 
$1895.00 



PRINTERS 

Call for our incredibly low prices on printers. 
All printers come with free cable. We carry: 
ANADEX CENTRONICS NEC 
EPSON OKIDATA DAISY WHEEL 





CABLES 






Printer cables 






$29.95 


(specify printer and TRS-80 


Model) 




Disk Drive Cables 








2 Drive 






$29.95 


3 Drive 






$34.95 


4 Drive 






$39,95 


Extender Cable 






$12,95 


Special Cables 




(call for prices) 



More Savings 



MODEL I DOUBLE DENSITY PACKAGE 

Converts a standard TRS-80 Model I to Double Density, 
LN Doubler-NEWDOS/80 V.2.0 S box of 1 Verbatim Diskettes 
$330,00 value for only $269,00 ■ LN Doubler alone $1 49.00 

DISKETTES 

Double density-soft sectored-reptacement guaranteed-Hard 
Hole protected, (5'/*" only) 
Verbatim Datalife 5V4" 40 track 
Apparat's No Name 5V4" 40 track 
Verbatim Datalife 8" Model II 

FLIP SORT SPECIAL 

The ultimate file box filled with 
50 diskettes 5'/*" 
Flip sort alone 



$24.95 
$21.95 
$39,95 



$1 19.95 
$29.95 



M!3M r?".?^ 



On-going Support for Microcomputers" 



4401 S Tamarac Pkwy, • Denver. CO 80237 • (303) 741-1778 • (800) 525-7674 

Scnpsit & TRS 80 are d registered trademark of Tandy Corporation 
Freight FOB Denver-cdII for shipping charges Foreign Orders shipped Air Freight 



^ S*« Us( of A(l<f»iV»»n on prnga 3S4 
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KEEPIT 3.0 

Knl^nr<-<> Lt-vrl II Itusic 
W rillA n* [Jenni- Halhi>r<> Kil;./ 

KEEPIT p+rform- iheyf riin<'liuii<>: 

• Hf-el Mrmory '^izp from Basic 

• Savf a riifiniTip [jrupram »ilh variabics 

• Sail' mai hinr i adi- or a mcmiir) tilorlt 

• Kf^to^e an ace iilnitallv deleted program 

• (Ibservr & i hanj^e mennir\ liiiaijims 

KEEPIT uIm. fralure.: 

Ke\b(jard dpliotinrc , dudihle [lecp, and aulu- 
repeat' kKtPI F .1.0 l^ uritlen iii machine 
larif;iiaf;e and resides in less (hati 1 .(MM) bvtes of 
lii^li memory. KOTASM source code is supplied 
io I be user can rtlorate KKKPI I loaiu conven- 
ient location. 

Ho« lo order KEEPIT: 

Leicl II users Mill Homier hov* thf> fver 
Hv^d Hithoul H'. KEEPIT .'l.() ise»tremfh 
talualile a^ a time and fru^lraliun saver! To 
rerei*e yuur copv, send >our name, address 
and jut>l 89.95 lo: 



l# 



\H()(> \,\a Street 
l^nKin^. MI ^S^]0 

Ph. r)i7/ wi.).o;u4 
nr ui7-:v.ir^ 



i f.11 & Master (.hatfie n<l<{ -t'''/ , 
COP ,ul.ifl.,0. 
idil Tif ti>' hi'\l I las-- f>eliift^ . 
l/l iiidiT<. '.fiifiprii uilhiii Jl hoiii 




TOTAL 

DISKETTE 

BACKUP 




DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 
K voui (iFikette io'twaie library is not com- 
pletely backed up, mail the order below Jm- 
medratelv' Or, i( you are wasting diskettes by 
making backup copies ot all your diskettes 
your problem is solved! Using OUMPLOAD 
tiip ;oial contents of your diskettes can be 
safely dumped to tape. The hi speed tape op- 
tion allows SIX 35 or 40 track diskettes to fit 
on one C60 casette. This machine language 
utility will pay for itself the first time one of 
your valuable programs will not load. 

• TRS80 Model 1 15K ■ 48K 

• TRSDOSor NEWDOS80 Compatible 

• May be used to backup TRSOOS VTOS 
4.0. NEWDOS, MICRODOS, or data 
iliiks. (Single Density) 

• Tape verification routine included, 

• Single dnve owners are no longer required 
to keep switching diskettes to create a 
backup. 

• Backup Without having to remember 
Masii-r passwords 



VES! RUSH ME MY COPY OF DUMPLOAD 

IMMEDIATELY 



- S15 95 0N MY CAREFULLY PACKED 
TRSDOSOR NEWDOS80 

DISKETTE E NCLOSED (priority service! 

--$16.95 on Casette - S19.95on Diskette 
Name 



Address 
City _ 



.State 



Z^P 



MAIL TO: 

flPJ^^'ilJ^ COMPUTER SERVICES ^ «6 
8188 HEATHER DRIVE 
NfWBURGH. INDIANA 47630 



THE ASSEMBLY UNE 



functional module. The rough structure of 
Scripsit from the above tricks is shown in 
Fig- 5. 

The structure of a program is depen- 
dent upon the standards of the program- 
ming department and/or the standards of 
the individual programmer. If these are 
lax, so will be the structure. There is at 
least one company that generates many 
different versions of software for different 
systems by a meta cut-and-paste tech- 
nique that produces software and must be 
a horror to maintain. (But then again, this 
company only generates the initial ver- 
sion, and doesn't worry about mainten- 
ance.) 

Making a Working Storage TabIa 

The next step is to start a list of vari- 
ables. You could probably find the star- 
ting point of the program and follow it 
from beginning to end, recording vari- 
ables as you went along, but this is the 
hard way to go. Instead, start a list of 
memory locations roughly arranged in nu- 
merical order and jot down new ones as 
you encounter them. Scripsit appears to 
make many references to locations be- 
yond the end of the program {beyond the 
disassembled area). We could reasonably 
assume that these are locations that hoid 
variables— Scripsit's working storage. 

Looking at the disk I/O calls in the 
5E13H area, tor example, we find that they 
are called from the code immediately prior 
to the calls, from location 5D23H on, D£ 
holds the DCB address for disk I/O, and 
it's obvious that the DCB is located at 
locations 7CB1 H. That location is marked 
Disk DCB on our variable list. A further 
nugget is gleaned by noting that an ad- 
dress of 7CD1H is used on the I NIT call at 
5DAFH. This must therefore be the disk 
buffer of 256 bytes. This makes sense, as 



the DCB is 32 bytes long in Model I TRS- 
DOS. The 7CD1 H is marked Disk Buffer on 
our variable list- 
Variables or constants may sometimes 
be found within the program area, as is 
the case of the code at 6C81H. We found 
that this code was a binary to ASCII sub- 
routine from its association with the ?M 
processing, which prints the amount of 
memory used. One technique ot binary to 
ASCII conversion uses a power-of-10 ta- 
ble, and this is found at location 6CCAH 
with values of 2710H, 03E8H, OO&AH, 
OOOAH, andOOOIH. 

Another good clue to the location of 
variables is the initialization code. Just 
about every program will "Initialize the 
world" on startup. Scripsit is no excep- 
tion, and the code at 5247H initializes 
working storage variables in the 7CXXH 
area, in addition to some within the pro- 
gram itself. 

Add to the variable list as you continue 
to figure out the code. 

An interesting side note about disas- 
sembling Color Computer programs— in 
the Color Computer, the video display 
memory can beset toa512-byte page any- 
where in memory. It is possible to execute 
a program and watch a graphic display of 
variables changing, in color! This is truly 
State-of-the-art disassembly and debug- 
ging. 

Looking for Special Characters 

Another method of identifying pro- 
cessing within a program is to look for 
unique characters. As an example, look at 
Fig, 6, The 8FH character is used as the 
cursor character in Scripsit, and it's not 
hard to find references to it at 52A7H, 
52D7H and 7A2DH, each of them associ- 
ated with a load of the character into 



52A1 0E3C 
52A3 FD7I35 
52A6 FD3t07SF 
52AA FD360a05 
52AE 21BB6F 



52D5 E5 PUSH 

52D6 FD36B78F LD 

52DA CDCC5F CALL 

52DD F5 PUSH 



7A28 56 LD 

7A29 21ED5C LD 

7A2C FD36078F LD 

7A30 C9 RET 



LD 


C.3C 




LD 


(IV-t-35J 


C 


LD 


[ IY+07) 


BF 


LD 


<IY-^0B) 


B-i 


LD 


HLt6F8B 





ML 

( IY-*-07>,eF 

5FCC 

AF 



Di (HL> 

HL,5CED 

( I Y-^07 ) , BF 



Fig. 6. Looking For Special Characters 
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{IY + 07H). 

Beyond Disassembly 

You are now into the third level of disas- 
sembly. This is the analysis that is the 
most tedious. Each code segment must 
be scanned and commented. Checi^ off 
each code segment you are sure of and 
put a question mark by others. A typical 
commented disassembly is shown in Fig. 
7, which represents the ASCII to binary 
subroutine in Scripsit. 

Of course, there is no reason to decode 
segments in which you have no interest. In 
my particular case, I was interested in 
adding a proportional spacing capability 
to Scripsit by processing the output from 
the P,I,S command (print invisible lines to 
serial device). I disassembled Scripsit and 
looked for alt references to the line printer 
address of 37E8H and to the serial port ad- 
dress of OEXH. The additional work on 
Scripsit stemmed from a desire to up- 
grade Scripsit. 

Along with the analysis of each Instruc- 
tion, you may want to run the program you 
have disassembled with Debug. With the 
disassembly, it becomes fairly easy to 
breakpoint the program at proper places. 



Single-stepping may also be used if you 
are confused about program flow. 

The ultimate in disassembly is editing 
and reassembling the source file derived 
from the disassembly and analysis. If 
you've reached this point, you now have a 
fully annotated source listing instead of 
the machine code you started with. 

How long does a complete disassembly 
take? That depends upon the proficiency 
of the programmer and the complexity of 
the program to be analyzed. Assuming 
that he has good tools to work with, such 
as a disassembler with a reference table, 
a good Debug package, and moderately 
hard code, it may take hundreds of hours 
for a program the size of Scripsit. But then 
again, we're talking about a complete dis- 
assembly with comments for every in- 
struction. To disassemble a program to 
add minor patches may only involve a doz- 
en hours or so and be more than worth It 
to add desired capabilities. 

Please feel freeto write to me about dis- 
assembly methods or advice on disas- 
sembly tools. I can't, how/ever, send you 
annotated disassemblies of any copy- 
righted software. Good luck in disassem- 
biy.H 



6CAC C5 


PUSH 


BC 


6C4D D5 


PUSH 


DE ASCII DECIMAL TO BINARY 


6C4E EB 


EX 


DEiHL 


6CAF 210000 


LD 


HL 10000 SAVE REGS ENTRY: HL-STRING 


6C52 08 


EX 


AFiAF' PNTRTODE EXIT: HL = VALUE 


6C53 lA 


LD 




CLEAR RESULT 


A» lUt J * 


6C54 13 


INC 


DE 


SWAP?? 


6C55 FE9e 


CP 


9B 


BUMP POINTER 


6C57 2825 


JR 


Z.6C7E 


TEST FOR? 


6C59 FE21 


CP 


21 


RTN IF FOUND 


feC5e 3821 


JR 


C»6C7E 


TEST FOR SPACE OR LESS 


6C5D CDFF53 


CALL 


53FF 


GO IF YES 


6C60 281 C 


JR 


Z.6C7E 


TEST FOR LINE, PARA, PG, TERM 


6C62 FE2E 


CP 


2E 


GO IF FND 


6C64 2BED 


JR 


Z»6C53 


TEST FOR PERIOD 


6C66 FE2C 


CP 


2C ■ 


GO IF FND 


6C68 2006 


JR 


NZ.6C70 


TEST FOR COMMA 


6C6A 08 


EX 


AF.AF' 




6C6B 3011 


JR 


NC,6C7E 




6C6D 08 


EX 


AF , AF ' 




6C6E 18E3 


JR 








GO FOR NEXT 


6C70 29 


ADD 


HL.HL , 


1 N-2 


6C71 44 


LD 


B)H 


SAVE N '2 


6C72 4D 


LD 


C.L 


N*4 


6C73 29 


ADD 


HLiHL 


N*8 


6C74 29 


ADD 


HL.HL 


N-10 


6C75 09 


ADD 


HLtBC 


CONVERT ASCIf TO BINARY 


6C76 D63B 


SUB 


30 


NOW INC 


6C7B 4F 


LD 


Ci A 


NOW IN BC 


6C79 0600 


LD 


Bi00 


MERGE 


6C7e 09 


ADD 


HL.BC 


LOOP FOR NEXT 


6C7C 18D5 


JR 




RESTORE REGS 




nim irtLi 


6C7E Dl 


POP 


DE ""'""'■• 


6C7F CI 


POP 


BC 


6C80 C9 


RET 






Fig. 7. 


Hand-Commented Disassembly 



New 
Products 

For the TRS-80* 

NODELS l&l 



Digital I/O Port 

+ teaching newsletter 



APIO-Ul' 




Coniroi the outside world from Basic 
ot machine language, 8 TTL outputs. 
6 inputs, assembiefl and tested PC 
Board to simplity Construction Help'ul 
newsletter teaches beginners interface 
techniques All necessary hardware, 
custom front panel, and reference 
manual included (order connector 
below) S47.00 . newsletter S2.50 



TTY-interface 

^^-^r^ low cost printout 

"^A "^ .^ Convert any ASCII or Baudot teletype 
rt T_i '° ^ TRS-80 printer, no expans.on 
C Tfc * interface needed $62.00; optional Idop 

"^' supply $30.00; write tor more into. 



Radioteletype 




wireless computerllnlC 

The lowest cost way to gel into the 
world of RTTV Shortwave listeners 
can now use their THS-80 to monitor 
foreign and domestic news services. 
Amateur radio operators can also 
transmit to their RTTV friends Simple 
to install hardware, easy to ijse soft- 
ware (with many features not found on 
most teletype systems) . . . $95.00; for 
detailed information request our flyer. 



LIGHT •PEN 

with sophisticated software 

Add excitement to your software, 
LTPEN-80 adds five new functrons to 
Basic: in an instant, pick any (X.Y) 
point or character position on the 
screen simply by pointing the penl. 
enhance games simplify user entry 
$27.00; (all software included). 




Phone-NODEH 

RS-2nnot needBedtllt 

The low cost alternative to, buying 
an expensive flS-232 interface and 
modem The PHone mODEM emulates 
these functions in software, greatly 
reducing the amount of hardware 
needed The PHODEM connects di- 
rectly to your phone line and can even 
dial directly from the TRS-80 key- 
board Get in touch with the informa- 
tion services at a price anyone can 




the 

CUSTOM 

TRS-80t 

a gold mine of information on TRS-80 interfacing, 
especially helpful to APlO-80 users innovative new 
mass storage systems, and many other projects to 
eiipan^h^se^Wou^^^^^no^cos^Z^O 



m 



CONNECTORS 

MODELI(40ptii) & MODEL KfOptn) 

allows the user lo connect to the expansion 
port of the TRS-80, included is an information sheet 
describing the signals available on the buss and 
how to use them: also a special section revealing 
the secrets necessary to use the M odel 3 buss 
(order 1 c onnector for each APIO-SO^H^^^^ 
^^^^^you purchase) specify model 1 or 3; $7.50 



Poslag^pai^witm^US^^^^oreign orders remit 
US funds plus extra postage For instant informa- 
tion on our products call our recording phone 
line (or write] for our new flyer. 



SIPIEX 



O for more info. call@ 

717/733-4769 
elecUonic innovations 

Box 4034 LANCASTER PA T7B04 
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Born To Run. 
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Special Grand Opening values on complete TRS-SO"^" 
Model III systems and disk drives, now through Sept 15, 1981 ! 



A,M, Electronics, Inc. has created the most powerful and 
reliable TRS-80"* hardware and software systems available to 
get your system up and running. Take advantage of special 
Grand Opening values like these: 

New TRS-80''' Model III now with disk drives 

Model III with dual 80-track disk drives-704K of reliable disk 
storage on only two drives. System features two double-density 
80-track drives. 48K RAM. A.M. Electronics controller board 
Complete, ready-to-run' $2^5 

Model III with dual 40-track double-density disk drives, 48K 
RAM and A.M. Electronics controller board. Complete readv- 
to-run!$1395 ^ 

DOS-PLUS operating system for TRS-80 Model III. $69.95 

New! MAKE 80® now available for Model III 

Converts Model I single-density 4a-track or Model III double- 
density 40-1rack standard diskettes into Model III double- 
density 80-track-readable diskettes. $29.95 



New Teac disk drives, complete with power supply, 
case and one-year warranty 

Teac 40-track disk drive. $265 
Teac 80-track disk drive with 1 0ms access time. $375 
Teac 50F dual-headed 80-track disk drive with 1 0ms access 
time. $499 

Disk drive cases & power supplies 

5'/2-inch single drive unit with case and power supply. $85 
5'/?-inch dual drive unit with case and power supply. $120 
8-inch single drive unit with case and power supply. $150 

More Grand Opening Specials! 

1 8K 200 nanosecond RAM memory chip. $Z00 each 
Disk drive extender cable. $8.95 each 

Free Disk Drive Guide 

Get your concise and fact-filled guide from A.M. Electronics, 
written in engaging Question /Answer style. Gall or write us to 
order your Guide todayi ^452 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-SO^" to work for you! 



Dealer /Service Center 
Record Package 

This package, built in several modular 
packages, can be used separately, or in 
combination as a complete system. The 
modular units are self-contained. When 
combined, they will make the most 
complete and comprehensive service 
center bookkeeping/record-keeping 
package on the market, 

A complete history of customer repair 
files is maintained on-line. Customer files 
can be accessed by account number or 
customer name. The information ftte 
includes customer name, address and 
telephone number, make of unit, service 
dates, name of servicing technician, 
services performed, and total billed. This 
information can be called to the screen 
or printer as a total list, or by the last 
service date. 

The customer records module can 
post to accounts receivable module, 
payroll module and our Inventory Control 
System. 

A Model I computer, with four 80-track 
drives, or a Model III computer, with two 
80-track drives will hold approximately 
1 ,800 customers and records. By adding 
additional drives to the Model III, more 
than twice this amount of information 
can be maintained. By switching 
diskettes in drives, the capacity is 
unlimited. 

Versions of Dealer Service Center 
Record Package are available for Auto 
Dealers, Mechanics, TV Repair Centers, 
Electronic Technicians and Appliance 
Repair Centers. $199.95 

Order Entry HAfith 
Invoicing & inventoryl 

Orders are composed of name and 
address information (with optional 
company name), method of shipment, 
method of payment, items on order, 
quantities, prices, description, and stock 
number. The system also prints invoices. 

At point of shipment, inventory is 
automatically updated and dollar sales 
recorded. Shipping charges are logged 
and shipping date recorded. All entries 
may be edited and partial shipping is 
permitted. The inventory module allows 
checking and updating stock, inventory 



See your nearest 
A.M. Electronics, Inc. dealer 

Here IS a partial listing of authorized A M 
Electronics, Inc dealers 



ARIZONA 

Simulek Compuler Prottucti 

PO Boa 13687 

Tucson Ariiona 8S7I0 

Mlcrocompulen, Inc. 

«?2e Fai.monl 

Phoeii- A^.^ona 86018 

CALIFORNIA 

RAC Producls 

3?00 Knigliiswood Way 
San JoiP Cahtornia 95148 

CONNECTICUT 

Mounlain View Sotlware 

MiryOrook Roaa 

Danbu'y. Conneciicui 06810 

Compuler Senrtcei ol DanburY 

14 Summri Si'eel 
□anouty ConnecliCLit 06810 



DIST . OF COLUMBIA 

Progiam Slore 
4200 Wisconsin Ave NW 
Washington, D C 20016 

FLORIDA 

Compute I WorW* 

2132 Easi Bay Dii.e 

Clearwalei Flonaa 33516 

Adventure InMmatlonal 

507EaslS(ieel 
Longwood, Floiida 32750 

All Syllema Go 

105 We5l Plant Si'eel 
WinlerGarOen Florida 32787 

ILLINOIS 

3H Compuler 

i960Biltei RoaO 
Au.O'a Illinois 60504 

AAA Ctilc»(fo Compuler Center 

120 Chestnut Lane 
Wheeling Illinois 60090 

Midweit Computei Peripherals 

146' S Michigan Ave 
Chicago iiimois 60605 

MASSACHUSETTS 

Small Busmcas Systems Group 

6Cail.slf>Roao 
WestlorO Mass 01886 

Omniiek Sy items 

1899 Mam Slreel 

rei«l<50ury. Mass Oi87h 

Computer Plut 

245A Great Road 

Litlleton. Mass 01460 



MICHIGAN 

Adapts — 

600 28lh St'PPI 
nfl Rapids. Michigan 49509 



Remarkat>le Soltware 
1508A Defense 

Muskegon Michigan 49441 

Jamei Buller 

438 East Lake Stieel 
Peioskey Michigan 49770 

Eight Bit Corner 

722 Evanston Auenue 
Muskegon Michigan 49442 

Soft Sictor Marketing, Inc. 

6250 MifldieEelt RoaO 

Garden Cily, Michigan 4B135 

Malrli Soltwsfi 

31 5 Marion Avenue 

Big Rapids, Michigan 49307 

Breeie Computing 

POBox 1013 

Berkley Michigan 48072 

NEW HAMPSHIRE 

HardsMe 

6 South Sireet 
Millord New Hampshire 03055 

NEW JERSEY 

Floppy Dlik Services 

40 MiSty Morn Lane North 
Trenton New Jersey 08638 

NEW MEXICO 

Rocky Mountain Engineering 
4749 Southern. E E 

Albuquerque New Me«pCO 87>D£ 

NEW YORK 

John O. Owens Associalei. Inc. 

12 Schubert Streel 

Siaien Island New Vorfc 10305 

B.T. Enlerprtse* 

171 HamtLins 
Cenlereach New York 11720 

NORTH CAROLINA 

Alptia Technology 

1201 Wicker Dlivi=' 

Raleigh Morth Carolina 2'604 



OHIO 

Elvclronics Unlimited 

824 East 14lh Sireet 
Ashtabula Ohio 44004 

OREGON 

13MCenIreEleclfonK« 

1300 6th Streel 
Umatilla Oregon 97882 

PENNSYLVANIA 

Stevens Radio Stuck 

563 Null Roao 

Phoeniiville Pennsylvania 19460 

TEXAS 

Quality Sotlware 

11 500 Stemmons Expressway 
Dallas Te.as 75229 



reports, sales reports, shipping charges, 
etc. 

Order Entry is a complete order entry 
system, designed for almost any retail 
and/or vi/holesale business. Its capacity 
is upward-expandable from a dual 40- 
track Model I system: 1 ,750 inventory 
items, 385 orders per diskette. $199.95 



Inventory Control ^stirh 

This system gives the user complete 
access to and control overan unlimited 
number of inventory items. (Note: tt has 
been found that systems containing 
more than 1 3,000 items are diificulfto 
handle, from a maintenance time 
standpoint. Operations, such as Bt6ck 
File reoganization can take more than 3 
hours.) 

As presently configured, a Model I 
computer with one 40-track drive will 
hold 1 ,925 items, or for a four-drive 
system a total of 6,625 items. Four 80- 
track drives will hold in excess of 1 3,000 
Items, A Model III computer, with two 40- 
track drives, will hold about 1 3,000 parts. 
If required. A,M. Electronics can modify 
both the program and hardware 
configuration to allow on-line storage of 
an unlimited number ot items. As the file 
becomes larger, maintenance 
operations take longer. Average search 
time is six seconds, with 1 2 seconds the 
longest time. 

Upon program initialization, the user 
specifies the item number and 
description digit length. This allows for 
item numbers up to 23 alpha-numeric 
characters. (As item number digits 
increase, digits for description usage are 
decreased,) 

The program is completely menu- 
driven. Items can be added, edited or 
deleted from the file. Items can be 
placed on order, received to stock, or 
sold from inventory Complete printout 
capabilities are available through the 
printout menu. 

Item information includes, item 
number, description, supplier, re-order 
point, cost, who'esale and retail selling 
price, quantity, on-order, and total sold. 
The re-order point is calculated by the 
program, based on number of items sold 
over a period of time. The time period is 
established at program initialization. 
$199.95 

Get a sample 

software printout — Free! 

Call or write us to get sample program 
printouts for these programs, or if you 
need more information. We'll be happy to 
send It to you. 



A.M. ELECTRONICS, INC 



Ann Arbor: 3366 Washtenaw Ave,, Ann Arbor, Ml 481 04 (31 3) 973-231 2 Store Hours: Monday-Fhday 1 0-6 Sat, 1 0-5 

Grand Opening of our Radio Shack Authorized Dealership at: 1 1 1 North Grand, Box 1 071 , Fowlerville, Ml 48836 (51 7) 223-7281 

Attention Dealers, OEM's & Distributors: Call us tor details on our attractive pricing 



'"TRS-SO IS a Iradema'k of TanOy Coip 
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NEW PRODUCTS 



Edited by Janet Fiderio 



50 Programs for 
The Pocket Computer 

50 Programs in Basic for Home. School 
and Office, is a collection of new software 
especially written for the TRS-80 Pocket 
Computer. 

Tfie booklet features such Basic pro- 
grams as: Pocket Datebook, Profit Com- 
puter, Metric Converter and Deposit 
Doubler. Each will run without modifica- 
tion on the Sharp PC-1211 pocket com- 
puter and with only minor modifications 
on any Basic microcomputer. 

The publication, priced at $9.95, is 
available from ARCsoft Publishers, P.O. 
Box 132EM Woodsboro, MD 21798. 

Reader Service ^ 325 

Dairy Herd Management 

Dairy Herd Computer Services has 
released a Dairy Herd f^anagement pro- 
gram available for the TRS-80 Model II, 
64K with printer. 

W+th over twenty report categories for 
dairy herd management and statistics, 
this program records complete animal 
history, milk production, and medical 
history. 

The program costs $699. A compatible 
calt program costs $179. For more infor- 
mation contact Dairy Herd Computer Ser- 
vices, 870 Mesa Drive, Arroyo Grande CA 
93420. 

Reader Service *- 181 



Mobile 
Entertainment Robot 



The DC-2 is a mobile entertainment 
robot. It features complete mobility, mod- 
el airplane-type radio controls, Sony color 
tv set/monitor, Audiovox components, 
and a turning head conlroiled remotely in- 
side a protective dome. 

If you wish more information on this 
mechanical man contact The Android 
Amusement Corporation, 2650 Myrtle 
Ave.. B-7, Dootson Industrial Park, Monro- 
via, CA 91016. 

Reader Service^ 180 



Software 
Development Station 

A new series of microprocessor devel- 
opment systems enables the Model I or 
Model III with at least 32K of RAM to serve 
as a software development station for a 
variety of single-chip processors. 

Each system is a unified editor/assem- 
bler and shares a common operational 
structure with uniform procedures for pro- 
gram entry, modification, assembly, and 
source file handling. 

Each system is available for $75 on 
TRS-80 cassette (5O0), or the Model III 
disk. For additional information contact: 
Allen Ashley, 395 Sierra Madre Villa, 
Pasadena, CA 91107. 

Reader Service ^ 345 

On Genealogical Topics 

Genealogical Computing is a bi-month- 
ly newsletter by the people who created 
the "Family Historians" bulletin board. 




It includes a directory of genealogy-ori- 
ented programs, information on comput- 
erizing family research records, program 
reviews and articles on genealogical top- 
ics. 

Edited by Paul and Saratou Andereck, it 
is available for $2 an issue, or $12 for six 
issues from Data Transfer Assoc, 5102 
Pommeroy Dr., Fairfax, VA 22032. 

Reader Service ^ 177 

Medical Software 

A new software package is available 
that permits complete patient and office 
record maintenance for medical offices 
on the Model I and Model 111 equipped with 
a printer and disk drives. 

The Medical Office System Software 
can store up to 3960 patient accounts on 
the Model I, or up to 4200 accounts using 
the Model Ml. 

The package is priced at $299 from Tan- 
dy/Radio Shack, 1800 One Tandy Center, 
Fort Worth, TX 76102. 

Reader Service ^ 334 

New Model III System 

Level IV products announces the 
TRS-80 Model III computer with four MPI 
model B-92 double head, double side, 
80-track, 5 1/4-inch disk drives. The system 
sees them as eight separate 80-track 
drives. 

Level IV has used the Radio Shack disk 
controller board, thereby maintaining full 
serviceability and compatibility with other 
standard software. 

Prices begin at $1,859 from Level IV 
Products Inc., 32461 Schoolcraft Rd., 
Livonia, Ml 48150. 

Reader Service ►- 174 

It Takes a Thief! 



DC-2 Robot 



It Takes a Thief is an adventure game in 
which you teach your computer how to be 
a thief. 

The object of the game is to steal as 
many items of value as you can and get 
away. 
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A tape version for the 16K Level II and 
the 32K disk system are provided on op- 
posite sides of a cassette, for $10 from 
RanDob Computer Paraphernalia, P.O. 
Box 1662, Boca Raton, FL 33432. 

Reader Service ^ 329 

A Magazine on Cassette 

Chromasette Magazine is a monthly 
magazine for the TRS-80 Extended Basic 
Color Computer. It is "printed" on a 
cassette tape. 

The cassette contains six to eight pro- 
grams that directly load and run on the 
Color Computer, Included each month are 
games, tutorials, utilities, and practical 
programs. 

The cost is $45 for a one year subscrip- 
tion (12 issues) or $25 for a half year. For 
more information contact: Chromasette 
Magazine, P.O. Box 1087. Santa Barbara. 
CA 93102. 

Reader Service ^ 339 

Table Top Robotics 

MiniMover 5 is a table-top robot arm 
that can be run with a Level il TRS-80. Con- 
trolled by stepping motors, the arm is a 
five-jointed unit with a parallel linkage 
gripper and 17.5 inch reach. 

Possible applications for the MiniMover 
range from computer games, computer- 
ized construction and computer assembly 
to computer art. 

The Arm unit is priced at $1,695. For 
more information contact Microbot, 1259 
El Camino Real, Suite 200. Menio Park, CA 
94025. 

Reader Service v* 169 




PIWC-57 



Robotics Reference 
And Applications Manual 

The MiniMover 5 Robotics Reference 

and Applications Manual is available for 
$16.95. 

The manual goes beyond the operation 
of the company's light-weight arm and cov- 
ers other robotic units available on the 
market. It is written for those interested in 
learning manipulator operation; subjects 
include mechanicals, electronic/com- 
puter interfaces, software and mathemat- 
ics. 

For more information contact Microbot, 
1259 El Camino Real, Suite 200. MenIo 
Park, CA 94025. 

Reader Service^170 



The PMC-81 




Mini Mover 5 and Reference Manual 



Personal Micro Computers has added 
the PMC-81 to its TRS-80 Model I work- 
alike product line. 

This micro has 16K of memory, 14K of 
ROM, utilizes a Z-80 chip and provides a 
keyboard, cassette interface and video 
monitor interface. The PMC-81 uses the 
EXP-100 Expander to add interfaces for 
minifloppy disks, printer, RS-232C and 
S-100 bus. 

It retails for $740 or $939 with the 
VDM-81 green monitor screen from Per- 
sonal Micro Computers. Inc.. 475 Ellis St. 
Mountain View, CA 94043. 
Reader Service ^ 331 

On Musical Applications 

The next time you want to compose 
music and experiment with a variety of 
sounds, read Musical Applications of Mi- 
croprocessors, by Hal Chamberlain. 

The author explores digital micropro- 
cessors, sound, music synthesis and ap- 
plications tor the more powerful 16-bit 
micros. 

The book is available for $24.95 from 
the Hayden Book Company, Inc.. 50 Essex 
St., Rochelle Park. NJ 07662. 

Reader Service ^ 328 

Booklceeping Products 

Bookkeeper II, a new group of book- 
keeping products for CP/M-based and 
Model II systems, is written in Microsoft 
Basic. 
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NEW PRODUCTS 



The software includes general ledger, 
accounts receivable and payable, fixed 
asset, payroir capabilities and more. It is 
also useful for maintenance of tax tables, 
W-2 forms, quarterly tax reports, and 
more. , 

Bookkeeper II is available at $600 per 
module or $1,500 for tfie complete pack- 
age. Contact Data Train, Inc., 840 NW 6lh 
St., Suite #3, Grants Pass, OR 97526, for 
more information. 

Reader Service ►^ 327 



MTI Offers 

Dual Disk System 

Microcomputer Tecfmology, Inc., is 
now marketing an upgraded Model III sys- 
tem. 

MTI expanded tfie memory of the basic 
16K Model III to 48K bytes and added the 
_, f', MTI double density, dual disk drive sys- 
"' tern. The system is fully compatible with 
the Radio Shack DOS and peripherals. 

This product sells for $1 ,998 from Micro- 
computer Technology, Inc., 3304 W. Mac- 
Arthur Blvd., Santa Ana, GA 92704. 

Reader Service ^ 175 



Compact Joystick Control 

A joystick-controlled pair of 100K Ohm 
linear-taper pententiometers is now avail- 
able. 

This compact (1 7/16-inch square) joy- 
stick control is intended for a variety of ap- 
plications, from radio controlled model 
cars to video games. 

II is available for $4.95 from Radio 



2nd Edition 



TheBASIC 



Handbook 



Encyclopedia of ihe 
BASIC Computer Language 



by 

David A Lipn 



The Basic Handbook 




Etch— Sketch 
With the TRS-80 



Joy Stick Control 

Shack stores. For more information, con- 
tact Tandy/Radio Shack, 1800 One Tandy 
Center, Fort Worth, TX 76102. 
Reader Service ^^ 161 



Mailing List Program 

Demi-Mail is a TRS-80 Model I and III 
compatible mailing list program. It has 
three to five-line address formats, 26 
record types in a single file, five and nine- 
digit ZIP codes, five print and display op- 
tions, individual and global delete func- 
tions, user defined dates for each file and 
variable-size compressed data fields, to 
provide disk efficiency. 

It can also merge name and address in- 
formation vi/ith word processing files for 
list processing. 

It is available for $24.95 trom Demi- 
Software, 6 Lee Road, Medfield, MA 
02052. 

Reader Service ^ 165 



New Basic Handbook 

The Basic Handbook (second edition): 
An Encyclopedia of the Basic Computer 
Language, by David Lien has just been re- 
leased by CompuSoft Publishing. 

More than a revision, the handbook has 
been reorganized and researched result- 
ing in a definitive compendium of almost 
500 Basic words. 

The Handbook is available for $19.95 
from CompuSoft Publishing, 1050-E 
Pioneer Way, El Cajon, CA 92020. 

Reader Service ^^ 171 



Etch allows you to create pictures with 
graphic dots on your video screen. 

The 4K Level II version will save pictures 
on tape and the 16K disk version saves 
pictures on disks which can then be List- 
ed by TRSDOS. Both versions are provid- 
ed on one cassette. 

Etch is priced at $9 from RanDob Com- 
puter Paraphernalia, P.O. Box 1662, Boca 
Raton, FL. 

Reader Service t^ 160 



The Memory Box 
Adds Memory 

The Memory Box is a memory expan- 
sion unit that provides 1024 bytes of RAM 
in an unassigned area of memory (3000- 
33FF hex) and can be plugged directly into 
the CPU or expansion interface. 

Two utility programs written to reside in 
the Memory Box are included in the pack- 
age, for $64.95 from Displayed Video, 7538 
Jackson Road, AnnHarbor, Ml 48103. 

Reader Service ^^ 335 



Bowl with the TRS-80 

Tenpins is a machine code bowling 
game for one to four players. This graphic 
game has realistic action and sounds, and 
beginner and advanced levels. Scoring, 
pin setting and ball return are all automat- 
ic. 

It is available for the Modei I or III on 
cassette for $14.95, or on disk for the 
Model I for $20.95. Inquiries should be 
directed to Acorn Software Products, 634 
North Carolina Ave,, S.E„ Washington, 
D.C. 20003. 

Reader Service ^^ 347 




80 Bowling 
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NEW PRODUCTS 




Disk Cleaner 



Cleaning Kits for 
Disl( Drive Heads 



Radio Shack is offering disk drive head 
cleaning kits which permit the cleaning 
and maintenance of the read/write heads 
ot Model I. II, and 111 disk drives. 

Two kits are available, one for 5 1/4-Inch 
disk drives, and one for 8-inch disk drives. 

The price is $29.95 from Tandy/Radio 
Shack, 1800 One Tandy Center, Fort 
Worth, TX 76102. 

Reader Service y^ 173 



User's Idea Book 



The Microcomputer User's Idea Soofc is 
a catalog dedicated to meeting the entire 
supply, accessory, and cable needs of 
micro users. 

The 32-page publication is broken into 
separate sections by major microcom- 
puter companies. In addition, extensive 




cross-referencing shows compatibility 
within systems. 

A free one-year subscription can be ob- 
tained by writing: Inmac, Department 12, 
2466 Augustine Drive, Santa Clara, CA 
95051. 

Reader Service t^ 179 



Graphics 

From the Line Printer VII 

The Line Printer VII offers quality im- 
pact printing and dot addressable high- 
density graphics for $399. 

The printer also features: either 80 or 40 
upper and lowercase 5 x 7 dot matrix char- 
acters per eight-inch line at 30 characters 
per second; adjustable width and plain 
paper printing; self re-Inking ribbon; and 
switch-selectable standard Interface op- 
tions. 

For more information contact Tan- 
dy/Radio Shack, 1800 One Tandy Center, 
Fort Worth, TX 76102. 

Reader Service ^ 168 



Color-Coded 

Files with Compu-Key 

Wenner Business Systems has in- 
troduced a filing system that businesses 
can use with desk-top computers or word 
processors. 

Compu-Key is a computer-generated 
color-coded filing system which enables 
you to set up files alphabetically, numeri- 
cally, by date, territory, and more. The 
computer codes these sections with col- 
ored blocks, while keeping track of purge 
dates or other data for future recall or 
management reports. 

A box containing 1,000 labels is priced 
at $56.50. For more information, contact 
Wenner Business Systems, P.O. Box 831, 
State St., Los Altos, CA 94002. 

Reader Service *^ 330. 



Litigation 
Support Software 



The new Litigation Support software 
package from Radio Shack is of direct in- 
terest to law firms, legal offices and attor- 
neys. 

The package assists the attorney in im- 
plementing a flexible storage and retrieval 
filing system. Litigation Support creates a 
client file and a forms file, both of which 
provide complete report generation. 




Line Printer VII 

This software requires a 64K Model II 
computer and a 15-inch wide tractor-feed 
line printer. It is available for $299. For 
more information contact Tandy/Radio 
Shack, 1800 One Tandy Center, Fort 
Worth, TX 76102. 

Reader Service *^ 336 



Micromouth 
Says 143 Things 

Micromouth is a TRS-80 compatible lim- 
ited-vocabulary voice synthesizer which 
uses the new Dtgl-Talker DT1050 chip set 
from National Semiconductor to store a 
vocabulary of 143 expressions. 

Micromouth plugs into the keyboard, 
screen printer port or expansion interface 
and programs directly in Basic. 

It comes with case, power supply and 
interconnecting cable in kit form for $150, 
assembled for $175 from Micromint, 917 
Midway, Woodmere, NY 11598. 

Reader Service >^ 176 



Light Pen for 
Models I and 



A self-contained light pen which plugs 
directly into the Model I and III has been 




Light Pen 
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unuTY 

FORCE 



THE VIDEO MANAGER ^«f FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer; save screen to 
disl( as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TflS-80; Mod I TRS 
DOS 2.3. Mod II TRS DOS 1.2 & 2.0, CP/M 2.0 or later, 
soon available for Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand 
ling and postage. -"Tsridycotp 

SOFTWAREHOUSE IISTTERNATIONAL 

(k 5070 N. Sixth St. Suite 103B 

11^ Fresno, CA 93710 (209) 221 7877 

TO RECEIVE A FREE CATALOG PLEASE - ta 




Dr. Jerome S. Osteryoung, renowned business educator, an< 
author of 5 business texts has written the following programs. 

1 . PROFORMA CASH-BUDGET 

PROGRAM 

Allows the usef to pro)ect the cash-balances (or up to twelve 
periods in the tuture. Amount of loan, if needed, is computed as 
well as computing funds available for short-term investment. 
(rrice$l25) 

2. LEASE-PURCHASE PROGRAM 

Evaluates the lease vs. purchase decision incorporating all the 
latest tax laws including the investment tax credit and ac- 
celerated depreciation. This program gives the user all the in- 
formation necessary to make this decision. (Price $50) 

3. BUSINESS PROGRAM PACKAGE 

13 Business programs (e.g., capital budgeting, cash- 
management, ratio analysis, debt management). These pro- 
grams will be very useful to the business manager. (Prke $200) 

4. PROCUREMENT PROGRAM 

Ascertains purchase amount when future price of commodity 
is varying. A must for all managers who have purchasing 
responsibilities. This program takes into consideration inven- 
tory levels, inventory capacity, and financial carrying cos! in 
determining the optimal amount of an item to purchase when 
tuture puces are varying (Price $im)) 

5. COLLEGE ENROLLMENT 
PRO|ECTION PROGRAM 

Forecasts the enrollment lor colleges using several difterenl 
statistical techniques. User can specify the number of periods 
tor which a forecast is desired. (Price $100) 

Extensive Documentation With Each Program 

Write or call for a brochure which describes the product in 
greater detai 

5200 Biillany Drive. »I006^SI Pete's turg. Horiaa 33nb 
813H64 4347 



THE PROGRAMMER'S GUILD 
MEANS ADVENTURE! ! 



SPIDER MOUNTAIN 

SEARCH FOR GOLD AND GLORY IN THE TUNNELS 
OF SHELOB'S LAIR. 



TAPE $14.95 



DISK $19.95 



LOST DUTCHMAN'S GOLD 

YOU AND THE GHOST OF BACKPACK SAM AGAINST 
THE TREACHEROUS TERRAIN AND HOSTILE 
INDIANS OF THE SUPERSTITION MOUNTAINS. 



TAPE $14.95 



DISK $19.95 



LOST SHIP 

DISCOVER THE SECRET OF THE FLOATING PIRATE 
VESSEL IN THE MYSTERIOUS DEVIL'S TRIANGLE. 



TAPE $14.95 



DISK $19.95 



DEATH DREADNAUGHT 

CAN YOU ESCAPE THE CREATURE'S DEADLY 
PURSUIT AND MAKE IT TO THE SHUTTLE ALIVE? 
RATED R DUE TO VIOLENT DESCRIPTIONS. 



TAPE $14.95 



DISK $19.95 



DRAGONQUEST 

RESCUE THE PRINCESS BEFORE SUNDOWN FROM 
SMAEGOR THE TERRIBLE. MACHINE CODE, KEY- 
BOARD MACRO. 



TAPE $15.95 



DISK $21.95 



THUNDER ROAD 

HILARIOUSTAKEOFFONTHE-'DUKESOF HAZARD" 
CAN YOU GET YOUR MOONSHINE TO KNAWBONE 
BEFORE SHERIFF BUBBA SHUTS YOU DOV^N? 



TAPE $14.95 



DISK $19.95 



DEADLY DUNGEON 

DISCOVER THE SECRET OF THE DEADLY DUNGEON 
AND EMERGE VICTORIOUS AND WEALTHY. 



TAPE $14.95 



DISK $19.95 



* * • NEW RELEASE • * • 
TEMPLE OF THE SUN 

EXPLORE AN ANCIENT AZTEC TEMPLE SEARCHING 
FOR THE SHAMAN'S SECRET. 



TAPE $19.95 



DISK $29.95 



COMPUTER MAIL ORDER IS HEREI 1 I 



Programmer's Guild 

1' D Bii. 1)1,. P^lfitjO'Outlti NH OM'iH.tiOJ 9J.1 feOfifi VoKP • Sm 12' '4^0 [Isl.i 



^ S*» UtI of 4draitfs«rs on pag* 3S4 
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NEW PRODUCTS 



announced by the 3G Company. 

The pen makes it possible to bypass the 
TRS-80's keyboard and interact directly 
with information displayed on the CRT 
screen. 

A demonstration game cassette, sam- 
ple program and programming booklet are 
included with the pen. The package sells 
for $39.95 from the 3G Company Inc., Rte. 
3. Box 28A Gaston, OR 971 19. 

Reader Service ^ 338 



Fast, Precise Splicing 

The Data Trak Splice Kit makes fast, 
precise splicing of two or more cartons of 
pin-feed forms possible. This kit is most 
useful where unattended printers are 
used on long runs. 

Data Trak is designed to handle 16 dif- 
ferent widths of pin-feed forms (from 4 
IM-inch to 14 7/8-inch). The cost is $38.50 
from Devoke Data Products, 3780 Fabian 
Way, Palo Alto, CA 94303. 

Reader Service ^ 162 



An Offset 
Printing Estimator 



The Offset Printing Estimator is used in 
the design and final stages of cost esti- 
mating black and white offset printing. 

It is intended for use by business ex- 
ecutives, consultants, and advertising ex- 
ecutives in the planning stages of prepar- 
ing sales literature, bulletins, catalogs, 
and price lists. 

The Estimator runs on the Model I and 
the Model III, and is available for $500 
from Pasadena Technology Press, 3543 E. 
California Blvd., Pasadena, CA 91107. 

Reader Service ^178 



Operating 

System Modification 



Cordos is a modification for the Model 
It operating system that allows fully trans- 
parent use of rigid disk drives, such as the 
Corvus Winchester drive and the Cameo 
cartridge drive. 

Up to 98 volumes, or logical drives, may 
be used. Cordos has facilities for pass- 
word protection for the full drive, as well 
as a volume-level password protection. 

The price is $300 for an eight-inch flop- 
py disk from American Business Comput- 
ers, 118 South Mill St., Pryor, OK 74361. 

Reader Service ^ 340 




*»«w 



Data Trak Splice Kit 



Goid Edge-Connectors 
For the IVIod 1 

The Gold Plug '80 Kit is a micron over 
nickle edge-card plug that is soldered di- 
rectly to the existing edge card plug on the 
Model I CPU and Expansion Interface. 

The kit eliminates problems that occur 
due to oxidation of the tin and lead sur- 
face of the Model I expansion ports. 

Gold Plug '80 kits are available for key- 
board/CPU to expansion interface for 
$18.95, or expansion interface to disk, 
printer, screen printer, or RS-232 ports for 
$9.95 from E.A.P. Co., P.O. Box 14. Keller, 
TX 76248. 

Reader Service ^ 166 



Cassettes Formulated 
By Agfa-Gevaert 



Displayed Video is now marketing cer- 
tified data cartridges made of top grade 
tape formulated by Agfa-Gevaert of Ger- 
many. 

These microcomputer cassette tapes 
are certified to be 100 percent error free 
and carry an unconditional money-back 
guarantee. 

The price for the C-10 length 12-pack is 
68 cents each, and for the 24-pack, 58 
cents each. The C-20 12-pack sells for 88 
cents each, 78 cents each for the 24-pack. 
For more information contact Displayed 
Video, 7538 Jackson Road, Ann Arbor, Ml 
48103,313-426-5086. 

Reader Service u^ 344 



Color Computer Programs 

Two new editing programs for the Color 
Computer are written in M6809 machine 
code, available on compatible TRS-80C 
machine code cassette tape. 

The Text Editor features screen editing 
commands to allow insertion, deletion, 
changing or adding to text lines. 

The second program is a co-resident 
editor/assembler that allows the user to 
create, edit, and assemble machine code 
programs. 

Their prices: the Text Editor, $19.95; the 
coresident Editor/Assembler, $39.95. 
Both programs as a package cost $49.95 
from Cer-Comp, 5566 Ricochet Ave., Las 
Vegas, NV 89110. 

Reader Service .^ 333 



Sketch Complex Graphics 

Graphic Writing Machine enables users 

to easily sketch complex graphics dis- 
plays using simple keyboard commands. 
The program features two internal 
memories which provide temporary stor- 
age for the screen contents. The sketch 
can be saved to tape or disk. GWM will 
also generate Basic statements so that 
the image may be included in a Basic pro- 
gram. 

Versions are available for 16K and up, 
Model I or III, on tape or disk, from Micro 
Pro Systems, Rte. 2 Box 533, Cummings, 
GA 30130, 404-887-6814. 

Reader Service ^^ 164 
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ATARI 400 
COMPUTER ? 
TO BE AWARDED 
TO ESCAPEE! 



!f ,. 



imn^ ♦■ 



As)4iun is the most sophisticated, sinister, challenging 3-D 
graphics adventure ever written! You arc placed in an asylum 
for DEATHMA2E survivors. Your only goal: ESCAPE/ 

As)iiuii has over 1 200 locations! Hallways recede into the 
screen, as though you are actually there/ Doors open and 
close! Beds, desks, and even guards and other inmates are 
drawn on the screen! And graphics are generated instan- 
taneously! Simply press an arrow key to move or turn, and 
you arc moved. Absolutely no waiting! 

English language commands may be issued at any time from 
a vocabulary of almost 300 words. Commands may include 

complete statements. "G€tei>erythingonthedesk 

except the matches" \s perfectly legal! 

Will anyone escape? Who knows? Intelligence, 
cunning and patience will be necessary Send us 
your correct solution, postmarked no later than 
November 15th. On November 30th we will draw 
from the entrants for an ATARI 4 00 1 6K color computer! 

NO HINTS WILL BE GIVEN OVER THE PHONE! 

ASYLUM 16K cassette S 14.95 

ASYLUM 32K disk % 19.95 

ASYLUM Hint Sheet $ 1.00 

TRS-80 Level II, 
Model I and Model III only 

Med Systems Software 
P.O. Box 2674-A ^n^ 
Chapel Hill, NC 27514 
(919)933-1990 ' 




Features of Qwerty 3- 



Aitt(>maticall> prints in pn>portional prim, with a suitable 
format Transition!- between iht three prim sCylcs are easy, 
including all expanded print modes 

Qwerty 3.0 add.s "S new s>Tnhob, including upper and 
lower ease Greek letters, mathcmatieal s>Tnhols such as 

integrals and summations, arrows. brackctN.andprt>babiytv 
symbols 

Any eharaeter can be used as a subscript or superscript 
ewn simultaneously Carats, bars, and tildes can be placed 
owrany character. «-ith precise position control 

■i. I nderlining, with or without underlining of spaces 
mcludmg long ratios and mathematical exprrssions. 

■> Footno«ea can be placed on any page so that they remain 
on the destrvd page, even if text is inserted later, 

6, Table commartds enable positioning of the print head 

anywhere onahnelnvaluableinprinting neat mathematical 
layouts, tables, columnar material, etc. in proportional print. 

Pretty commands allow printing of repetitions of a 

cho.senchataeter.Whencombinedv,ithT«ble,decoratiw 
borders can be prvxJULed with ease, 

8. FolioformaipnxJucesoutpuiintwoorthreecolumnsper 
page, in either pn>p«rtional or 16 7 cpi mode Ideal for 
newsletters 

9 Supplies a third output mode, in which onlv Scripsit 
commands are obeyr-d. Allows printing of special Qwertv 
commands for future reference, 

10, Page End indicates where pages will end, aiKl the paet 
number, without printing the text. One can prepaiTan 
almost ern>r-/ree d.xument without ever using paper 

1 1 <-orrectionofScripritscnt)rsafKlinconwniences.exten- 
si^tr doc umcntation. atxl much moir! j 



Do you own a Centronics 737? 739? Lineprimtr IV? 
Tirtd of the limitations of SCRIPSIT? Qwerty 3.0 will let 
you accomplish word -processing feats you never dreamed 
possible. Uke Greek letters. Simultaneous subscripts and 
superscripts. Even footnotes and two or three column 
folio formats. See the list of features in the box. No other 
piece of software of this type can match Qwerty 3.0 We 
know, because we bought the others, and were dis 
appointed. 

Qwerty 3:0 is more than "fully tested," It has seen 
thousands of hours of use in a university environment A 
masters thesis and a statistical doctoral dissertation were 
produced and accepted right off a Centronics 737 using 
this package. 

Qwerty 3.0 is the finest SCRJPSIT addition available for 
the Centronics 737, 739. and Uneprinter IV. You must 
own one of diese printers, a copy of SCRIPSIT and a disk 
drive to use it It is the best. Period. WE GUARANTEE 
YOU WILL AGREE! If for some reason, you find that this 
program doesn't meet your needs, return the entire 
package within H days for a prompt and cheerflil reftind 
For cautious buyers, we offer the manual (about 50 

pages ) for J 1 0,00, When you decide to buy Qwertv3 O 
we will credit the ftjU manual price. 

Qwerty 3.0 Oisk, Manual, Reference 

Card, and Printer Table Rule $49.95 

Qwerty 3.0 M anual A lone $10.00 



Med Systems 

(919) 933-1990 
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More from 



Med Systems 

To Order Call (919) 933-1990 




Microworld 

by Arti Haroutunian 



Microworld is an adventure like no other. 
You arc transformed into an electroid, and 
must travel through the circuits of your 
TRS-80! You will be required to solve 
many incredible problems, and in the 
process, you will gain a knowledge of how 
a TRS-80 operates. 

Microworld is one of the most advanced 
pieces of machine language programming 
Med Systems has published. A special 
encoding scheme has allowed a 2 1 Kad\'cn- 
ture to fit in 1 6K- Microworld is verbose. 
Messages are frequent and fact -filled. 

Microworld is an excellent educational 
simulation. I( is supplied with a 12 page 
booklet containing a glossar)' and expla- 
nations of the electronics inside the TRS-80. 

Microworld is immense! It is twice as large 
as most adventures, and at least twice as 
challenging! 

Tape $19.95 Disk $24.95 



Educational Software 

The Playful Professor 

A mathematics tutoring pnigram that 
combines graphic step-hy-stcp tutorials 
with an interesting graphics game. Tutors 
all operations, with integers or fractions. 
One or two players, three <iiff!culty levels. 

The Human Adventure 

A biological adventure in the human 
body. The player travels through the car- 
dio\ascular system, learning kxations and 
functionsofhodily organs while pursuing 
cancer cells. Grades 4 and up. 

Money Master 

A graphics game which sharpens skills 
in counting money and making change. 
The correct amount, in a reasonable 
number of coins, buys objects and pays 
tolls. Some readii^ required. 

Educational Software 

Tapes $14.95 ea. Disks $19.99 ea. 

Educational Package Disk 

All three Med Systems educational 

programs on one disk $34.95 



Med Systems 

P.O. Box 2674-A 
Chapel Hill, N.C. 27514 
(919)933-1990 




Deathmaze 
$000 

Labyrinth 



Deathmaze 5000 and Labyrinth are 3-D 
adventures from the authors who pro- 
duced Asylum, Cine and two word com- 
mands are combined with incredible 3-D 
graphics to provide adventures beyond 
an>thing \'ou'\'e ever seen. 

The goal in Deathmaze is simple. Escape 
from the most maniacal, devilish, dangerous 
building ever constructed. Alive. 

And Lab>'rinth? Kill the mint)laur. However, 
you must find weapons, treasures, and 
knowlege to do so. TTierc's even a graphic 
vending machine! 

The question isn't "Will I survive?". The 
question is "Will 1 be satisfied with non- 
graphics adventures again?". 

Tapes $14.95 ea. Disks $19.95 ea. 



'M 



GRBASIC 

by Simon Smith 



GRABASIC extends Level II or DISK 
BASIC to include an easy to use graphics 
command set. A single BASIC command 
allows the user to drawa line between any 
two pixels on the screen in hundredths of 
a second! Coordinates can be chained to 
allow complex figures to be drawn by a 
single BASIC program line in less than a 
second! 

GRBASIC allows the definition of shapes. 
Once defined, a shape can be rotated. 
scaled up or down in size, drawn anywhere 
on the screen in less than a second, and 
can even be drawn totally or partially "off 
the screen in extended space! And all with 
short, simple BASlCcommands! Even mul- 
tiple shapes are no problem! 

A new program. GRBASIC FUNCTION 
PLOTTER, allows the plotting of almost 
any ftmclion, includii^ polar coordinate 
based figures, parametic equations, and 
almost any wave form. Features include 
function defiiution and automatic screen 
scahr^. and printing capacity on Line 
Printer IV. REQUIRES GRBASIC 

GRBASIC Tape $19-95 

GRBASIC NEWDOS Disk $24.95 

GRBASIC TRS-DOS Disk $24.95 

GRBASIC Function PlotterTape $14.95 
GRBASIC Function Plotter Dldi$19.95 




Knossos 

by Simon Smith 

"You have just been 
thrown into a dark, 
stiitkii^ pit . . ." 



You are isolated and alone in the maze at 
Knossos. Crete. Somewhere, a minotaur is 
tracking your scent. Can you find the only 
doorwilhoutbecomir^a minotaur's meat? 

Knossos is a 3'D graphic simulation. .Mazes 
are represented by a perspective \iew , as 
though you are actuully there. These 
graphics are not the simple, square graphics 
you have seen before. An entirely new 
representation has been implemented 
gi\ing a true cave-like quality. And like all 
Med S)'stem5 3-D graphics, lightenii^ fast 
screen generation is standard. 

Other features include chalk with which 
to mark the floor for reference points, 
randomly generated mazes, distance 
counters for exit, and monster graphics. A 
t>pical game might last 15-20 minutes. 
This is the first tndy 3-D arcade game eve / 
offered. 



Tape $19-95 



Disk $24.95 



Satisfaction Guaranteed 

If for any reason you are not satisfied with 
ourpnxlucts, return your order within 14 
days for a prompt and cheerful refund. 

Ordering Information 

Orders arc processed within five working 
daj-s. Orders arc sent first class within the 
U.S., Canada, and U.S. territories. 0\'erseas 
orders please include J3.00 for air post. 

Order using coupon below. Hease specify 
tape or disk versions, and Model' I or 
Model III computer. 



Model I or Model lU 

TBS-80 Level 11 16K 

unJcss 

oiherwise noted 




Item (specif>' tape or disk) 



Price 



Shipping and Handling 



$1.00 



TOTAL 



Name 
Street. 
City. 



.State 



.Zip. 



Computer. 
TRS^»0 Model I Q 
Mastercard Q 

MC or MSA ' 

Expiration Date _ 



Model ill □ 
MSaD Check G 



^ Sm Utt of Adnrtlun on pagt 3$4 



80 Microcomputing, Septemtier 1981 • 99 



ZLi 



''"''.'•-jL*- 



Uu 



V 



a 



% 




®»«#.f 




'0 



•^'■J^ 




w6t:^ 



\ 





% 




■m- 



■*y< 



{ 



H 









100 • 80 Microcomputing. September 1981 



It' s All Robotese to Me 



by Calvos Gisamte 




Stones about robots and mechanical persons are nearly lim- 
itless, which IS great if you're being paid by the word How- 
ever, discretion— while not my middle name-— is something rm 
not ignoring nearly as much as I used to. So 1 decided 1o give 
this article some direction But, which way'' Suggested topics I 
mulled over and Subsequently discarded (tentatively) are- 

A Robol Glossary 

Acrobots. somersaulting mechanical bipeds which do that 
(lying-trapeze bit as eHoriiessly as you or 1 might tumble into an 
open sewer Also known as Robocrobats 

Automaton and Automatotf: robotic states of conscious- 
ness and unconsciousness. Sometimes called Automatron and 
Automatroff. 

Automatonomat: coin operated robot diner with terrible pies. 

Automalonous Rule\ preferred government of sentient 
microchips 

Bot. a robol hallucinogen, macrobotswana (capekis sativa). 
Users are called BoIIops. 

Buieaabots. officials o( the sentient microchip government, 
prone to stamping UNUSUAL" on all documents. Bureaubols 
are managers of Rotjiivion (viz.). 

Croc'tOols: part of the French Matd Package; slew cooks all 
day in its belly vi/hile the Crockbot dusts the china and straight- 
ens beanbag chairs 

Crowbots. birdlike amusements for the garden; volume can 
be ad|usted for ail environments 

French Maid Package luxury robot kit from RUR industries 
that cooks, cleans, curtseys, and speaks m a foreign language. 
See details under Crockbots. Radiobots, and Robotissene 
Prurient models are available on special request (to adult over 
18 only). 

'f robots: hair stylist robots designed by RUR industries. 

Frogbots: mechanical amphibians, whose nightly serenade 
goes, "robbott robbott 

Great Hobot Mystery whatever happened to Erector Sets? 

Harmless Robots mythical characters (the Robbits) in the 
Lord of the Springs 



Herobols: general term tor highly esteemed robot leaders; 
also, a kind of layered food inside a long, flour-basea crust. 

tntrobot: sentient microchip dating service, part of RUR In- 
dustries. 

Karel Capeh: affectionately referred to as "Daddy" by all 
robots; head of RUR Industries 

Microbots: general-purpose miniaturized robots for human 
edification; microbots can bo used (or keeping tec'h and 
tongues dean, scratching msect bites, cleaning fingernails 
aulomaticaliy, etc. 

Nerobots. activated during fires, these robots provide 
soothing, randomly generated vtolin music 

Radiobots: not to be confused with radto-controlled robol.'., 
these are an option in the French Maid Package May not be 
used simuUaneously witn Siereobots (viz.) due to competitive 
ptogramminQ thai results in ear-splitting easy listening. 

Robhvior} storage area for damaged or discontinued robots, 
maintained by a corps ot Bureaubots 

Roboat passive relaxation vehicle designed to carry robots 
across the River STX to Roblivion. 

Robo-Coupe: a twentieth-century food processor which has 
nothing lo do with this glossary. 

Robo RobozQ financier of RUR Industries. 

Robosco: chocolate topping for milktabs. 

Robotcrobal see Acrobots 

Robolcrats: see Bureaubots 

RoboticeiU. famous robot artist who painted "Venus on the 
Half Chip 

Robotissene. part of the French Maid Package from RUR In- 
dustries, roasts chickenclones for the automatonomat. 

Robolties: glass containers for RotX)Sco Also, a femiclone 
nickname, 

RUR Industries: theological mainstay ot robots, headed by 
Karel Capek. 
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$jji5a^'^b (dS'flO) n. [CoMoq] a highly inter- 
active' tajsiness or home finance program, 
^dgsign^ to instantly analyze where the hell 
'^at money went. 

i(te lis a fusl""** pi09i«m »• • t*om« Hrt^nc* proflfwn Doughllo l» (now f"** 
taJhMlM: *•» •Xpirtdttur* otlMitad Oatm baM <nan«Q*m«m •ystem ■ (Wham ) Bui 
fft^U^'S fMy tDuw 
''■ itf^ ji^ ooev Jo«9hlla do? Loi » 

*" ■■■■ ,fnsi*il«nalyii«Ol Buti'i««a o« ivyne csa^ flow (f ■o'') 



(J ,'<i'nie»rlf)( pf«>»rino '"Corns m^a »Ui« l«»es 
'r **,: •■Jfc.at^Bfftie^cl. JCHi.andpfoduoefiaiocooy o( •ny njmt)«f oHlems»i« 
.<'^'3P^W>'S «"» ■"> '•"«• P' t"***- =««0c"«3- B-wju'ils ve-Ktof*. or 
^*-' -■*■ ly^too*. 

« buaiiWM •Ml»st> Vlriu^l» obtol*!** * l»o*fceep«< twciute yo«f com 
th« work IM «og. U*a Doughrto lo 

t-4iTiyrBtr»^up to «Mr»C0rOi M ■ IkTw wHhoul I'me consmninfl Oisk 

IIHMrjMe (l»l*l»(3 ■•pofli ol ail «p«f>Oiturea 

Tfcu*bot». *ife OuBMod'^, O' youreell :n«l you hixiw liow wiMly 

iShiT) money 'ibeir'Bspe''' 

ihnpla to uM |«« ImImI H on ilmplv (woptol). now than li (MMCUH 
■ urmiwi(j*»»Oiini th« h«ir yoo lo»t III that money, whether it wa> laat y«ar «k laal 
fqo(itf.^M ol al^fpayb* nom you'll tx aWe lo saw »oma ol that doogh lof tha 
~!*Murtt 'miifufm* ^ and ona or mora diak dn»a« Sp«;ity MoOal 1 or 111. *t onjy 
S^.M'pMlptW; it^a atut aura to %»»• you mor>ay' 






P.O. BOX 597 FORESTVILLE. CA 95436 
24 hr. phone (707) 887-7237 [^-7 •r^ 
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iALPHAf^ETtCS TRS-80 TAPE DIGITIZER 



f v^- » 



,U taat lha<« If a cura lor TRS-BO tape cloodlng &lu«». Fix oni inia* yaan, Alptunrncs 
'h«^ (MM serftitB tf>a IRS-BO Tap* Digitinr, a provan harOwar* ioiuttoo for youi ^oIlHwa 
ptdbtarm Mo \onq*' need you fM'* 't^' recordsr's volume coilrol •nOlaktly. IryiOQ 'o: 
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J sturdy, atl'acMtAvtal CASe 
,^..„' cornpatKMAwmWvai l & l(. also LOW ^pf^eO Uoilt-' III 
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Klorm Itie IRS-M gave youi l»pa Gel fid Ol your is(>« (juqi lodey — tM 95 
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Stereobots: robot soundclones provided in contemporary 
housing; programmed with mood sensitivity. Stereobots are 
capable of responding musically to any mood. Stereobots must 
be disabled during ttierapy sessions. 

Thoreaubot. Henry David: famous author of "Walden Version 

3.2." 

Throwbots: personal frustration toy, similar to the pet rocks 

of the I960's. 

Zerobots: perenially depressed robots; leased to humans 
who are in need of therapy. Zerobots are capable of countering 
any depressing human story with an even more depressing one. 

Zorrobot: swashbuckling star of holof ilms, known only to his 
confidants as Don Data. 

The Robot/Vegetable Conneciion 

Did certain gardens m Mexico cultivated by the Mayans real- 
ly influence the development of the Univac? 

Wtiat exactly is the effect of disk drives on hothouse 
radishes? 

Can organic humus turn the tide in computerized robot ten- 
nis? 

Is Wayne Green truly a prophet of cybernetic doom or merely 
a cog in a computerized cantalope wrestling scheme? 

Robot Jokes 

A robot goes into a bar and orders a martini. The bartender 
serves it and says. "There yare; that'll be six bucks. Y'know, we 
don't get many automatons in here,' The robot fishes some 
currency from his utility pouch and responds, "And at these 
prices, its no wonder!" 

Robots Are Your Friends 

Actually, that's not necessarily so. Take aberrant behavior, 
for example, A human suffering from an attack of schizophrenia 
can compensate by snorting a couple of Sominex. taking a 
week off from gainful employ, or by a quick trip to Dr. Loon's 
black couch. But when a robot goes off on a mechanical snit, 
watch out! Those laser eyes aren't exactly twinkling when a 
titanium arc is extended to squash your shoulder socket as 
easily as it might hiccough! 

Other Possibilities 

Robot cosmetics; robot ballroom dancing; or robot music 
(editorially speaking, we already have some of that being 
ballyhooed over certain "progressive" airwaves), Alas, these 
topics are ol but marginal interest. ■ 

In the interest ot those readers who are not marginal {and at 
the request ot the editors), the author ended his robotisizing 
here, saving the tuHy sentient world from yet another robot 
story. 
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DISKS 



>*'"'* '-""'Z^ 

DC 
MICROAMPERES 



Finally, a device to let you set correct volume levels for loading 
any tape. The biggest problem in loading tapes has been the 
volume control Prerecorded tapes are produced at differing 
volume levels. You will now load any tape the FIRST time. 
SUPERMETER plugs m (no cutting or soldering) between your 
tape recorder and the computer, and lots you set the volume to 
the level that your computer wants. 



SUPERMETER 



$29.00 



Buy ihe very best diskettes. Percom ran 
tests during their researcfi and desil 
doub'er and reached the concltision theil 
made the best 5 '-* inch double densil^* 



Why buy a diskette thai just barerty pff 
ANSI cerhdcalion tests when youcaU 
bt's! diskette on the market at iti^se 
prices'' 



^^^M 

^^^^] 



These disks EXCEED all ANSI standards ThejBfe 
ate tht? riewest. most improved disketttes (rofTi 
WABASH (including an extra smooth polished 
'jurtace tor greater head life) Wabash Quality l£ 
UNSURPASSED in the industry These diskntt*?^; 
are so good Iheyaie guaranteed tor 2 yyaiSi l<[oj 
,uiy reason you ate not happy with Ihpse s'rfppr.'. 
lui disketlcs return Iherri for ;i prompt rclimrt 
(HO Ir.K.k diskettes can I un m a AOnt '.ibUnr: k rliW 
drive (Pni.pispertxjuot lOdisks 
Single density one siile S?5 "' 

Two Of more . , , ?' 
Doublf Density 80 Irack, one side ' L 

Two or more 31'M~ 

Double density 80 track, two sided . 35.Q«1 

H Im h f loppii-. Double Density 3J.00* 



PERCOM'S DOUBLER II 



It you haven't got a doubler for your Model I, order one now this is Ihe 
gteatest thing to come along for the Model I Since it actually reduces 
disk read/write errors, your system will run better wilh a PERCOM 
douuier And you will also save both tifTie and money t>y having rrore 
D'ograms per disketle 

PERCOM S OOUHIiRII $IH.M 



NEW MODEM GAMES 



Play Checkers, Chesa or OtheHo over your modem with voyr ft lettla' Eai* 
game tealures full graphics, sound atid a cha' trode pttrm.\' ng yo^i )o 
send messages and sounds |to get l^ie flher persons ailenlioni Games 
are tor two players, either one Of two computers Completf docu-nen 
lation All three 
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Super Soft 

1691 Eason 

Pontiac, Michigan 48054 



Feel Free to Call to Request 

more iriformatior} on any 

product 

(313)673-2224 

or 
(313)673-8700 

(Dealer Inquires Invited) 



Add S 1.50 per order tor ShippiT}^ & 'iandiing 



Phone Orders Wr.l",ome 



Please call between I 



K P. 



Same day Shipnt r4! 



Robotics— 

The Microcomputing 

Connection 




by Chris Brown 

80 Microcomputing Technical Editor 

For most of us, the word "robot" conjures up the image of a 
cute wheeled being jabbering away in a flurry of synthesized 
speech, while rolling obediently along behind a handsome star- 
ship captain. Though the precocious activities of R2D2 and 
C3P0 may have endeared them to the popcorn set, the stereo- 
type they represent is far from the reality of present-day ro- 
botics. Currently, the level of intelligence these fantasy 
figures exhibit can only be created in one way — by 
stuffing a human midget (preferably British) into a ro- 
bot suit. It is only after seeing an intelligent robot, its 
wheels spinning, jammed hopelessly into a corner or 
catapulting headlong down a flight of stairs, that one 
realizes thai intelligence, as it applies to robots, is a rel- 
ative term. 

Implicit in any concept of robotics is the 
notion of performance. Except when em- 
ployed as a test bed for artificial intelligence 
research, robotics should have as its end 
goal the accomplishment of some useful 
activity. When a robot is combined with a 
microcomputer, a primitive synthesis of 
mind and body occurs that results in a ro- 
bot's ability to replicate simple human activities. In 
our industrial society, the ability to duplicate opera- 
tions ad nauseum is of great value. Thus, the employ- 
ment of robotics gains new and increased impor- 
tance in human terms. 

Though the field of robotics has a long history, 
it is only recently that the microcomputer has 
made inroads. And today's use of microcomput- 
ers only scratches the surface of the possible. 
As computing power and memory storage con- 
tinue to decrease in cost and increase in ca- 
pacity, their use in robotics will become wide- 
spread- 
Industrial Promotional and Educational 

Robots fall into three general categories 
based on their function; industrial, promo- 
tional and educational. Industrial robots 
are highly specialized devices, usually tak- 
ing the form of arms, that are capable of per- ■ 

Photo 1. Android Amusement's DC-2 show robot is advertised 
ss a "crowd builder" it uses an on-board Atari 400 microcomputer to generate graphics and play games. 
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forming tasks akin to those of their human 
counterparts. They are used in applications 
like paint spraying, spot welding, picking 
and placing tasks. Operating under comput- 
er control, industrial robots can move accu- 
rately along six axes and, when combined 
with tv cameras, enjoy a primitive equivalent 
of vision. 

Promotional robots (or show robots as 
they are known in the trade) are the ma- 
chines we cautiously accept literature from 
at computer shows, see at the opening of 
shopping malls and watch with fascination 
on tv talk shows. {In the latter case, the 
robots have often displayed more intelli- 
gence than the host.) 

Show robots do not, as a rule, have the in- 
telligence of industrial or educational ro- 
bots. Often they are nothing more than 
large radio controlled models with micro- 
computers in their chests. They have had an 
impact on the robotics industry, however. 

Educational robots are used in class- 
rooms to illustrate basic mathematical or 
abstract geometric concepts. 

All three types of robots are on the verge 
of impressive advances because of the now 
popular microcomputer and the cheap com- 
puting power It represents. Cost reductions 
in both memory and microprocessing have 
made it possible for robot manufacturers to 
offer very reasonable prices foron-board in- 
telligence. 

In addition, the proliferation of micro- 
computers has stimulated new interest in 
the field of robotics as many users endeav- 
or to justify the existence of their machines. 
When a microcomputer, in union with a 
robot, can instruct a machine to water the 
lawn, mix a drink or oversee a manufactur- 
ing process, the microcomputer achieves 



Industrial Robots 



Industrial robotics, a common occur- 
rence in many countries, remains an un- 
usual application in the United States. 
U.S. labs are developing robots as com- 
plex and well-built as those In any country, 
but those machines so far have not 
wormed their way Into the hearts of poten- 
tial owners. 

Jack Shimek of New Developments Co., 
Nashua, NH, is, therefore, a pioneer. He is 
attempting to sell New England factory 
owners on a simple industrial robot made 
by Applied Robotics Co. of nearby Hud- 
son, NH. 

The product he is selling has little in 
common with the popular idea of a robot 
which walks, may talk, and is self-con- 
trolled. The 95-pound Series 100 Industrial 
Robot is a simple machine by lab stan- 
dards. It has one arm with a choice of grip- 
pers. The arm has two vertical positions, a 
two-position horizontal stroke or in and 
out movement, and a four-step swing that 
can move up to 270 degrees. 

The machine is air powered, normally 
working under 60 pounds per square inch 
pressure. It cannot move and does not 
even include a built-in microprocessor 
controller. 

Although there is only one working 
model of the little air-powered machine in 
existence, Shimek is optimistic about its 
future. He sees its very simplicity as a big 
asset. 

"Everybody in manufacturing is getting 
into robots, but they are all afraid of put- 




ting a lot of money into a machine that will 
break down," Shimek said. 

Tough Environment 

The problem is that a manufacturing 
plant is an extremely rigorous environ- 
ment for a robot. In a lab an experimtdtal 
machine can be delicate. It \s es^sentiaily 
nothing more than a demonstration ma- 
chine. If it works at all and does what its 
designers want even for a short while they 
are happy. 

A manufacturer, however, wants de- 
pendability. He wants a robot that can 
load and unload a drill press 500,000 times 
a day, five days a week, 50 weeks a year 
with no trouble. A delicate machine, one 
which is difficult or expensive to repair, 
or which uses exotic, expensive and hard- 
to-get components, can spell trouble, 
Shimek argues. 

He points out that the Series 100 robot 
is built simply and ruggedly. It is air pow- 
ered from an external compressor which, 
among other things, means that if some- 
one or something gets in the arm's way, 
the machine will neither break the object 
nor do large amounts of damage to itself 
when its arm jams. 

It is built out of commonly available 
components, Shimek said. The only parts 
that are special are those like the frame 
and collars which are not likely to wear 
out. 

"All this is is a bunch of air cylinders put 
together in a usable configuration," he 
said. "It really demonstrates the point 
that the technology for a robot exists and 
has existed for some time." 

According to Shimek, the robot is ideal 
for loading and unloading machines and 
doing other operations which involve pick- 
ing up items one at a time from a set place 
and putting them down in another set 
place. If the expected item is not where it 
is supposed to be, however, the machine 
has no way of finding it. Its only sensor is 
a short-range affair that tells the machine 
whether it has something it its "hand." 

Shimek said the designer, Arthur 
Haines, purposely did not build a con- 
troller into the robot because customers 
would want to use the microprocessor 
they already own, in many cases. 

Shimek is using a 5-TI industrial con- 
troller from Texas Instruments to run his 
demonstration robot, and this machine 
can run several Series 100 robots at once. 
However, any industrial controller or com- 
puter, including a TRS-80, could be used 
to do the same job. 

Shimek said the potential market for in- 
dustrial robots in the U.S. ishuge, "Many 
pfants are making high technology prod- 
ucts like computers using methods from 
the turn of the century."^ v^i-j, 
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Up (o 77 high-qualily programs 
for TRS-80, only SIO 9S 



New Basic— expands disk basic 
Now configure your Basic to do any or 
all of the following: 

• Convertdeclmal tohex, and vice versa, provide 
character representatlonfor each, or the hex-dec 
number ot any character • Blinking cur^^or 

• Repeat Irey* Audible key entry (each key makes 
a sound) • directory command from Basic • Disk 
load and disk run command filp • Graphic 
(unctions, Including drawing blocks, lines, tllling- 
in blocks • Lowercase driver • RSZ32 drivpr 
(LPRINT-LLIST) ■ Call function, hex-order 
number will execute subroutine • Spooler and 
despooler • Print toggle, LPRINTS your video 
display* Find (locate a Basic command or siring) 
Modular Software AssiK: tape 119.95, dtsk ti^.K 

Level II Tapes 

; 'Tiny' Pascal runs on any 16K Level 11 system, In- 
cludes the programming structuring capabilities 
of full Pascal, but not data structuring 

Ahle to compile Z-80 machine code, programs run 
lljoutSXfaster than Level II Basic — graphics run 
ei^hi times taster! Requires use otT-Bug (or Tapt 
7, and ETASM 
Tape 3, People's Pascal $19 95 

Tape 1, 3A buis., edu., game progs $10 95 
Tape 2, 11 programs Irom Osbornp book Some 

Common Basic Programs $10.96 

Tape 5, 24 buls., edu., game p{;ogs SIO 95 

Tjpe 7, 31 buls , edu , game progs. $10 95 

Tape 8, 40, inc. 4X tape speedup $10.95 

Tape 9, 2S buis., edu., game progs $10 95 

Tape 10, Income lax, checkg act $10.95 

People's Taxman, (Ills-out all forms $39.95 

PASPATCH 
PasPatch, Tape 6P, makes Tandy tiny 
Pascal a powerful disk system! 

Modular Software Assoc $19 95 

SuperPIMS— People's Database 

PI MS has been greatly speeded up and siniplKied, 
with machine-language sorts, key debounce, 
optional automatic lowercase {no keying, no 
hardware mod) on labels or reports. Up lo 20 
fields, limited by 240-characler maximum per 
record Easy lo revise, add records, split or 
merge files, sum or average any fields 
Customized for tape, tape 4 disk, Zoom, TC8 Poor 
Man's Floppy, BIT, Stringy Floppy — all on one 
tape! As mailing labels program, easily manages 
20,00011st. CJE does! Advanced labels module lo 
come, $24.95, making system most powerful 
mailer available! 125.90 on disk 

program <CIE) $19.95 (121.15 CA) 

book, details uses (CIE) $11195 ($12.67 CA) 

NCiW: Send for free monthly catalog 
10% DISCOUNT 
when ordering 3 items 
totaling $50 or more 

Add $1 shipping per order 

Games for color TRS-80 

Modular Software Assoc, tape contains: 

• PONG-80 • ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC (Grand Prix auto rare) 

• BETA TREK space game • SHUTTLE (rocket 
ship game) $19 95 ($20 55 CA) 

Word Processing Newsletter 

Want to really USE your computer'' Then word 
processing is for you Let your computer show you 
how much easier writing can be. 

Learn about the new 510 cps non-daisy' Ihat at 
lOX daisy speed gives correspondence quality, at 
lesslhanlwlce thecosl. Tooslow?The really fast 
guys are coming. Ho* about 30 11x14 typeset- 
qualily documents per minute'' Maybe you could 
uKf, the same 'printer' as a copier 

How about an inexpensive ($169) magnetic card 
reader- writer that would let you input mail 
addresses, letter paragraphs, even small 
programs? 

Headaboutallthlsand more In Low Cost Word 
Processing, (he or.ly newsletter about word 
processing using yoV personal computer Jusi 
IIS, (or 12 issues. . ^^ 

All orders charge card, check or mo. 

Calif, residents add 6 pet tax. Dealer Inq Invited 

Overaeaa, add $1.50 per tape postage 



COJtPUTER INFORMATION EXCHANGE 
W Box 159 

San Luis Rey CA 92068 



"After seeing an intelligent 

robot catapulting headlong down a flight of stairs, 

one realizes that intelligence is a relative term." 



new legitimacy. Its union with process-ori- 
ented robots in real world/real-time applica- 
tions is a step in the direction of practi- 
cality. Lately, interest and activity have 
been on the increase in the robotics in- 
dustry as entrepreneurs recognize the po- 
tential of the robotics market. 

A Mobile Mlnibar 

A leading company Involved in the manu- 
facture of show robots is Android Amuse- 
ment Inc. of Monrovia, CA. Android Amuse- 
ment is one of the first manufacturers of 
show robots that incorporates microcom- 
puters in their creation. Its best known ef- 
fort thus far is the Drink Caddy. This alcohol 
dispensing android is designed to perform 
yeoman sen/ice at cocktail time. The Drink 
Caddy is advertised as a "mobile minibar 
and entertainment machine" and carries a 
price tag of $4,998. Original versions of this 
machine did not feature an onboard micro- 
computer and were marketed as technolog- 
ical curiosities. One eventually found a 
home in the Playboy mansion in Chicago 
w/ith other marvels of technology like elec- 
tronic pinball machines and computerized 
beds. 

An expensive offspring of the Drink Cad- 
dy, the $10,000 Ralph Rodger Robot, incor- 
porates an Atari 400 microcomputer and 
monitor. The computer is placed in Ralph's 
chest and used for graphics generation and 
game playing. However, none of Ralph's 
vital functions are controlled by the com- 
puter. 

Gene Beley, the youthful president of An- 
droid Amusement who once sawed a 
TRS-80inhalf inafutileefforttofit it intoa 
robot, feels that show robots represent a 
new art form in America that incorporates 
the wonders of technology with the gaudi- 
ness of the carney world. Beley told 80 
Microcomputing that his robots are "sexy" 
marketing tools that are finding increasing 
application in public relations and promo- 
tion. He also indicated that, for the moment, 
demand is outpacing supply at Android 
Amusement. With frank insight he charac- 
terizes his company's function as follows: 
"Basically, we are building expensive 
status symbols for people who want to at- 
tract attention to themselves." 

Beley admits he was surprised by the ini- 
tial success of his venture but feels confi- 
dent that show robots are going to be 
money makers for their manufacturers in 
this era of high technology snobbery. For 
Beley, a major milestone in the robotics in- 
dustry was reached when his company was 



able to employ mass production techniques 
using standardized parts in the making of 
robots. As yet, no robots are used to assem- 
ble robots at Android Amusement but Beley 
says the possibility exists. 

A Bit ot Overkill 

Another successful manufacturer of 
show robots is The Robot Factory of Cas- 
cade, Co. The Robot Factory produces 
several anthropomorphic entertainers, 
some of which incorporate microcomputers 
for added pizzaz. 

Mary Bolner, Robot Factory vice presi- 
dent, candidly states that the current use of 
microcomputers in show robots is overkill. 
While her company does offer an Apple II 
microcomputer in one of its robots, the 
computer is there for entertainment pur- 
poses only. The Robot Factory intends to 
have a robot which responds to voice com- 
mands available soon. To this end, they 
have been negotiating with Tandy Corp. in 
hopes of coming to some agreement on 
hardware procurement. Bolner said "We 
already use many Radio Shack parts in our 
robots. We find them to be high quality, 
reasonably priced and readily available. I 
hope we can come to some working agree- 
ment with them soon." The Robot Factory's 
microcomputer controlled speech recogni- 
tion robot may be the first real microcom- 
puter/robot marriage in the show robot in- 
dustry. 

More serious and potentially lucrative 
uses of robots lie in industrial and educa- 
tional applications. In both public and 
private sectors research is underway to find 
practical applications for robots in auto- 
mated assembly procedures and in the 
classroom. The role of the microcomputer 
has yet to be delineated in these infant in- 
dustries, but there are many who have 
gambled their faith and finances on the 
hope that microcomputers will play a major 
role in automating America. 

A Natural Marriage 

One such consortium is the robot 
Builders Group of the Boston Computer 
Society. Headed by Ted Blank, a columnist 
for Robotics Age Magazine and a 10-year 
veteran of robotics research, the Boston 
group is a loose partnership of six com- 
puter/robotics aficionados, each of whom 
brings a speciality to the project. The group 
is attefripting to build a Z-80 based, micro- 
computer controlled robot arm with sub- 
stantial lifting capacity. The project is in the 
design stage now but once the object Ives of 
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"This alcohol dispensing android 

is designed to perform yeoman 

service at cocktail time." 



the group are set they Intend to incorporate, 
seek venture capital and go into the busi- 
ness of manufacturing industrial robots. 

In Ted Blanks opinion there is a natural 
marriage that must occur between micro- 
computers and robots. Blank told 80 Micro- 
computing that the robotics industry is just 
beginning to address the essential applica- 
tions that take place in real world/real-time 
settings. In many instances progress has 
been hampered by the reluctance of those 
in robotics research to share information. 
Says Blank. "A sense of secrecy pervades 
the entire industry because everyone is 
looking for the big payoff." 

■Everyone' includes toy manufacturers, 
major universities like Stanford. MIT, 
Carnegie-Mellon, and large research institu- 
tions like The Stanford Research Institute. 
(SRI) International and the Hughs Research 
Laboratories, all of whom have substantial 
robotics projects in the works. Blank also 
feels that the development of practical 
robotics has been stifled by an over- 
emphasis on artificial intelligence within 
the robotics community. He described the 
situation as "playing God by duplicating 
human brain functions as closely as possi- 
ble ' In Blank's view this preoccupation is 
taking attention away from the true prob 
lem area of robotics research, i.e.. real- 
world/real-time applications. He provides 
as an example a West Coast university's ro- 
botics project that resulted in a highly in- 
telligent machine that incorporated sophis- 
ticated visual recognition with large 
amounts of onboard data processing. The 
robot could move through an obstructed 
field by avoiding obvious hazards. The prob- 
lem was that the data processing involved 
took so much time that the robot could only 
manage three feet of travel every 15 min- 
utes. While certainly on the forefront of 
technological innovation, such a sluggish 
machine is. at best, impractical in most in- 
dustrial settings. 

For Ted Blank and the others involved in 
his fledgling robotics company, the future 
of the industry lies with the microprocessor 
He concedes that new. high-level 
languages must be written to provide the 
control that complex networks of 
microprocessors, running in multi- 
tasking/multiprocessing environments. 
will require. The result, the attainment of ex- 
tremely high levels of intelligence and con- 
trol in tomorrow's robots, will be worth the 
effort in Blank's view. 

Presently, however. Blank and his group 
meet several nights a week to hash out the 




Photo 2. The t^^ini Mover V robot from Microboi Inc The arm has an eight-ounce lifting ca- 
pacity and connects directly to a TRS-80 microcomputer 



more mundane aspects of their project, 
such as who will deal with the servo- 
mechanical and hydraulic problems of the 
beast. 

A TRS-SO Meets a Robot 

The Boston group's project has tieen an- 
ticipated to some degree by a West Coast 
company called Microbot, Inc. Microbot, of 
Menio Park, CA, is one of the only com- 
panies currently manufacturing a robot arm 
that can be connected directly to a micro- 
computer and easily programmed to per- 
form pick and place tasks. The Mini Mover V 
Arm will plug directly into a Lsvel II TRS-80 
and respond to programs written in a 
language called Armbasic, 

In an article that appeared in the summer, 
1980 issue of Robotics Age Magazme. John 
Hill, chief design engineer and president of 
Microbot. described his robot arm as a low- 
cost {$1 ,700) manipulating system. He envi- 
sioned its use by light manufacturing in- 
dustries and by those who are involved in 
robotics and artificial intelligence research. 
Hill's design obiective was to provide a 
complete robotics package including arm, 
computer interface, software for coordinate 
conversion and control, and a high-level 
programming language. His intent was that 
the users needs not undertake a full-blown 
development effort to put a robot into 



operation. 

The Mini Mover V is a segmented arm 
mounted on a stationary base with a lifting 
capacity of eight ounces. A system of dif- 
ferential gears, pulleys and cables allow the 
arm five degrees of freedom within a radius 
of 17.5 inches The drive unit for each joint 
(base, shoulder, elbow and wrist) consists 
of a stepping motor, reduction gear and 
cable drum. The robot arm Is controlled by 
signals generated by a TRS-80. These 
signals pass through an interface where 
they are organized in seven four-bit parallel 
outputs and one four-bit input. The com- 
puter controls the four-bit phase patterns 
sent to the arm's stepping motors and thus, 
the arm's motion. 

Armbasic 

Armbasic, the machine's programming 
language, is an extension of Radio Shack's 
Level II Basic, It adds five commands to the 
Level 11 repertoire which enable the arm to 
move In various axes as well as open and 
close Its grippers. These commands are 
Step. Close. Set. Reset and Read, When 
used in the context of a p.'jgram, proper 
syntax requires that each be preceeded by 
the ,(5 (at) character and succeeded by a 
delay expression and expression to in- 
dicate the number of steps each moic|y3 
expected to move. A typical instruction ffne 
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"Thm youthful president. . . who once 
sawed a TRS~80 in half in a futile 
attempt to fit it into a robot. . . " 



would look as follows: 10 @STEP(D), (J1), 
(J2),. . . .(J6). D is a delay expression and J1 
through J6 are instructions (or the number 
of steps each stepping motor is to make. A 
program to perform a simple pick and place 
task appears in Fig, 1, 

All Arrnbasic commands are implement- 
ed in a Z-80 Assembly program lo speed up 
sneculion. The extension command set oc- 
cupies about IK of memory at Ihe top of 
Level II Basic. 

Designer Hill feels that since industrial 
rot'Ots are largely computers in terms of 
cost, low-cost microcomputers will result in 
low-cost robots. He optimistically told 80 
Micrr computing that a huge market awaits 
tlie ''inovative and that "drastic" price 
reductions are in the offing. 

Hi|i envisioned tomorrow's robots using 
individual microprocessors to control each 
joint. These ganged processors wW make 
possible applications that are unheard of 
today. In addition, HIM foresees more peo- 
ple getting involved in robotics through mi- 
crocomputing. He is confident great strides 
will soon be made in the field simply due to 
the number of people becoming involved. 

Hill's young company has already felt the 
pressure of incipient success, A large mid- 
western manufacturing firm has been trying 
to acquire 51 percent of Microbot by dangl- 
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ing the venture capital carrot in front of Hill, 
Tom Clark, president of Michigan Rivit. 
the firm attempting Ihe acquisition, makes 
no bones about his desire to gel involved in 
the robotics business. He told 80 Microcom- 
puting. "Do you realize that most of the 
component parts of your car weigh less 
than a pound? And that virtually all of the 
welding and paint spraying on GM assem- 
bly lines is already done by robots? Hey, it's 
just a matter of time until a beefed-up unit 
similar to the tvlini Mover V will be in every 
modern manufacturing plant in the 
country." 

Tom Clark is slightly baffled by Hills and 




Ptipto 3. The Terrapin Turtle has found a home in the classrooms of America where it is 
used to illustrate the concepts of mathematics and the social sciences. It has also been 
used in work with autistic children. 



Microbots' reluctance to sell out. It is likely 
that John HiH has had the same vision as 
Tom Clark however, and he intends to hang 
tough through the lean times in hopes of 
the big payoff. 

Half a Grapefruit on Wheels 

One of the mote unusual locales in which 
computerized robots have been found is the 
classroom. Here, a homely looking robot 
manufactured by a Boston-based firm call- 
ed Terrapin, Inc., has been gaining the at- 
tention and respect of educators in some of 
the nation's more progressive schools. 
Known as the Turtle, Terrapin's robot is an 
updated version of a machine created by 
English experimenter Grey Walter in 1940. 
Under the auspices of MIT's artificial in- 
telligence lab, researcher Dan Hillis 
developed the modern Terrapin Turtle in the 
early 1970s. He decided to market it in 1978. 

The Turtle, a small wheeled robot that 
connects to a microcomputer by a 12-con- 
ductor umbilical cord, resembles half a 
grapefruit on wheels. It has blinking eyes, 
an audio tone generator, touch sensors and 
a tracing pen that can be raised or lowered 
on command. The Turtle's drive wheels are 
independently controlled so that it may 
travel in either a straight line or curving tra- 
jectories, according to the commands it 
receives in Turtle Talk, its high-level pro- 
gramming language. Turtle Talk also pro- 
vides commands to raise and lower the trac- 
ing pen, activate the touch sensors and 
sound audio tones. 

Terrapin currently manufactures several 
versions of the Turtle for Apple, Atari and 
S-100 bus microcomputers. Prices vary 
from $400 for the kit to $600 for a fully 
assembled Turtle. Interface and software 
can add an additional $200 to the price tag. 
At present, Terrapin does not offer a specif- 
ic interface for the TRS-80. Turtles have 
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Select the write printer - 

PRESTO! 
Overnight your 
computer becomes 
a word processing, 
data processing or 
graphic system. 

Under 8500 




Okidata 

MicrolineSO - 7x9 Head, 

80 Column, Low Price 



The NEW OKIDATA line of bidirectional 
dot matrix printers — high quality with 
continuous duty SOO-million character 
printheads. The NEW printers have 
correspondence quality with their new 
9x9 dot matrix heads and have full forms 
control, serial and parallel interfaces, 
as well as many other features. The 
Microline 80 is a very reliable, low cost 
printer. All products are available from 
our stock at The Stocking Source along 
with the optional cables, 
interfaces and 
memory buffers. 



NEW 

Microline 82A - 9x9 
Head, 80 Column, 

12QCPS 

NEW 

Microline 83A - 9x9 
Head, 136 Column. 
120 CPS 

NEW 

Microline 84 - 9x9 Head 
136 Column. 200 CPS 

NEW 

Model 2350 - 9x9 
Head, 136 Column. 
350 CPS 



ASK FOR OUR 

IIUSTAIUT DISCOUNT 

From Roy Havuthorne 

Talk To BillTokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1-800-521-2764 

MICHIGAN 

1-800-482-8393 



Remember: 
We are open 
8:30 AM to 
B:OOPM EST 
Monday - Friday 




STEREO AND PERCUSSION! 



STEREO— Seporation by instnjmenti 
For example, play trumpet and oboe 
through channel A clannet and organ 
through channel B. You can switch 
msf rumenls from channel to channel 
at any time! 

PEPCXJSSION - Now you con odd a 
wide range of p>ercussive sour*ds ond 
special effects to your muse' 
Existing OfChestra-80 files load ond ploy 
in stereo automatically' 
Optional 5th Voice for use with 
speed-up rrxxJsl 



New editirig features and commondsi 

Plugs tnto any 16k Model I keyboard of 

expansion interface without voiding 

worrantvl 

Irtcludes tope and disk versions on 

cossette, 4 sample music files, rrranual. 

ondfullyossembledarxj tested printed 

circuit board' 



Orchestra-85 
$129.95 



CS5 for overseas oirmai!) 

CA resklents odd 6% sales fox 

MosteiCard and Visa 

on, occepted 
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WRITE FOR INFORMATION ON: 

• Upgrading - OrchestrO'80 to Orchestra-85. Switch to Stereo! 

• Greatest Htts— VolumesI andl. All new music! Ready to load and play! 

• Orchestra-VO™— Model inversion of Orchestfa-85. Available soon! 



Software Affffai 



858 Rubis Drive, Sunnyvale. CA';'4067, 
(408)2<?5-PlQ5 



' Sm Litt at Aav*ni»»n on pago 354 
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"Robots represent a new art form 

that incorporates the wonders of technology 

with the gawdiness of the carney world." 



been adapted for use on '80s by enterpris- 
ing users, however. 

According to Terrapin's promotional liter- 
ature, the uses of the Turtle are limited only 
by the user's imagination. While Turtles 
have been used to teach the fundamentals 
of computer programming and robotics, 
their more interesting uses are in the fields 
of mathematics and the life sciences. By 
programming the Turtle to trace geometric 
figures on a sheet of paper, students active- 
ly participate in the creation of the con- 
cepts of geometry, gaining, for instance, 
the insight that a curve is made up of an infi- 
nite number of straight lines. (Ergo the dif- 
ferencial!) 

Programming brings up mathematical 
issues and, as programming problems are 
solved, students engage in mathematics 
the way mathematicians do; on a concep- 
tual and intimate level. Where the life 
sciences are concerned, the Turtle can be 
made to simulate human behavior. By using 
directional feedbacl< gleaned from its touch 
sensors, the robot is able to interact with its 
environment according to societal rules au- 
thored by its programmers. 

A particularly intriguing use of the robot 
has occurred with autistic children. Re- 
search indicates that these children relate 
better to the world of machines than to the 
world of men and the Turtle has served as a 
bridge between these worlds by encourag- 



ing autistic children to verbalize and com- 
municate. 

Terrapin president Sheridan McClees 
told 80 Microcomputing that his company 
sold approximately 1 00 Turtles last year. He 



"A sense of 
secrecy pervades 



the entire industry. 



tt 



also indicated that a wide cross-section of 
people have been using his robots in ele- 
mentary and secondary schools, as well as 
in the home. When queried about Terrapin's 
lack of hardware for the popular Radio 
Shack family of microcomputers, McClees 
indicated that there are two basic reasons 
why Terrapin has not pursued the '80 con- 
nection. He said, "The main reason is that 
our engineers feel that it is much easier to 
build interfaces for other computers due to 
the TRS-80's design idiosyncrasies. Sec- 
ondly, Radio Shack is not the easiest com- 
pany to work with in terms of technical co- 
operation." 

McClees did imply that Terrapin was re- 



thinking its TRS-80 interface policy and 
hinted that an announcement would be 
forthcoming in October. He also said that 
Terrapin plans to double the size of its staff, 
(currently three full-time employees) and 
make a more sophisticated version of Turtle 
Talk available this fall. 

The Malaise 

It is inevitable that the proliferation of the 
microcomputer will have a measurable ef- 
fect on Robotics. As increased processing 
and control becomes possible, the incor- 
poration of microcomputers into robots will 
be more commonplace. In addition, as com- 
mercial applications like the Mini Mover V, 
Terrapin Turtle and even the Drink Caddy 
achieve visible commercial success, entre- 
preneurs will be encouraged to take the 
financial plunge and get into the business 
of robots. 

The present malaise affecting American 
productivity will supply added impetus to 
robotics research. American plant opera- 
tors, many of whom now look over their 
shoulders toward the East for cues on man- 
agement, realize that Japan is the most au- 
tomated country in the world. Once the as- 
sumption that all of our industrialized soci- 
ety's ills can be cured by robots takes hold 
in the board rooms of America, the field of 
robotics may explode as the field of com- 
puters did 10 years ago.B 



5,000,000/10,000,000 BYTES FROM MICRO MAINFRAME 

10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges, for Models I / II / III ($6,295). 

SERIES III H. Model III with hard disk drive(s) ($6,995/$9,095) or add to your Model I/Ill ($3,795). 

SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

GL80 — SI50 — Radio Shack General Ledger 1.1 with over 30 added features; including a generalledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 

AR80 — $200 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 

GL/Ml — $50 — Convert your General Ledger 1.1 to GL80. Typical user comment: "50% faster." 

AR/Ml — $50 — Accounts Receivable 1,2 to AR80. Typical user comment: "Saves hours." 

GL/M) and AR/Ml require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5,00 each. 

FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/keyboard entries. Requires 32K. 
NEWDOS/80 - $135 LOOS- $135 EPSON MX-70/80/FT - $Call 

AT-80 



3827 Dismount Dallas, Texas 75211 (214) 339-0498 
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Pocket Computer $189 
P. C. Printer $130 



Color Cortiputer 4K $31 
W/16K Ext. Basic $459 




32K Exp. Int. $334 




Modellll16K 
2DR + RS232C 



$839 
$2100 



■ #%#%■# Here are just a few of our fine offers . . . 
■A#WI^ call toll-free for full information. 



COMPUTERS 




PERIPHERALS 




Microline82A 


549 


Model II 64K 


S3300 


Expansion Interface OK 


$249 


Microltne 83A 


839 


Model III 4K LEV 1 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL IIM6K 


839 


• Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945,50 


Expansion Interface 32K 


462 


R.S. Model III IST-Drive 


712 


•MODEL III 32K 


881.50 


'Exponsion Interface 32K 


334 


TEAC40TrackMI 


329 


MODEL III48K 


1052 


16K RAM N.E.C. 200 N.S. chips 25 


R.S. 1 Drive Exp Mil 


999 


'MODEL 111 48K 


924 


MODEMS 




R.S. 2 Drive Exp Mil 


1518 


Model III46K 




Lynx Direct Connect Ml/Mill 


269 


R.S. 3 Drive Exp Mil 


2040 


2 Disc & RS232 c 


2100 


Auto Ans. /Dial 




Seimans8" Mil 


799 


Color Computer 4K 


310 


Teieptione Interface II 


169 


Atari 810 Disk 


499 


Color Computer 16K 


416.50 


R.S. Modem 1 D.C. 


130 


SOFTWARE 




'Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% oft list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% oft list 




w/extended basic 


459 


PRINTERS 




Newdos + (40) track Ml 


88 


Pocket Computer 


189 


Daisy Whteel II 


1695 


Newdos80MIII 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


STSOIII 


149 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


Verbatum 5" Double Density 


32 






Epson MX100 


799 


Verbatum 8" Data Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


•Computer Plus New Equipmenl. 
180 Day Extended Wofranty 


Line Printer V 


1610 


C.C Joysticks 


22 
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Microline80 


365 







Factory warrantees on Apple and Atari equipment. Ottier 
equipment carries manufocturer's warranty or Computer 
Plus 180 day extended warranty. Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty. 



call TOLL FREE 1-800-S4S-8124 




com 



DEALER INQUIRIES ARE INVITED 

PTices subtect to change without nottce. 
Not rosporulble for typographical errors. 

TRS-AO Is a r»glit«red trademark of Tandy Corp. 



Dept. D 

245A Great Road 
Littleton, MA 01460 
617-486-3193 



PIUS' 



I Write for your 
free catalog 



^St* Uat of Atfnrtfsvn on pag9 3S4 
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TRS-80* Computer Owners... 

Great New Access Store! 
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Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and burned-ln 48 hours under operating condi- 
tions. Look for the signed test list In the shipping carton. 
AFD drives are capable of e'aher single- or double-density op- 
eration. AFD-IOO" drives store 102-Kbyles in single-density, 
180 Kbytes in double density. AFD-200 " drives store 205 
Kbytes in single-density, 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
"flippy" drives (AFD-IOOF'" or AFD-200F'" drives). 
15-day free trial offer , , comprehensive 90-day limited war- 
ranty . unbeatable prices . . . AFD-100 i<, $275 00 -100F 
(a $329.00. -200 Ui $429.95. -200F (u $449 95 
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Percom Drives for Your Model III ! 




Internally mounted drives that feature "flippy" capability, double- or single- 
density storage, comprehensive pre-delivery testing, 48-hour burn-in and. best 
of all. Percoms widely acclaimed disk controller. A First-Drive System includes 
the four-drive disk controller, one or two drives, cables and a fully illustrated 
owners manual. Use Model III TRSDOS', Percom OS-80t and other Model III 
compatible DOSs. Prices: Complete First-Drive System w/1 drive <" $560 00 
First Drive System w/2 drives (" $860.00. 

Note; If you prefer not to make the First-Drive System installation, we will do it 
for only $29.95. plus shipping (if shipped). This includes a 48-hour operating 
burn-in of your Model III computer, installation of the drive system and final 
checkout of the expanded system. 



How to order — Order by caiiing Access Unlimited toll-free on 1-800- 
527-3475, Or order by mail. Orders may be charged to a VISA or Master 
Ciira account, or paid by cashiers check, certified check or money 
order COD orders require 25% deposit Sorry, we cannot accept per- 
sonal checks We pay shipping and insurance charges on orders over 
$1 ,000 00 Add approximate insurance and shipping charges lor orders 
under $1,000 00, If in doubt about these charges, ask when you call In 
your order, Texas residents include 5% sales tax. Minimum mail order 
520 00 Allow 2 to 4 weeks for delivery 

O Technical & Texas: (214)690-0206. 



Ask about quantity d/scounfs for 
TRUGs! 



Use your credit card and save. VISA and 
Master Card charges are not deposited 
until the day your order is shipped. 
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|Same Old Savings Galor 
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Upgrade Your Model I to Double Density 

only M 59^-5 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-m. The DOUBLER-Itt simply plugs into the disk dhve 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the dnve. than you can store on 
standard Tandy Model 1 drives. Other features; • Reads, wntes and formats either 
single- or double-density • Includes DBLDOS". a TRSDOS' compatible disk- 
operating system •Runs TRSDOS*. NEWDOStt, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 



Microline-80 Printer 
Grand-Opening Special $399.95 (regular $446 oo 

Compare the Microline-80 feature-for-feature with any other competi- 
tively priced printer. • Uses standard roll paper, fan-fold forms or 
individual sheets. • Prints expanded characters and graphics. • Prints 
96 ASCII characters {9x6 dot format), 64 graphic characters (12x6 dot 
format). • Throughput is 80-characters per second, standard-width 
characters. • Print head is rated at 200 million characters. • Compact, 
lightweight, quiet. 




ACCESS Goes Accessible! 

No longer a mail-order-only operation. weVe 
in a new, walk-in retail mart on Central Ex- 
pressway in suburban Dallas. Now that 
makes us really ACCESSible! 
Come by. 

Get acquainted with Sam or Connie, 
Check out our computer servicing capabili- 



ty. We not only service what we sell." we're 
also an authorized Percom Service Center. 

You'll notice, too, that besides our 
TRS-80' department, we've added a Hobby- 
ist Corner ' For rack-jobbing selected com- 
puter parts. Moreover, were now carrying the 
full Percom System-50 {SS-50) product line. 
And selling books. And magazines. And . . 
well, just come by and see for yourself. 
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If you can't come by, at least call about our August GRAND OPENING SPECIALS. 
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Make ACCESS your one-stop shopping center for TRS-80* computing. 
From game programs to sophisticated system software. From power line 
filters to double-density adapters. From Model I add-on drives to Model III 
First-Drive Systems, Shop ACCESS and save! 

Call our toll-free order number tor free descriptive product literature and 
latest prices, 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NGTICF 



Toil-Free 
Order No. 



1-800-527-3475 



(orders A literature only) 



ACCESS UNLIMITED 



401 N. Central Expressway JfGOO 
Richardson, Texas 750B0 
(214)690-0209 



" Tradeiiard o' Access Unlirriiled 
TTriidecarii ut Percom Datii Company, Inc 



t'229 



■Trademafk ol Tandy RaJio Stiath Coiporalion- 
*t !racJei"a(ti ot Appatat Corpo-awr' 



INTERFACE 



Build a light, sensitive, voice-controlled companion for your computer. 



One Man's Robot 



Don McAllister 

4709 Rockbluff Drive 

Rolling Hills Estate, CA 90274 



Last year I decided to interface Kenner's 
R2D2 robot to my TRS-80. It has its own 
radio control system, is well built and inex- 
pensive. I knew I could mount various sen- 
sors to the robot. With a hardware interface 
and the following software, R2D2 now re- 
sponds to my voice as well as infrared light 
to execute a preprogrammed set of mo- 
tions. 

Not bad for a $29 robot and a $34 inter- 



face and power supply. 

All of the following analog to digital con- 
versions are performed in machine lan- 
guage embedded in single-line strings of 
Level II Basic- This eliminates the need to 
load System tapes into protected memory 
and offers you the ease of Basic program- 
ming and the speed of machine language. 

The robot controls its two-dimensional 
movement by latching OUT port data bits 
and 1. The latched bits control the relays 
with a hex inverter-driver integrated circuit. 
These relays, in turn, key R2D2's radio con- 
trol mechanism and let it move in any pre- 
programmed pattern. 

The robot also responds to infrared light. 
By means of a sensor infrared data is input 




Photo 1. Robot arriving at a light source after a IdCkiegree scan and an eight-inch translation 
to reach it. This mode uses a Z-80 machine language subroutine embedded in Basic to con- 
vert the infrared Intensity data to digital form. 
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to the CPU in serial form by using only data 
bit D7. There it's converted to a number 
proportional to voltage by the machine 
language analog to digital string in Basic. 

Software controls the scanning device. 
Specifically, the software turns the robot in 
increments of 7.5 degrees, alternating this 
with periods of infrared data collection. 
When the robot sees a light with any inten- 
sity above a software-controlled threshold, 
he tracks the light moving toward its 
source, until he reaches it and the light be- 
comes diffused. Then the robot turns off. 

If you wish to control the robot by voice 
you must press play and record at the same 



Quantity 
1 

1 
1 



Part Designation 
7805 Votlage Regulatot 
(5 Volts D.C.i 
7404 Hex Inverter 
7406 Hbk InveftertDriver 
(Open Collector) 
7475 Quad Latch (Level 
Sensiilvel 

74367 Hex Bus Driver 
(Tri-Stale) 
555 Timer 

Archer SPOT Sensitive 
Mini Relay IB7&O04 
Infrared Photo Detector 
#275-142 

2N22222N2907 Tran- 
sistor pair 



Current 
5 milliamps 

12 milliamps 
30 milliamps 

32 milliamps 

65 milliamps 

3 milliamps 
12 milliamps 

25 milliamps 



1,1 meg ohm trim pot 2. sub-mini phone jacks 
1,50 kilo ohm trim pot 2,16 pin low profile 

sockets 
2,.01 micro farad 3,14 pin low profile 

capacitors sockets 



1.1 micro farad tan- 
talum capacitor 



1,8 pin low profile 
socket 



1,1000 micro farad elec- 1 Archer printed circoll 
trolytic board 



Table 1. Parts List for Interface Con- 
trol Board 



"With a hardware interface 

and the following software, R2D2 now 

responds to my voice as well as infrared light. " 



time. The cassette recorder acts as a micro- 
phone and puts voltage on the cassette iN 



port. An X = INP(255) Level ii Basic com- 
mand reads this value and sets X = 255, if a 



sound is present; or sets X = 127, if there is 
no sound. 
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Building the Interface Control Board 

The interface control board connects to 
the TRS-80 port edge card in back of the 
keyboard by means of a soldertail 40-pin 
connector with .1 inch spacing. 

I used a rainbow cable to help Keep the 
bus signals straight when wiring the printed 
circuit board. I found an ohmmeter useful to 
check for continuity and incorrect wiring 
during assembly {see Photo 2). 

A schematic of the interface board Is 
shown in Fig. 1 (top view). Fig. 1 also shows 
the approximate placement of the integrat- 
ed circuit chips on the printed circuit board. 
The entire circuit easily fits on an Archer 
epoxy-glass printed circuit board" 
(#276-155). 

The infrared signal conditioner is shown 
in Fig. 2. The analog to digital conversion is 
performed by the interface control board in 
Fig. 1 using a variable pulse duration from 
the 555 timer integrated circuit. 

Fig. 3 gives the pin outs for the TRS-SO 
port edge card. Note that the IN and OUT 
port signals are also represented as 
negative {logical 0), true input or output 
designated by IN and OUT in Figs. 1 and 3. 
In addition to TR and '^SiJ^, DO, D1, D7 and 
the signal ground GND (don't forget to con- 
nect it to the TRS-80 interface connected 
ground) must be wired to complete Vr.<^- con- 
nection of the interface board to the 
CPU. The address lines don't need to be 
wired for this application because no ad- 
dress decoding or port decoding is used in 
the generation of strobe signals. If you 
want, this could be incorporated at the cost 



ARCHER •276-142 
PHOTO SENSOR 



■01 



^'■'-- 



'*RI 

-I' (Mil 



-a 



PNP 
2NZ907 

r^TO 

INTERFACE 
BOARO 
ANALOG TO 
DIGITAL 
CONVERTER 



\NPN 
/2N2222 



X 



Fig. 2. Optical signal conditioner converts 
light input into a voltage proportional out- 
put. 

80 Microcomputing, September 1981 • 115 



BP 
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BIGGER isn't BETTER 

Willie some mapazincs run 2(X) pages or 
more. The AHernate Source is just 6() 
to 80 [jafies long. Bui each antJfvery one 
of those pages contains useful, imporlanl 
in/ormalion that relates to \ourTRS-80 I 
or III. We don't have millions of sub- 
scribers (or ads) but we do have thou- 
sands ol r-atisfied readers. Have vou seen 
aT.\S magazine? V ou owe i( to vourseil 
to check it out. Kor $2 you can sample a 
sinpl*' issui^, or vou can subscribe for 6 or 
12 issue periods ($12 or SIB, respec- 
tively). If you don't iigrt-t-thal it wasuW/ 
uorth 62.00. we'll refund \our monev! 

It's Finally HERE! 

For those TAS readers who've missed 
our first tew issues, or for those readers 
who would like a neat, compact set: TAS 
now has their 'bound volume' in stockll 
Issues 1 through 6. all of 1980. in one 
convenient book form. And onlv 8 14,951 
Over 300 pages of useful information and 
applications. Add $2 for shipping costs. 

BTI? WHAT'S BTI? 

An excellent value lor vour computer 
budget, that's what! BTI is an alternate 
magazine published by T.AS - a more 
subjeclive mag. containing editorials on 
subjective issues, software reviews, the 
latest news, and more. Kver-changing & 
growing, to keep up with our expanding 
industry. When 6 issuesare just $7,can 
you afford not to check it out?!? 
TAS, 1806 Ada, Lan8in^. Ml 489 10 
Ph. (517) 4«7-3358 or 4«5-0344 

*^i3e„ 

iDQldtPtaririaafaltadlDaHnlfVTlrVTlrinirfl 
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PROGRAMS 

plott niirly X 



uttr deftficd'function ^tveii U 

9. 



i 



CURVPLOT 

«ny _,.. ._ 

diBCQfltinuoui functions). ^ 
CURVFIT DcUriines cwffic- ^ 
tents for all polynoaials uptoS 
Uth diqrH through large I of S 
dita points. S 

POLYSOLV Solves any polynoiial % 
of any degree for all roots, % 
including real and iHoinary. & 

ANY OF THE ABOVE PfiOSRAHS ONi S 
Cass m LVII tl3.95/2 for 21. 9S g 
Foruted disk 32/4BK .... 114.95 ^ 

t»»»> BONUS PACKAGE «««<t | 
for disk users. Above threes 
prograis provide a powerful tool a 
for data analysis or instructions 
foreatted disk 129.00 % 

V 

Mail or Ppiorie (9(M) 897 3741 ^^^^ Ijf 

F L. rBsrdEni; add 4% sales tan ^^^B M 

^1 



Foreign orders add S2 00 



\m 



-451 



ENTERPRISES 



P O Bo> 596 Niceviile. FL 32578 



MICROCOMPUTER TECHNOLOGY AND SOFTWARE 



« 



"/ decided to interface Kenner's 

R2D2 robot to my TRS-80. 

it is weii-built and inexpensive. " 



of a few more chips. 

Robot Motion Control 

Controlling the robot's movement uses 
only a portion of the circuitry shown in Fig. 
1. The integrated circuit chips 7404, 7406 
and 7475 control the robot's translation and 
rotation via the relays DO and D1. They key 
R2D2's radio control device. 

Integrated circuit chip 7404 is a hex in- 
verter that inverts the OUT signal from the 



CPU to produce an OUT signal to strobe or 
enable the 7475 latch. The OUT signal is ap- 
plied to pins 4 and 13 of the four-bit bistable 
latch 7475. This latches data bits DO and D1 
(from the expansion port edge card) vi/ith the 
output being held on pins 16 and 15 of the 
7475 chip. 

The latched DO and D1 output signals 
then drive the open-collector hex inverter 
7406, which in turn drives the DO and D1 re- 
lays. The following are the outputs on pins 2 





SIGNAL 




P/N 


NAME 


DESCRIPTION 


1 


RAS» 


How AddrcM Strob« Output for 16 Pin Dynamic Rama 


2 


SYS RES* 


Syetem Reset Output, Low During Power Up Initialize or 
Reset Depressed 


3 


caS* 


Column Address Strobe Output for 16 Pin Dynamic Rami 


4 


AlO 


Addresa Output 


5 


AI2 


Address Output 


6 


A13 


Address Output 


7 


A15 


Address Output 


8 


GND 


Signal Ground 
Addresa Output 


9 


All 


10 


A14 


Addresa Output 


11 


d&f 


Address Output 


12 


Peripheral Write Strobe Output 


13 


WRr„ 


Memory Write Strobe Output 


14 


UJTAK» 


jntprrupt Acknowledge Output 


15 


Kb* 


Memory Read Strobe Output 


16 


MUX 


Multiplexor Control Output for 16-Pin Dynamic Rama 


17 


A9 


Address Output 


18 


w. 


Bidirectional Data Bus 


19 


Peripheral Read Strobe Output 


20 




Bidirectional Data Bus 


21 


Interrupt Input (Maskable) 
Bidirectiona Data Bus 


22 


Dl 


23 


TKST* 


A Logic ■•<»■• on TEST* Input Tri-SUtei A^-AIB. D»-D7. 
WRV RD*, IN*.OUT*.RAS«,CAS*.MUX* 


24 


D6 


Bidirectional Data Bus 


25 


A9 


Addresa Output 


26 


D3 


Bidirectional Data Bus 


27 


Al 


Addresa Output 


28 


D5 


Bidirectional Data Bus 


29 


GND 


Signal Ground 


30 


DC 


Bidirectional Data Bus 


31 


A4 


Address Bus 


32 


D2 


Bidirectional Data Bui 


33 


WAIT- 


Procesaor Wait Input, to Allow for Slow Memory 


34 


AS 


Addresa Output 


35 


A5 


Address Output 


36 


A7 


Address Output 


37 


GND 


Signal Ground 
Address Output 


3S 


A 6 


39 


♦ 5V 


5 Volt Output (Limited Current) 


40 


A2 


Address Output 


NOT 


E; *meana 1 


'Jegative (Logical "0") True Input or Output 




' 3 
1 ■»— » 


b ' 9 


" '3 'i 1' 19 ly 73 ?5 ly 29 3t 33 3S 37 39 


; « 


— ^ — « — ^ 

6 B 10 


'2 1* »6 10 70 n f< !6 2fl 30 3? 34 36 3« 40 

Mates with AMP p/N 86103-1 Card ^ 
Edge Connector or Equivalent 









fig. 3 
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and 4 of the 7406 integrated circuit: 

ground if DO = 1 and : Relay DO = ON 

0UT = 1 
ground if DO = 1 and : Belay DO = ON 
0UT=1 
Pin 2 of 7406= open circuit il DO = Relay DO = OFF 
and OUT =1 
open circuit if OUT = . Relay D0 = OFF 

ground if D1 = 1 and ; Relay 01 =0N 
0UT = 1 



Pin4of7406= opencifcuit il D1 =0 :RelayDl=OFF 
and OUT = 1 
open ctrcuil itOUT = : Relay 01 = OFF 

Pins 2 and 4 of IC 7406 are connected to the 
ground side of the DO and D1 relays respec- 
tively (the other side of the coil is energized 
with +5 volts DC). Thus, if D0=1 and 
0UT=1, then relay DO will close; and, if 
Df1 = 1 and OUT-1. then D1 relay will 
close. Note that no port or address 



ORANGE 



tELlOW 



^ 

n 



COIL 



^ 



Dl RELAV GROUND FROM 
PIN 4 OF IC 7406 



^ 



DO RELAY GROUND FROM 
PIN 2 OF IC 7406 



Fig. 4. Robot control relay connection schematic shows color coded relay outputs: D0= 1 

and Dl -0 command translation: D0= 1 and Dl - 1 command head rotation; Do = and 
D0 = give no motion. 




Photo 2. Interface control board connects to the TRSWby means of a 40-pin edge connector. 
Note the '14-pin DIP connector at the other end of the rainbow cable. 



REMsoFT. Inc. 

Let Your TRS-80* 
Teach You 

ASSEMBLY LANGUAGE 

Tired ol buying book atter book on assembly 
language programming and still not knowing your 
POP from your PUSH' 

REfVlsoFT proudly announces a more efi 
cient way. usino yout own TRS-80* . to learn the 
lundamenlals of assembly language orogrammmg 
■at YOUR pace and al YOUR convenience 
Uur unique package INTRODUCTION TO TRS-WT 
ASSEMBLY PROGRAMMING", will provide you with 
the following 

• Ten 45-mifiu1e lessons on audio cassettes 

• A driver program lo make your THS-90' video 
monitor serve as a blackboard for the instructor 

• A display program for each lesson lo provide 
illustration and reinforcement lor what you are 
hearing 

• A lextOock on TRS-8(r Assembly Language 
Programming 

• Step-by-step dissection of complete and useful 
routines lo lest memory and to gam direct control 
over the keytward video monitor, and printer 

• How lo access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is t)ased on the successful 
series ol courses he has taught ai Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio The minimum 
System required is a Level II, 16K RAM 

REMASSEM-1 only $69.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk sysiem and you can really siep out wiTh 
REMSOFT'i Educational Module REMOISK-1. a 

Short course revealing ihe details of DISK I/O 
PROGRAMWING Ljsmg assembly language 

Using the same tormal as our extremely popular 
introduction to assembly language programmng 
this "ASSEMBLY LANGUAGE DISK I/O PflOGRAM- 
MING' course includes 

• Two 45-minule lessons on auOio cassette 

• A driver program to make your TflS-BO" video 
monitor serve as a blackboard lor the instfucior 

• A display program lor each lesson to piov>de 
illuslraiion and reinforcement lor what you are 
hearing 

• A bookiei ol comprehensive, lully-commented 
program listings illustrating sequenlial Me I O 
random-access lite I O and track and sector I'D 

• A diskette with machine-readable source codes 
tor all programs discussed in both Radio Shack 
EDTASM and Macro lormais 

• Routines lo convert from one assembler formal 
to the other 

This course was developed and recorded by 
Joseph E Willis tor the student wiih enperierice 
>rt assembly language programming it >s an inter- 
mediaie-lo advanced-level course Minimum hard- 
ware required is a Model I Level H 16 K RAM one 
disk drive system 



REMDISK-1 only $29.95 

Dealer inquiries invited 




REMsOFT. INC- 

571 E 185 SI 

Euclid Ohio 44119 

(216I53M338 




►^70 



InciuOfl ii 50 loi stiipDing jiO handling 
Ofiio 'BSiOerts add b'',%' sales lai 

TRS 80' IS a naOemark ol IHe Undy Corg 



80 Microcomputing. September 1981 • 117 



LOWEST PRICES 



ON 



TRS-80 




Model II 64K$ 3298 




Model III 16K$S39 




Line Printer VII. S329 

"i^irtATA Microline 80 

oKIDATA Microline 82 

EPSON MX-70 S369 



$394 
$499 



EPSON MX-80 



$4 79 



SAVE 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 



$ 



VERBATIM DATALIFETM DISKETTES 
5'/4inch(boxo( 10) $25.95 

8-inch Double-Density, $43.95 

* P»ym«nt Money OfMf Caini«r s 
Check, Csflilwd Ofcn Petwnil 
Checks 'squira 3 <we«i) ro ciav VISA 
MaSTERChaHGE - Add 3% 
WHITE OR CAU FOR OUR COMPLETE PRICE UST. 

CALL (602) 458-2477 

mmmm All prices are mail order only i^m 

« RAND'S 33e 

2185 I FRY BLVD. 
SIERRA VISTA. AZ 85635 

TRSao IS a trademaf*! of Tandy Corporalion 



W 



Program Listing 1 

1 ES-"SQR.SQRSFREDEFSNGSQR>AUT0{ 79185 FREl 85BNDANDCLOSEERR=" 

2 I=VARPTR(ES) 

3 POKE 16526, PEEKd+l) :POKE 16527 ,PEEK(I + 2) 

10 M$="+?KD> )0RI3A- .<)0RJ3A- .HKDSLPRINT0R13AINKEYS" 

20 I-VARPTR(M§) 

30 POKE 16526, PEEK(I+1) :POKE 16527 .PEEK ( 1+2) 

35 AS="QR+?GON0TXVARPTRINPN0T?MKSSC FIXINKEYSERTER" 

38 'LINE 1 CONTAINS THE LOWERCASE IMPLEMENTATION MACHINE 

39 'LANGUAGE STRING DENOTED BY E$ 

40 'LINE 10 CONTAINS THE MACHINE LANGUAGE MUSIC PROGRAM 
50 'DENOTED BY MS 

52 'LINE 35 CONTAINS THE INFRA-RED ANALOG TO DIGITAL 

54 'CONVERTER - - MACHINE LANGUAGE PROGRAM IN A$ 

55 'THE FOLLOWING INSERTS THE MACHINE CODE INTO STRINGS E$,HS,AS 

56 •* AFTER THE PROGRAM IS RUN LINES 60 TO 85 CAN BE DELETED * 

60 I1=VARPTR(E$) 

61 I2=VARPTR(MS) 

62 I3-VARPTR{A$) 

63 Bl=PEEK(Il+l)+PEEK(Il+2)*256 

64 B2=PEEK(I2+])+PEEK(l2+2)*256 

65 B3=PEEK(I3+l)+PEEK(I3+2)*256 

66 DIM E(30),M(3fl),A{38) 

67 FOR J-0 TO 30 

68 READ E{J) :P0KE(B1*J} ,E(J) :PRINT PEEK(Bl+J)i 

69 NEXT 

70 DATA 221, 110, 3, 221, 102, 4, 218, 154, 4f221 

71 DATA 126,5,183,40,1,119,121,254,32,218 

72 DATA 6,5,254,128,210,166,4,195,125,4,32 

73 FOR J=0 TO 27 

74 READ M(J) !P0KE(B2+J) ,H(J) rPRINT PEEK(B2+J); 
7 5 NEXT 

76 DATA 205,127,10,77,68,62,1,105,211,255 

77 DATA 45,32,253,60,105,211,255,45,32,253 

78 DATA 13,16,238,175,211,255,201,32 

79 FOR J=0 TO 27 

80 READ A(J1 iP0KE(B3+J) ,A(J) iPRINT PEEK(B3+a); 

81 NEXT 

82 DATA 211,16,205,127,10,71,79,3,203,88 

83 DATA 192,219,16,203,127,237,67,1,112,32 

84 DATA 242,201,69,82,84,69,82,32 

B5 'END OF MACHINE CODE INSERTION ROUTINES 

■■i' POKE 16526, PEEK{I1 + 1) :POKE 16527 , PEEK ( 11+2) 

1*1 POKE 16414, 241:POKE 16415,66 

92 POKE 16526, PEEK(I2+1) :POKE 16527 , PEEK (12+2) 

135 CLS 

140 PRINT" ** INFRA-RED ROBOTIC VISION DEMONSTRATION 

**■ 

141 
150 
190 
191 
200 
210 
215 
220 
230 
240 
260 
270 
280 
290 
300 
310 
320 
325 
330 
340 
350 
360 
361 
365 
366 
370 
380 
390 
400 
405 
410 
420 
422 
424 



I Will Prepare For Hy Infra-Red Scan' 
By A Head Rotation of 90 Degrees" 



PRINT," by Don Mc Allister" 

FOR 1=2060 TO 2120:OUT00,0:L=USR(I) :OUT00,0:NEXT 

XbVARPTR(A?) 

POKE 16526, PEEKtX+1) jPOKE 16527 ,PEEK{X+2) 

k:=80 

K2=2.3 

IR=35 

PRINT' 

PRINT' 

PRINT 

BeINTCK2*90) 

FOR I»l TO B 

OUT 00,3 

NEXT 

OUT 00,0 

PRINT" Scanning 180 Degrees To The Right" 

B=INT(Kl/3) 

PRINT@448," In 24 Scans Of 7.5 Degree Increments Each" 

FOR 1=1 TO 24 

FOR J=l TO B 

OUT 00,1 

NEXT 

OUT 00,0 

S0=0 

C=0 

FOR K=l TO 10 

L=USR(0) 

S=PEEK(28673) +256*PEEK(28674) 

PRINT@(379+5*K) ,S; 

IF S>IR THEN S0=S0+IR 

S0=S0+S/10 

NEXT 

PRINT@320," ■ 

S0 = INT(S0) Program commues 
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CUOSH 

THE GRE^' ■ 



And guess who stars as the 
movte monster You! As any of six 
different monsters. More if you 
have the disk version. 

You can terrorize snd destroy 
four of the worlds largest arxJ 
most densely populated cities in 
over too possible scenarios. 
From Tokyo to the Golden Gate, 
you are the deadliest creature in 
the air. on tfie J.if kJ. or in the sea 

You can be the deadly am- 
phibian who simultaneously 
smashes street cars, lunches on 
fielpless humans arxl radiates a 
ray of death. 

If you were a giant winged 
creature, think of the aerial 
attacks you could make on tfie 
terrified but tasty tidbits tjeneatfi 
you. 

But as in all the best trxinster 
movies, you're up against every- 
thing tfie humiin race can throw 
at you— even nuc lear warfieads 
and a strange concoction devel- 
oped by a team of mad scientists 

For only $29.95 you get 6 stu- 
pendous monsters, each with its 
own monstrous summary card, 
4 teeming metropoli displayed in 
graphic fletail onyoui computer 
display and maf)ped in the 
accompanying 48-page illustrat- 
ed bof:)k. the awesome sounds of 
monsterly rtiayhem, and spine- 
tingling, reahtime, edge-of-your- 
seat excitement 
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GET CRUSH, CRUMBLE & CHOMP 

now at your local dealer for your APPLE, ATARI, 
or TRS-80 . before it's too late. 



^m^ 



PA^tfp Machine language program mat eOils all orpart 
of ?5lh Basic program lo run (aster save memory, or 
ease edifing The 5 options include UNPACK— unpacks 
multiple slatemeni lines inlo single slalements 
maintainifig logic inserls spaces and renumOefs lines 
SHORT— deletes unnecessary words spaces and REM 
slatemenls PACK— packs lines into tnaxinium multiple 
slaiemenr lines including all Branches MOVE— moves 
line or Blocks ol lines to any new location on program On 
2 cassettes lor I6K, 32K & 4eK 

For TRS-80Mod I or III Level II or Disk Basic .. S?9 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM lormat 
tapes IntjMes verify routines The MoOel III version 
allows use of'bOth 500 and 1500 tiaud cassettes speeds 
For IRS-BO Model I oMll Level II , ,, S15.95 

CASSETTE LABEL MAKEj! A mini word orocessor to print 
cassetle labels on a line printer Includes 60 ceel - and - 
stick labels on tractor leed paper 
For TR-80 Model I ot III Level II 8 Printer . . . . S17 95 
PRINT TO LPRINT TO PRINT" Edits your Basic program in 
seconds to change all Prints to LPtints (except Pnntla' or 
Printf) or LPrints to Prints Save edited version 

For TR-BO Model I or III Level II S1295 

FAST SORT ROUTINES tor use with Radio Stiacks 
Accounts Receivable. Inventory Control I and Disk 
Mailing List Systems tor MoOel 1 Level II Sorts in 
SECONDS' VouTI Be amazed at the lime they can sa^e 
Supplied on data diskette with complete instrucnons 
FAST SORT lof Accounts Receivable , , ,, S19 95 

FAST SORT tor inventory Control I S19 95 

FAST SORT lot Disk Mailing List (specify data diskette ol 
cassette lor 1 drive systemi S14 95 

ALL THREE ROUTINES S44 95 

Prices subiecl to change without notice Call or write for a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order m US currency 
only Kansas residents add 3°o sales tax 
On-line catalog m Wichita FORUM-80 316-682-2113 
Or call our 24 hour phone i3l6l 683-4811 or write 
COTTAGE SOFTWARE 
614 N HARDING 
WICHITA KANSAS 67208 ^233 
TRS-80 15 a trademark ol Tandy Corporation 




TEACH YOUR 
CHILDREN 

Lrearning to count money by Malcolm Nygren 



A three-program learning system that leaches 

-the important skill of counting money. 
I. Counting Coins— Instruction and drill in 

counting pennies, nickels, dimes and 

quarters, 
2^. Shopping Trip— Buy goods in various 

stores; count out the payments and earn 

"purple stamps" for a right answer. Three 

speed levels. 
3. Chcc^-Oui — Run your own checkout 
,,cdmiter. Learn and practice how to make 

cfiktige. 
Learning to count money by Malcolm Nygren 
feaiures* superior graphics and is available for 
TRS-80 Model I — Level II — 16K on cassette 
only./Sl^'ipped postpaid by Tirst -class mail 
'.^^ch program Sd.K— alt I hree ilV.K 



-=4 ■ ALSO AVAILABLK 

■"^: ALPHA — Alphabel rcL-ognjiion tor 

>■ . A presi'hoolers 

'l''i ■ *' ^'*'M*— Addition problems for 
' :"'' '.J^S^.' ' Grades 1-3 
'.'i.-^.'-SlCMA-EX— Addition problem', for 
. ' , '*'" —the younger or slower 

J^'- learner 

** ■ SPE_I,— Spelling praciice tor 

Grades 2-4 
Available on caiwtle only. S5.95 eath Two for Sit. 
Ail four for S20.00. ^^ 104 

Mcfter Sytlems ln<. 

87 Scooter Ldinc 

Hkhivlll*. N.V. I 1801 






Program Listing t Continued 

425 IF SB>1R THEN 500 
440 PRINT@(504+I*8) ,S0; 

445 IF S0>126 THEN S0=126 

446 PRINTe640," " 

450 FOR X=l TO S0:SET(X,34) iNEXT 

460 NEXT 

465 PRINT: PRINT 

470 PRINT"* THERE IS NO LIGHT SOURCE -- So I Will Turn Off *" 

480 GOTO 1105 

500 CLStPRINT" * I HAVE SEEN A LIGHT — I Will Investigat 
e *■ 

501 I=VARPTR(HS) :POKE 16526 ,PEEK(I+1) : POKE 16527 , PEEK ( 1+2) 

502 FOR P=l TO 100:OUT0,0:L=USR(2060) ;OUT0,0:NEXT 

503 M=VARPTR(AS) :POKE 16526 ,PEEK(H+1) :POKE 16527 , PEEK (H+2) 

505 S1~S0 

506 PRINT"INFRARED RADIANCE =";S0 

507 IF S0>126 THEN S0=126 

508 FOR X=l TO S0:SET(X,28) :NEXT 

510 PRINT:PRINT'I Will Rotate My Head Towards The Light" 

600 B=INT(K2*270) 

610 FOB 1=1 TO B 

620 OUT 00,3 

630 NEXT 

640 OUT 00,0 

660 PRINT"! Will Move Towards The Light" 

665 PRINT,"* INFRA-RED TRACKING MODE *" 

670 B=1NT(K1*6} 

680 FOR 1=1 TO 10 

682 IF I>1 THEN B=INT{Kl*3) 

685 S0=0 

690 FOR J"l TO B 

700 OUT 00,1 

710 NEXT 

712 GOSUB 730 

715 NEXT 

716 GOTO 1000 
730 FOR K=l TO 10 
740 L=USR(0} 

750 S=PEEK (28673 )+256*PEEK{ 28674) 
760 PRINTe(379+5*K) ,S; 
770 S0=S0+S 

780 NEXT 

781 PRINT 

785 PRINT@320," ",:PRINT 

790 S0=INT(S0/10) 

800 PRINTe512, "INFRARED RADIANCE =";S0 

810 IF S0>126 THEN 30=126 

815 FOR X=l TO S0:SET(X,28) ;NEXT 

850 PRINT 

900 IF S0<IR THEN GOTO Iflflfl 

950 RETURN 

1000 PRINT" * 1 Have Arrived At The Light Source *" 

1109 PRINT" * Turning Off Sensors * 

1105 I=VARPTR(M$) :POKE 16526 ,PEEK{I+1) : POKE 16527 , PEEK ( 1+2) 

1106 FOR 1=1 TO 10 STEP 1/4!OUT00,0:L=USR(3E3-ABS(150-3*I) ) :OUT0 
0,0: NEXT 

1200 END 



Program Usting2 

10 Kl=70 
20 R2=l,86 

25 CLS 

26 PRINT§15,"* VOICE COMMAND ROBOT DEMONSTRATION *" 

27 X0=X1=X2=X3<=0 

28 XT=0 

29 PRINTei28,"* 10-20 = TRANSLATION * * 20-30 = ROTATION *" 

30 PRINT@192," " 

31 PRINTe384," " 
40 K=0 

50 FOR 1=1 TO 1000 

51 X0=0 

55 OUT 255,00 
60 X=INP(255) 

70 IF X=255 THEN K"K+1 

71 PRINT§(256+K) ,K; 

80 IF XT=1 AND K>10 THEN GOTO 106 ' 

86 IF X*127 AND K>1 THEN X0=1 

87 X3=X2:X2»X1:X1-X0 Program continues 
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PorMHtten manet 

The mrmt ralMnp mtu0ntU(f0 > 

This adveittire talks througli the rassftte 9n^. 

Yoy no longer need to Have a voice synthesiiff. 

This {Venture takes you to a desolate pfaitet 

wkere only yonr skHt »d your talking compnter 

^., will help you survive. ThH is Part 1 of a nsuttl- 

^'i^man talking adventure. Like no other adveRtnre 

you have ever played. The first five people to solve 

Forbidden Planet will get the next adventarv FREE. 

• Jjjit Screen 

-*J|actmHQanguagc 

tobgh Cassette Port 
Case 
ects 
Wjiliam Demas .-, 

Adams Adventure #12" 



Disk Model I & III 

ealers inquiries invited 

1457 Forum 80 702$62S609 

Fantastic Software 

5110 Polaris #3 ^^ 

Las Vegas, Nevada 89102 ^ 




TRS-80 OWNERS 
~i REJOICE! 



Our protesshmBl quatity software 

development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our tull 
screen editors. These editors are not 
just patched up word processors. 
They have been specially designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide tull screen option 
menus to relieve you o( the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation In the industry and 
you will see why programming a 
TRS-80 is now better than ever. 



T-ZJkL: TAPE BASED ASSEMBLER: Assem- 
ble to memory o( tape Create relocauble 
SYSTEM tapes' Includes relocating LOADEfl 
pgm. 8 c^a^acte^ symbols with XREF. 
Upgrades to disk when you do! 
Mod 3 Cat # 1250-20 S 41.95 

FULL SCREEN PROGRAM TEXT EDITORS: 

All CAU tull screen edrlors support lour way 
cursor motion and scrolling with user selec- 
table aulo repeat and scroll spMds Totally 
visual character insert, delete, and change. 
Block move, copy, delete. Global tind and 
change. Editor lor BASIC also provides 
automatic line renumbering and 26 user* 
definable macro keys. 
For Tape and Disk BASIC: 
Mod 1 Cat « 1010-20 SZ4.95 
Mod 3 Cat # 1210-20 $».9S 
For Mod 1 EDTASM source files: 
Tape Cat* 1010-30 S24.S5 
Disk Cat # 1010-31 $34.95 

IDtm •(■tlwi fhtfft to tipt I 



M-ZAL: DISK EDITOR/ASSEMBLER: 

Modular Assembler Language development 
system includes tull screen text editor. muRi- ' 
pass assembler, and object module linker 
Allows 6 character symbols and source file 
chaining/nesting with 'INCLUDE cmd Full 
support lor relocation and global symbols. 
Symbol table with cross rolerenca. Req. 32K 
Disk system. 

Mod 1 Cal # 1050-10 S149.00 
Mod 3 Cal # 1250-10 $149.00 

XBUG: DEBUGGING TOOL & MONITOR: 

Display/Modity memory and regs Set up to 
10 invisible and transparent breakpoints 
Mufti-speed single step. Load/ Copy/ Creala 
SYSTEM tapes Uses only 2 5K and can bt ' : 
dynamically relocated to any address. .'. •:.'. 

Modi Cat # 1020-10 S19.95 
Mod 3 Cat N 1220-10 S19.9S 

Note: these products are not avatlable lor 
level 1 mKhines. 

When ordering specity Model. RAM size, n.pl 
disks. ■ :.^- 

Send check, money order, or MC/VISA <^ 
numbers and eipiration date to: 
Computer Applications Unllmliad 
P.O. Box 214. Dept EEW 
Rye. New'^k 10SBD 

NY. State residents add applicable sales tax. - 

AHow 4-6 weeks lor delhrary. 

Dealer Inquiries Invited. , 

rii i COMPUTER 
iJlJ APPLICATIONS 
Am unlimited. m ^.07 

A 111. ol f.SU Inc 

Quality*ReUability*Seivice 

MRS-80 IS a IM o'loridv Coip 



^S*« List ot Atfvcftiscrs on p«0» 3S4 
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Program Listing 2 Contlnuvi 

B8 XT=X0*Xl*X2*X3 

89 IF XT=1 AND K<10 THEN GOTO 25 

95 SET(2*K,22) :SBT(2*K+1,22) 

96 IP K>30 THEN GOTO 25 
100 NEXT 

105 IF K=0 GOTO 30 

105 CLS:K=INT{K/10) 

110 IF K=l PRINT@0,"* YOU HAVE SELECTED MY TRANSLATION MODE * 

120 IF K=2 PRINT@0,"* YOU HAVE SELECTED MY HEAD ROTATION MODE *' 

121 PRINT@192," " 

122 PRINTe384," " 
130 IF K=l THEN A=l 
140 IF K=2 THEN A=3 

150 K=0 

151 X0=X1*X2»X3-B 

152 XT=0 

155 FOR 1=1 TO 10000 

156 OUT 255,00 ' 

157 X0-0 

160 X=INP(255) 

170 IF X=255 THEN K=K+1 

171 PRINTe(256+K) ,K; Prograrry cantlnues 



decoding is used in controlling the robot's 
motion (an OUT command to any port 
causes the relays to operate). This is all 
right if no other peripherals using data bits 
DO and Dl are being operated at the same 
time. 

A cassette recorder can also be operated 
at the same time the robot is being con- 
trolled by using OUT byte commands for 
motion control. Since the recorder is port 
FF = 255 (decimal) it will be unaffected by 
OUT commands and the robot is unaffect- 
ed by OUT FF,04. which turns the recorder 
on. Note that up to four relays can be con- 
trolled by the circuit in Fig. 1 without adding 
more chips. 

The DO and Dl grounds to the relay coils 
in Fig. 1 are connected to the ground side of 
the coils in the relays shown in Fig. 4. The 
plus side of the coils are connected to the 
+ 5 Volt D.C. supply. Photo 3 shows how the 



-ATTENTION ALL TRS-80® OWNERS- 

No matter how your Model I, II, or HI is used, whether it be business 
or pleasure, this product can benefit you. 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irritated, watery eyes and headaches) caused by the harsh while 
video display thereby making computer use more efficient and/or 
enjoyable The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the band pass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer A marker is also on the graph at the ideal 
psychological tolerance color. As you can see, the green color of the 
FATIGUE FIGHTERtm takes advantage of both eye sensitivity and 
psychological tolerance to make the display less irritating 

The FATIGUE FIGHTERtm is made of tough '« inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(eg. lenses for laser safely goggles) It installs easily on all three 
TRS-80* models with a pressure sensitive adhesive which will not let 
the filler fall off yet allows easy removal if necessary Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERtm of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below 



TO ORDER 



TRft-IO IS A TRAOEMARK OF TANOV 



^ 



SwKl NifiM ft Addn** TypM oi dMrly PdrrlM wtlh 
Chack Of Money Ordw tai ti2 K Etch. Including Snip. 
(Nng. COO* ar* %2 SO Addttlonsi P* Odw I ara Ac 
taptaa by Mali at Qy Calling MM-3rB.3*M B-S U-F 
Florida HaaManu AM 4°, Saia* Tai 

SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIOA 32601 .^373 



Dealer Inquiries Invited. 



Psychological 
Tolerance Color 



MAXi- 



Eye Sensitivity 
Spectral Curve 




Green Yellow Orange Red 



rollowinot fsvCtelovioal mtu«t4>i 
**ww ■r*»n to te aoci pt»a««n( 
for rxtarKlMf ^'t*wln«. Ev* *«rw^- 
ii'jilv t>*»ka irvUw ar w n bwiri 
of (^i» s^^ctn^. C«n(r«*l Is •»> 
t\*n<'.#d bv r-Mluclno Vhm a«toi*nt 
li«ht (alllrvo <v> a CAT. TKm* 
i*w** f 

o » r«tor faliVM*. Ftnallw (^ 
w«nt*d Bor* \tt»n just funetton. 
U* w«r>i«l a filter that wicuallv 
•Mto^vd TBS-SB atwllrt*. PtcUrM 

|M-o<»uct vm w-a p»-<x»d of. 
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"After you are certain 

everything is worf<ing as it should, 

. turn on the power. The robot should 

immediately start rotating his htjd." 



color coded relay output switch wires are 
connected to the R2D2's radio control unit. 

N.O. NORMALLY OPEN 
NC- NORMALLY CLOSED 
VOLTAGE 6-9VDC 

RESISTANCE 500Q 

CURRENT 12MA 

CONTACT HATING 1AMP 

Once you have assembled the robot inter- 
face control board, and its connection to 
the radio control unit and microcomputer, 
plug in the power supply to an unregulated 
7-12 volt D.C. source (a 300 milliamp plug-in 
battery eliminator does nicely). Double 
check the circuit for proper voltage levels 
and continuity before connecting it to the 
computer. 

After you are certain everything is work- 
ing as it should, connect the interface to the 
computer bus and turn on the power; the ro- 
bot should immediately start rotating his 
head. To stop the motion hit Clear. The mo- 



P'ogram Listing 2 ContinueC 

172 IF X=127 AND K>1 THEN X0-1 

173 X3=X2:X2=X1:X1-X0 

174 XT'=X0*Xl*X2*X3 

175 IF XT=1 AND K<10 THEN GOTO 25 

176 IF XT=1 AND K>10 THEN GOTO 209 
190 IF K>60 THEN GOTO 209 

195 SET(2*K,22) iSET(2*K+l,22) 

200 NEXT 

205 IF K=0 THEN GOTO 25 

209 K=INT(K/10) 

210 IF A=l PBINT@64,"* FOR A TRANSLATION OF" ; K; "INCHES *" 

220 IF A=3 PRINTg64,"* FOR A HEAD ROTATION OF" ;K*90; "DEGREES *" 

230 IF A=l THEN B=INT(K1*K} 

240 IF A=3 THEN B=INT[K2*90*K) . 

250 OUT 00,0 

260 FOR J=l TO B 

270 OUT 00, A 

280 NEXT 

290 OUT 00,0 

295 CLS 

300 GOTO 10 

400 END 




PRESTO! Accessories shipped in 24 Hours 



We have a large stock of accessories available 

for immediate shipment, including ribbons, 

interfaces, cables, thimbles and other items 

for Anadex, Epson, Centronics, IMEC and 

Okidata printers. We also stock the printers 

for the accessories. We stock Amdeck 

monitors, terminals by TEC, Telray, and 

Micro-Term, and the Altos Microcomputer 

Product line. Make us your stocking source. 










ANADEX DP-9000 

All funct;ions are 

program accessible, 

Hi-Re5 Graphics 



CENTRONICS 739 

A great printer 

with many new 

features 



NEC-3500 

A New 

Spmwriter at 
a lower cost. 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Havuthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1-B0O521-2764 

MICHIGAN 

1-8CX)-482-8393 



Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 




No Credit 
Card Penalty 



WRITE TO: -^ 
"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 
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"Position the roboVs head 

so he is looi<lng straight ahead; 



tfon is stopped when the DO and Dl relays 
are latched to 00. Now you are ready to load 
th'3 motion control in Program Listing 1. 

After the program is loaded, position the 
robot's head so that he is looking straight 
ahead (red LED eye in front). Then, run the 
Basic program in Listing 1, and the robot 
will go through a preprogrammed sequence 
moving about the table top in a square. 
Notice that the program starts and stops 
the cassette recorder before each motion. 
This allows you to record a verbal descrip- 



tion of the robot's maneuvers on cassette 
for playback on subsequent runs. If you 
don't want to make use of this feature 
delete lines 270-300, 710-730 and 920-940 
from Listing 1. 

If the motion is not as desired, try modify- 
ing the constants K1 and K2 in Listing 1. 
They control the magnitudes of the robot's 
moves. For example, if you input a 360- 
degree head rotation and the robot's head 
only rotates 340 degrees, increase K2 by 15 
percent. 



43B5« 


D3 10 




OUT (lOH).A I 


trieeei" A to D converter 


i*3B7i 


CD 7F 


OA 


CALL 0A7FH I 


initialize converter 


i*3BAi 


ki* 




LD B,H 1 


with most significant byte 


1*3 BB I 


iJD 




LD C,L 1 


least significant byte 


l»3BCi 


03 




INC BC 1 


increment counter 


1*3 BD I 


CB 58 




BIT 3.B 1 


limit max converter value 


tl3BFi 


CO 




RET NZ i 


return if value exceeded 


fJCOi 


DB 10 




IN A.CIOH) 1 


input sensor data D? 


OCZi 


CB 7F 




BIT 7. A 1 


checlt if 07=1 


l*3Cl*i 


ED 1*3 


01 70 


LD (7001H),BC 1 


store count in 7001H 


U3C8i 


20 F2 




JR NZ.U3BC 1 


keep counting if 07=1 


t3CAi 

i 


C9 




RET 1 
Program Listing 3 


stop count when 07=0 and 
return to BASIC 




Photo 3. The robot interface control board relays DOandDt connect to the radio control unit 
as indicated here. 
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MICROCOMPUTER 
TECHNOLOGY INC. 



-28 



MOD III 
SALES 

PARTS & SERVICE CENTERS ■ 
INDEPENDENT DEALERS 

WASHINGTON (509) 534-3955 

Personol Computers 

SAN JOSE (403)946-1265 

Audio Visual Systems 

SANTA CRUZ (408) 4270636 

Monterey &oy Doio Service 

SAN DIEGO (714)281-02S5 

Disney Elecironics 

HAWAII (606)261-4042 

Computer Marker 

TEmPE AZ (602) 839-0546 

Lonch Computet 

PHOENIX, AZ (602) 244-9739 

King s Micro Electronics 

TUCSON AZ (602)323-9391 

SimuiGk 

SIERRA VISTA. AZ (602) 456-2479 

Rond s Inc. 

TEXAS (214)247-6679 

Electronic Secretory Enterprises 

N (j S DAKOTA (701 ) 594-5674 

Arrow Seven MerchancJise 

MIDWEST (618J 345-5068 

Merge Systems 

MAUMEE. OHIO (419) 893-4266 

M.V.C.S, 

CLEVELAND OHIO (216) 779-6040 

C T, Enterprises 

GEORGIA (404) 449 8962 

Micro Accounting Systems 

FLORIDA (305)981 9091 

Computek 

WHITE PLAINS. NY. (914) 946 7960 

Blue Light Computer Source 

ASTORIA, NY (2l2) 726 5252 

Toro Systems 

TROY. N.Y. (518)273-6411 

J.FA. Electronics Inc. 

OVERSEAS 

REP. OF SOUTH AFRICA 021-45-1047 

Mightey Dyrey. Coperown 

AUSTRALIA 03-877-6946 

De Forrest Softwore. Melbourne 

Mil r,o.^ ^ zon .p.e^e .ne o- COMPUTER u. 'O ■>-.. 

INTERNAL DISK KIT 40 OR 00 TRACK 

Drive Kit *1 tiom ►699 
Drive Kir #2 from »279 

EXTERNAL DISK KIT 40 OR 80 TRACK 

Drive Kit *34 fiom '379 
Drive Kit #4 from >359 

riXS IXiS 6 Monuol '21 .95 
DOS Plus from *99 



IF YOU CAN 
RECOGNIZE VALUE 

YOU CAN SAVE 

INTRODUaORY 
OFFER 



M.T.I. 
MOD III 

Now You Con Save 

S500 over comporobie models! 

H998 

We hove roken rhe bosic 1 6K Model III expended 
rhe memory ro 46K ond odded our MTI Double 
Density, Duol Disk Drive system. Sysrem is fully 
comporibie wirh ftodio Shock DOS and peripherols. 

MOD lll/EXPANDED 

Some OS above bur has double storoge copociry 
C708K sroroge) Your choice of 2 dual heoded 40 
rrock drives or 2 single heoded 60 rrock disl^ drives. 
Includes Microsystems DOS plus 30. 

$2499 




MOD 111/280 

Our lorgesrMOD III, opproximorely 1.5 megb'byres 
of storoge, utilizes 2 duol headed 60 track. !^>yble 
density disk drives. Complete with monuots^.ond 
professional operoting system. Microsystem? DOS 
plus 3.3 (40 6 60 rrock copobility), 

^2799 



EA 



MICROCOMPUTER TECHNOLOGY INC 

3004 W. MACAfMHUP., SANTA ANA, CA 92704 
• (714)979-9923 • TELEX 6780401 TADIRIN • 

'Dies MTI MeTxyy [>ii^ Oive^ 6 CCN-npOoen'^ 




^28 

U.S. PRICES 

FO.D. SAhfTA ANA, 

CALIFORNIA 



^5*« Ual of A<lr»rtl»»n on (Mff* 354 



80 Microcomputing, September 1981 • 125 



'7^5 fun to whistle command your robot 
around the floor. You can also construct 
a robot obstacle course to test your skill. 



'*362i 


CD 7F OA 


ij365i 


4D 


if366t 


44 


43671 


3E 01 


if}69i 


69 


436AI 


D3 FF 


i*36C. 


2D 


i*36Di 


20 FD 


i*36Fi 


3C 


•+370. 


69 


if371i 


D3 FF 


43731 


2D 


4374 1 


20 FD 


43761 


OD 


43771 


10 EE 


43791 


AF 


437A. 


D3 FF 


437c. 


C9 



CALL 0A7FH 

LD C.L 

LD B,H 

LD A.OIH 

LD L.C 

OUT (FFH),A 

DEC L 

JR NZ,436CH 

INC A 

LD L,C 

OUT (FFH),A 

DEC L 

JR NZ,43?3 

DEC C 

DJN2.4367 

XOR A 

OUT (FFH).A 

RET 



pass argument In USR( ) 

frequency 

duration 

for square wave start 

get frequency 

begin positive half cycle 

count tc end of positive 

half cycle of square wave 

for next half cycle 

get frequency 

begin negative half cycle 

count to end of cycle 

continue till done 

increase pitch 

if duration + more waves 

end of square waves 

from K.$ 

return to BASIC program 



Program Listing 4 



42F1 t 


DD 


6E 


03 


LD 


L, (IX+03H) 1 


address of cursor lsb 


42F4i 


DD 


66 


04 


LD 


H,(IX+04H) 1 


address of cursor KSB 


42F7i 


DA 


9A 


OU 


JP 


C , 049AH 1 


jump if VIDEO read 


42FA. 


DD 


7E 


05 


LD 


A,(IX+05H} I 


check if cursor is on 


42FDt 


B? 






OR 


A 1 


jump to control check 


42FE. 


28 


01 




JR 


Z,4301H I 


if not on 


43OO1 


7? 






LD 


(HL},A I 


blank if cursor on 


4301 1 


79 






LD 


A.C 1 


control character check 


43021 


FE 


20 




CP 


20H 1 


control character? 


4304 1 


DA 


06 


05 


JP 


C,0506h 1 


jump if control character 


43071 


FE 


80 




CP 


80H 1 


graphic character? 


4309' 


D2 


a6 


04 


JP 


NC . 04A6H 1 


jump if graphic character 


430CI 


C3 


70 


04 


JP 


04? DH 1 
Program Listing 5 


patch back to video display 
driver in ROM 



Program Listing 6 

REM ROBOT CONTROL DEMONSTRATION 

1 CLS:PRINT"MY NAME IS R2D2 AND I WILL NOW EXECUTE A SEQUENCE" 

2 PRIKT"OF PRE-PROGRAMMED MOTIONS" 

3 PRINT 

4 Kl=81. 

5 K2=1.96 

6 OUT 255,4 

7 FOR W=l TO eflea-.NEXT 

8 OUT 25 5,0 

10 DIM A(40) ,B(40) ,C$(40) Program continues 



Robot Voice Control 

Sounds of various durations can be used 
to designate the type and magnitude of the 
robot's motion. It is fun to whistle com- 
mand your robot around the table top or 
floor. You can also construct a robot 
obstacle course to test your skill. 

To use the voice control mode load the 
program in Program Listing 2 into your com- 
puter. Press play and record on the recorder 
simultaneously (you'll also have to insert a 
blank tape) and remove the black plug from 
the microphone jack. By whistling into the 
cassette microphone for various durations 
the robot can be maneuvered in any desired 
pattern when Listing 2 is run. 

The program can also be modified to 
combine computer controlled motions with 
verbal commands. 



Infrared Sensor Light Source 

The infrared sensor (Photo 1) actually re- 
sponds to visible light as well as infrared 
light (in the 1 micro-meter range). Infrared 
LED's emit light over a narrow band of 
wavelengths in the infrared spectrum as 
shown in Fig. 5 (a tungsten filament lamp is 
a good generator of infrared light). For this 
reason ordinary flashlights or pen lights can 
be used as infrared light sources (with or 
without filters). A flashlight also has the ad- 
vantage of producing a beam of light which 
can be seen over great distances. 

Infrared data is converted from analog to 
digital impulses and input to the CPU 
through ICs 555 and 74367 in Fig. 1. The ac- 
tual analog to digital conversion is per- 
formed by the machine language subrou- 
tine in Listing 3, which can be called from 
Level li Basic using the USR command. 

Machine code can be either POKEd into 
the string locations, or can be entered 
directly into string locations using a 
monitor program such as RSM or T-Bug. It 
is helpful to enter first the Basic program in 
Listing 6, using arbitrary keyboard charac- 




400 500 600 700 800 900 1000 1100 IJOO 
WavE LENGTH (NAN0ME1ERS1 



Fig. 5. The spectra of various light sources 
used in robotics experiments 
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ters to fill out the strings. After this is done, 
the machine code in Listings 3, 4 and 5 can 
be inserted into the proper string from the 
vantage point of a high memory monitor 
program. Two restrictions in doing this are 
that the program must be less than 256 
bytes, and must contain no zero byte op- 
codes. A zero byte causes the Basic inter- 
preter to thinit it has reached the end of the 
string definition. Careful coding can get 
around these restrictions in most in- 
stances. 

When an infrared source above a soft- 
ware selectable threshold is seen by the ro- 
bot during a scan, a musical note is sound- 
ed through the cassette auxiliary cable. You 
can connect this cable to the phonojaci^ in- 
put of a stereo amplifier, so that the tones 
generated when the robot sees a light are 
heard in high-fidelity. The musical tone is 



formed by means ot a Z-80 machine lan- 
guage subroutine, which is also embedded 
in a string. This program is given in Listing 
4. 

Listing 5 gives the Z-80 code for the dis- 
play of lowercase as well as uppercase let- 
ters on the video monitor. 

Finally, Listing 6 is a Level II Basic pro- 
gram that uses the machine language sut)- 
routines in Listings 3, 4 and 5, and converts 
your robot into an infrared scanning, de- 
tecting and tracking system. 

After loading the program, plug the sen- 
sor coaxial cable into the interface board. 
As a first test of the sensor, turn the robot 
off and set the IR threshold to a large 
numtier(lR = 1.E10) in line 350 of Listing 6. 
Run the program, and observe the infrared 
intensity displayed. The numbers should be 
around 10, if no light is shining on the sen- 



Program Listing 6 Continued 

29 FOR 1=1 TO 16 

30 READ A(I) ,B(I) 
40 NEXT I 

100 DATA 1,4 

101 DATA 3,90 

102 DATA 1,2.5 

103 DATA 3,270 

104 DATA 1,4 

105 DATA 3,90 

106 DATA 1,2.5 

107 DATA 3,270 

108 DATA 1,4 

109 DATA 3,90 

110 DATA 1,2.5 

111 DATA 3,270 

112 DATA 1,4 

113 DATA 3,90 

114 DATA 1,2.5 

115 DATA 3,270 

116 DATA 1,4 
120 DATA 3,270 
200 FOR 1=1 TO 16 
210 A=A(I) :B=B(I) 
220 OUT 00,0 

225 IF A=l PRINT"! = ";I;" TRANSLATE ";B;' INCHES" 

226 IF A=3 PRINT"! = ";I;" ROTATE HEAD ";B;" DEGREES" 

227 IF A=l THEN B=INT(K1*B) 

230 IF A=3 THEN B=INT(K2*B) 

231 OUT 255,4 

232 FOR W=l TO 2000:NEXT 

233 OUT 255,0 
235 FOR J=l TO B 
240 OUT 00, A 
250 NEXT 

260 OUT 00,0 

270 NEXT 

280 PRINT:PRINT"I AH NOW FINISHED WITH THE MOTION SEQUENCE' 

285 PRINT 

290 PRINT"* WHAT IS YOUR NEXT COMMAND ? *" 

294 OUT 255,4 

295 FOR W=l TO 4000:NEXT 

296 OUT 255,0 



sor. With a light shinirfg the number will go 
up to several hundred. 

Adjust the two sensitivity trim pots on the 
interface board until this happens. After the 
infrared signal conditioner and analog to 
digital converter are working properly, set 
IR = 20, turn the robot on, and run the pro- 
gram. The robot will begin a series of scans 
in 7.5-degree increments until a light source 
is seen. At this time R2D2 sounds a musical 
note through the auxiliary cable, and it tie- 
gins to track the tight. R2D2 now moves to- 
ward the light. When he arrives at the light 
source, the image of the light on the detec- 
tor becomes diffused, and the robot stops 
{once again to a musical accompaniment). 

Incidentally, if you want to mount more 
sensors such as touch sensors, or sonar, 
the analog to digital converter design 
allows up to six analog signals to be read 
and converted simultaneously.* 



MODEL II 
PROGRAMS 
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BUDGET MONITOR 
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'''I see 
Instanft 





ff 



"... .It's becoming very clear now. . . 
microcomputing life is going to be very 
exciting. . .Money! I see much 
money for you. Pertiaps it is the 
^1 money you will gain when 

- ^\ Instant Software's new 

^A^ business applications 

IPk^V guide your financial 

^I^Tv. endeavors. I see 

travel. . .you will 
journey to distant 
worlds in distant 
times. You will build 
kingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
'Jh adventurous one! Your 

fy programming burdens will 

W lighten with new utilities— new 
tools. I see color! Many 
bright colors! I see new 
packaging for all these trea- 
sures .. .everything new! 
And. . yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all is 
yours for the asking. 
Soon. . .very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 
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YOUR NAME COULD 

BE HERE. CALL: 

1800-258M73 



/ 



Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave it to chance— leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free if you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 

NAME: 



N 



.^ 



\ 



ADDRESS: 
CITY; 



Instant S oftware Inc 



STATE:. 



ZIP: 



.-535 



Peterborough, N.H. 03458 603-924-7296 -A2i 



.J(*.»"ar^'"y****f«j''_.." "*. 



APPLICATION 



Some ham software. 



Morse Resource Part II 



,jMlan S. Joffe W3KBM 
1005 Twining Road 
Dresher, PA 19025 



In the programs discussed last month in 
part one of this article, we stored a mes- 
sage in a string. If we empty this string into 
an area in RAM that is free memory, the 
string can be refilled.We can then empty 
the refilled string into any contiguous free 



RAM area. This can be done at least four 
times, giving us 1000 or more characters. 
This area in RAM is a buffer, a storage area 
of convenience. 

in Program Listing 1 line 5 clears enough 
string space to allow us to fill A$ to capaci- 
ty. Line 10 sets the area in free RAM where 
our buffer area will exist. Line 20 gives us a 
clear screen at the start of the program, 
lists an instruction, and allows us to insert 
characters into A$. Lines 30, 40, 70, 90 and 
100 store the contents of A$ into suc- 
ceeding memory cells in the buffer area. 



5 

10 

20 

25 

30 

40 

50 

60 

70 

90 



CI£AR 300 

X - 24000 :REM START OF RAM BUFFER AREA 

CLS: INPUT '*rYPE IN MESSAGE ";A$ 

LN - LENCA$) 

FOR J ■= 1 TO LN 

CODE$ = MID$CA$,J,1) 

IF CODE$ - "*" GOTO 20:REM SUBSTRING TERMINATOR 

IF CODE$ = "#" GOSUB 6000:REM END OF MESSAGE TERMINATOR 

POKE X,ASC(C0DE$) 

X = X + 1 



100 NEXT J 

2000 FOR X = 24000 TO 25000:REM GIVES 1000 CHARACTER BUFFER AREA 

2010 A = PEEK(X): PRINT CHR$CA); 

2015 IF A =■ 32 FOR W - 1 TO 50:NEXT W:NEXT X:REM SEE TEXT 

2020 REM ENTIRE CHARACTER DIRECTORY IS NOW ENTERED 



2025 


IF 


A 


- 


65 


THEN 


G$ 


=> 


"SLE" 


2030 


IF 


A 


= 


66 


THEN 


G$ 


= 


" LSSSE" 


2040 


IF 


A 


= 


67 


THEN G$ 


1 


"LSLSE" 


2045 


IF 


A 


= 


68 


THEN 


G$ 


- 


"LSSE" 



2050 



The balance of the character directory is entered 
with the pattern that is shown. 



4000 
4010 
4020 
4030 
4040 
4050 



LG = LEN(G$) 
FOR H = 1 TO LG 

XMr$ = mid$cg$,h,i) 

"S" GOSUB 
"L" GOSUB 
"E" GOSUB 



IF XMT$ = "S" GOSUB 5000 
IF XKr$ = "L" GOSUB 5020 
IF XMT$ = "E" GOSUB 5040 
408O NEXT H,X 
4090 EKD 

5000 OUT 255,4:FOR TM = 1 TO 20:NEXT TM: OUT 255,0:RETURN 
■^5020 OUT 255,4:F0R TM = 1 TO 40:NEXT TM: OUT 255,0:RETURN 
^■5040 FOR.TM = 1 TO 20:NEXT TM:RETURN 
6000 INPUT*' "PRESS ENTER TO TRANSMIT MESSAGE";Z$ :RETURN 

-V ^; ■ Program Listing 1. 



Lines 50 and 60 are terminators. Line 50 
has an asterisk as the terminator. The first 
character to be typed into the message is a 
quotation marit, which handles the situa- 
tion peculiar to proper functioning of the 
comma. Assume that the message will ex- 
ceed one string capacity (255 characters 
and spaces). If you type in approximately 
three and one-half lines of text, your aver- 
age character and space count will ap- 
proach the string limit. 

The last character entered must be an as- 
terisk. If you exceed the limit, simply back- 
space to a logical end point and insert the 
asterisk. 

Now hit Enter and the program POKEs 
the ASCII value of each character of the 
string into the buffer. The program knows 
that all the meaningful characters have been 
stored when It hits the asterisk. The pro- 
gram now goes back to line 20 for a refill. 
Enter the next A$ with the rest of the mes- 
sage. Follow all procedures as with the first 
string. 

At the end of the final string, the termina- 
tor {#) in line 60 is used. When the program 
encounters the #, it goes to tine 6000 and 
lets you transmit the message by pressing 
Enter. 

A Dual Function 

Line2015 serves a dual function. The first 
function takes care of any accidental 
spaces typed in prior to the terminator sym- 
bol in any given string. Without line 201 5 the 
last character of such a line would repeal. 
This function is taken care of by the expres- 
sion: IF A =32 NEXTX. 

The function generated by the timing 
loop using the variable W is a new function. 
It generates a between-words space that 
you can adjust by changing the value of the 
timing loop. ASCII 32 is the code value for a 
space, so a portion of line 2015 is a space 
detector. 

The terminator character may be any 
character on the keyboard that is not in- 
cluded in your character list in the program. 

Easy Repeat 

Suppose that you have just sent a mes- 
sage. You heard it go out and watched the 
screen as each character was transmitted. 
If you hit Enter without entering a new mes- 
sage, and then hit the Enter key again, the 
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"If you have to send 
too many CQ messages. . . 
is your antenna still up 
after the last big blow?" 



old message will once more be transmitted. 

Here is the scenario: It's a dull day on 40 
meter CW and you decide to call CQ. You 
load your general calling message, transmit 
it and tune across tiie band. Hmmmm, no- 
body came baci( to you. Repeat the mes- 
sage by merely hitting Enter, follow the di- 
rection on the screen, and hit Enter again. 
Your CQ goes out once more, again and 
again if needed. This a nice convenience. 

By the way, if you have to send too many 
CQ messages. . .is your antenna still up 
after the last big blow? 



Special Message Insertion 

Insert the following line between lines 20 
and 25: 

IF A$ = "&" GOSUB 7000. Now insert the 
calling message in a subroutine in line 7000. 
7000 A$ = "CQ CO CQ DE W3KBM W3KBM 
K #":RETURN. Notice the use of the final 
terminator In the subroutine message. 

When you run the program and wish to re- 
call the special messasge, merely type in & 
and hit Enter. This is the case where you do 
not type In a terminator. If you did the pro- 



5 

10 
15 
20 

25 

30 
35 

40 
45 
50. 



DEFINT A-Z : DIM CODE$(100) 

R = 24000 :REM START OF BUFFER AREA IN RAM 

CLS:FRINT "TYPE IK MESSAGE" 

A$ = INKEY$:PRINT A$; 

REM NOW WE ENTER CHARACTER LIST WHICH GETS INFORMATION INTO 

THE RAM BUFFER LOCATIONS 
IF A$ = "A" POKE R,65: R=R-fl 
POKE R,66: R-R-H 

R-R+1 

R-+R-H 



IF A$ -"B" 

IF A$ - "C" POKE R,67: 

IF A$ = "D" POKE R,68: 



Enter the rest of the character list following 
the indicated pattern. AFTER ENTERING THE CCMPI£TE 
CHARACTER LIST YOU THEN ENTER THE FOLLOWING LINES 
USING YOUR APPROPRIATE LINE NUMBERS. 



IF A$ = "#" POKE R,35: GOTO 1000 




IF A$ = ":" THEN R - R-1 




if A$ - " "POKE R,32:R-^+l 




990 GOTO 20 




1000 FOR X - 24000 TO 25000:REM THIS SETS BUFFER CAPACITY 




1010 B = PEEK(X) 




1015 IF B = 35 GOTO 10 




1020 IF B - 32 THEN FOR W - 1 TO lOtNEXT W:REM Between word 


spacing 


1025 REM NOW WE HAVE TO INSERT A CHARACTER LIST TO GET THE 




INFORMATION "OUT" OF THE BUFFER 




1030 CODE$(65) =■ "SLE" 




1035 CODE$(66) - "LSSSE" 




1040 CODE$(67) - "LSLSE" 




1045 C0DE$(68) - "LSSE" 




1050 CODE$(69) - "SE" 




1055. 





The balance of this code character list Is entered 
following this same pattern. Depending on how close 
you space line numbers, it may be necessary to 
change following line numbers to fit your style. 



2000 LN - LEN(CODE$(B)) 

2010 FOR H - 1 TO LN 

2020 XMT$ - MID$(C0DE$(B),H,1) 



2030 IF XMr$ - 


"S" GOSUB 5000 


2040 IF XMr$ = 


"L" GOSUB 5020 


2050 IF XKr$ - 


"E" GOSUB 5040 


2060 NEXT H,X 




2070 END 





The three subroutines are identical to those of Listing # ONE 
so merely duplicate them at this point. 

Program Listing 2. 



m 



MICRO-DG^IGM 



ANNOUNCES 

THE NEW 

MDX-3 

INTERFACE EXPANSION BOARD 



INTIRPACC iXPANSION BOARD 

FOR THE TRS-SO 

MODEL III COMPUTER 

FEATURES: 

• Phone Modem 

• [;S'232 Port 

• Floppy Disi< Controllpjr 
Dual Density 

Data Separator 

• Siti( Screen 

• Solder IVIasl< 

• User Ivlanual 

Also Available 
TheMDS-1 

• Plug in data separator 

for theMDX-2 

• Fully assembled and tested ._ 

• User Manual 



STILL AVAILABLE FOli 
THETRS-80M0DELI 

MDX-1 and MDX-2 Boards. 

FEATURES: 

• Phone Modem 

• 2K-4K E PROM Option . 

• 32K MEMORY Expansion 

• Floppv Dist< Controller on MDX-2 

• Real Time Clock 

• Parallel Port 

• RS-232 and 20TT^a Serial Port 

• Dual Cassette Line 

• On Board Supply 

• Silk Screen 

• Solder Mask 

• User Manual 



IN STOCK NOW! 



PC Board & Manual 

MDX-1 $64.95 

MDX-2 $74,95 

MDX-3 $74.95 

MDS-1 $21.95 



User Manual 



S7.95 



All Boards Add S5.00 Shipping 
Assembled Boards Available 
...Coil For Prices 



■FKLL PAMPHLLT AVAILABLE 
Call or write i 

niCRO-De^icn "' 

P O Box 748 
!* Manchaca, Texas 78652 
512-2820225 



.'S** L/sl of AdmtiMn on pag» 354 
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"The important thing 
is getting the 
message through." 



Program Listing 



Sfl REM THIS PROGRAM WAS DEVELOPED BY ALLAN S.JOFFE. PART OP IT 
WAS USED AS A DEMO PROGRAM CALLED MORSE RESOURCE WHICH WAS THEN 
SUBMITTED TO 80 MICROCOMPUTING. .. .AUGUST 1980 * 

108 REM CW PGM FOR LONG MESSAGES. AFTER EACH THREE LINES OF TEXT 
TYPE IN AN * AND WHEN PROMPT RETURNS CONTINUE TYPING NEXT 3 LINE 
S.THEN INSERT ANOTHER * AND CONTINUE. AT END OF FINAL LINE INS 
ERT AN i WHICH ACTS AS A TERMINATOR FOR MESSAGE. *** 

120 REM SO THAT A COMMA IN TEXT WILL NOT GIVE EXTRAS IGNORED MSG 
FIRST CHAi'ACTER OF EACH FIRST LINE OF TEXT MUST BE A ■ *•* 

140 REM >'1ST VERSION WITH ALL FEATURES***AND ADDING SPEED 
CONTROL At- ™e BEGINNING OF THE PROGRAM 8/1/80 ***•* 

145 CLS:PRINT "INSTRUCTIONS FIRST CHARACTER OF EACH MESSAGE HU 

ST BE A QUOTE SIGN. THEN TYPE IN MESSAGE. IF MESSAGE IS OVER T 
HREE PULT. LINES OF TEXT, INSERT AN ASTERISK * AT END OP LINE AND 

PRESS ENTER" 
147 PRINT:PRINT:PRINT"INSERT NEXT SECTION OF MESSAGE STARTING A 
GAIN WITH A QUOTE SIGN IF THIS IS FINAL PART OF MESSAGE END WI 
TH A i TERMINATOR CHARACTER ELSE USE AN ASTERISK TO PUT IN 
NEXT PART OF MESSAGE" 

158 P^INT: PRINT: PRINT "REPEAT IF NECESSARY, FINAL CHARACTER OF 
YOUR TOTAL MESSAGE MUSTBE THE FINAL TERMINATOR #" 
155 INPUT "TO START PROGRAM HIT ENTER";N 
160 CLStCLEAR 300:DEFINT A-Z 

200 INPUT "SET SPEED BY TYPING 10 OR 15 OR 20";L:IF L=10 THEN G- 
30 ELSE IF L- 15 THEN G=20 ELSE IF L=20 I'HEN G=10 
210 IF L- 10 OR L=15 OR L=20 GOTO 240 ELSE PRIOT "YOU HAVE ENTER 
ED AN INCORRECT SPEED" :FOR I = 1 TO 500:NEXr:GOTO 200:REH THIS 
PROTECTS AGAINST ERROR IN SPEED CHOICE 
240 X- 24000:REM START OF RAM BUFFER AREA 
260 CLS; INPUT "TYPE IN MESSAGE" ;AS 

280 IF AS="i" GOSUB 1660:REM EXAMPLE OF CANNED MESSAGE INSERTION 
300 LN- LEN{AS) 
320 FOR J- 1 TO LN 
340 CODES= MID$(AS,J,1) 
360 IF CODES-"*" GOTO 260 
380 IF CODES-"*" GOSUB 1640 
400 POKE X,ASC(CODES) 
420 X-X+1 
440 NEXT J 

480 FOR X = 24000 TO 25000:RBM BUFFER CAPACITY 1000 CHARACTERS 
500 A= PEEK(X) :PRINT CHRS(A}i 

520 IP A< 64 GOTO 1080: REM SPEEDS UP PGM EXECUTION 
540 REM FIRST PART OP LINE 1080 CONTROLS REPEAT OF LAST CHAR IP 
IT IS FOLLOWED BY A TYPED IN SPACE. MIDDLE DELAY LOOP CONTROLS 
SPACE BETWEEN WORDS IN MSG. 
560 IF A= 65 THEN GS""SLB" 
580 IP A=66 THEN GS-"LSSSE" 
600 IF A * 67 THEN GS="LSLSE" 
620 IF A « 68 THEN GS»"LSSE" 
640 IF A - 69 THEN GS="SE" 
660 IP A= 70 THEN GS= "SSLSE" 
680 IF A = 71 THEN GS-"LLSE" 

72 THEN GS" "SSSSE" 

73 THEN GS" "SSE" 

74 THEN GS" "SLLLE" 

75 THEN GS- "LSLE" 

76 THEN GS" "SLSSE" 

77 THEN GS= "LLE" 

78 THEN GS - "LSE" 



700 IP 
720 IF 
740 IP 
760 IF 
780 IF 
800 IF 
820 IP 
840 IF 
360 IF 



79 THEN GS= "LLLE" 

80 THEN GS" "SLLSB" 
^80 IP A - 81 THEN GS- "LLSLE" 
i*00 IF A - 82 THEN GS" "SLSE" 
920 IF A - 83 THEN G$ = "ESSE" 
940 IP A o 84 THEN GS - "LE" 

?■ * IF A - 85 THEN GS= "SSLE" 
izi IP A • 86 THEN GS= "SSSLE" 



Program conlinoes 



gram would operate on the &. 

Now proceed normaHy and your special 
message will be sent. You can retransmit 
the special message once it is in the buffer 
by hitting Enter, following directions, and 
hitting Enter once again. 

By restructuring the line numbers it is 
possible to insert a whole series of canned 
messages that may be recalled by entering 
the calling character of that particular mes- 
sage.' 

Speed 

Key in this short program: 

10FORX= TO 1000 
20 PRINT X. 
30 NEXT X 

Run this and time the program from start 
to finish. It runs in about 16 seconds- 

Now run the same program with the addi- 
tion of a new line 5: 5 DEFINT X. Run the pro- 
gram again. It should take about ten sec- 
onds, 35 percent faster than the first time. 

Line 5 defines the variables used so that 
they are treated as integers by the comput- 
er. This makes less processing work for the 
Basic interpreter and allows it to run the 
program taster. 

Speed is nice but the important thing is 
getting the message through. Sometimes 
speed is incompatible with that goal. 

InkeyS Meets the Buffer 

The program using INKEYS can also in- 
corporate the buffer feature. One problem 
with the instantaneous version of the pro- 
gram was that of error transmission: If you 
hit the wrong key, that character is instantly 
sent. Program Listing 2 shows the ap- 
proach to INKEY$ and a + buffer. 

DEFINT is used to speed program execu- 
tion. The # is the end-of-message termina- 
tor. As soon as you enter #, the message is 
sent. This gives you control of transmis- 
sion. 

The program sets the buffer size at about 
1000 characters, but you may set the size to 
your needs. 

The line that reads IF A$=':"THEN 
R = R - 1 allows you to correct a typing er- 
ror. When you type in each character, the 
next character is entered in the next numeri- 
cal buffer location by the R = R ■•- R expres- 
sion that follows each entry in the top of the 
program character list. If you mistype a char- 
acter, you can wipe it off the screen by using 
the backspace arrow, but this will not re- 
move the erroneous character from the buf- 
fer memory cell. If you enter a colon after 
you see an improper character entry, the 
program will reduce the R counter to one. 
Now if you type in the proper character, your 
transmission will t>e correct.! 
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Program 


continued 




1000 


IF A = 87 THEN G$= "SLLE" 




1020 


IF A = 88 THEN G$= "LSSLE" 




1040 


IF A = 89 THEN G$= "LSLLE" 




1060 


IF A = 90 THEN G$= "LLSSE" 




1080 


IF A= 32 THEN FOR W = 1 TO 50:NEXT W:NEXT X 




1100 


IF A = 48 THEN GS="LLLLLE" 




1120 


IF A = 35 THEN X= 24000 :GOTO 260 




1140 


IF A = 49 THEN G$= "SLLLLE" 




1160 


IP A = 50 THEN GS= "SSLLLE" 




1180 


IF A = 51 THEN G$= "SSSLLE" 




1200 


IF A = 52 THEN G$= "SSSSLE" 




1220 


IF A = 53 THEN G$= "SSSSSE" 




1240 


IF A = 54 THEN GS= "LSSSSE" 




1260 


IF A = 55 THEN GS= "LLSSSE" 




1280 


IF A = 56 THEN GS= "LLLSSE" 




1300 


IF A = 57 THEN G$= "LLLLSE" 




1320 


IF A = 44 THEN GS="LLSSLLE" iREH COMMA 




1340 


IF A = 46 THEN GS="SLSLSLE" iREM PERIOD 




1360 


IP A = 47 THEN GS= "LSSLSE'iREM / 




1380 


IF A = 63 THEN G$= "SSLLSSE" :REM ? 




1400 


LG = LEN(G$) 




1420 


FOB H= 1 TO LG 




1440 


XMTS=MIDS(G$,H,1) 




1460 


IF XMT$ ="S" GOSUB 15,80 




1480 


IP XMT$="L" GOSUB 1600 




1500 


IP XMT$="E" GOSUB 1620 




1520 


NEXT H,X 




1540 


END 




1580 


OUT 255,4;FOR TM = 1 TO G :NEXT TM:OUT 255,0iRETURN 




1600 


OUT 255,4:FOR TM= 1 TO 3*G:NEXT TM:OUT 255,0:RETURN 




1620 


FOR TM = 1 TO G :NEXT TM: RETURN 




1640 


INPUT "PRESS ENTER TO TRANSMIT MESSAGE" ; Z$ :RETURN 




1660 


A$ ="CQ CQ CQ CQ DE W3KBH W3KBM W3KBM K #" :RETURN:REM 


NOTE 


USE 


OF TERMINATOR IN THIS MESSAGE *** *** *** *** 




1 




IP 

y has 



ULTRA- II 



k 



ler^R 



ex.iu^lSSUPERBASIC^ 

has twice the capabilities of other 
DOS's at one half their price! 

• • $79.95 • • 

Absolutely the only NO-HANG DOS 
Absolutely the fastest copy -- will not 
create partial copies on full disketts 
Single or double density independence — 
order either 

Device routing, retains date after 
non power up reboot 
The only alphabetized directory with 
DATKD files 

Editor/Assemblerwith capability of direc- 
tory, kill, copy and source code recovery 
after reboot 

Multi/llndefeatable auto command 
Individualized slepping speeds for differ- 
ent drives 

CONTINL'K a basic prograpi after reboot 
High speed multidimensioh SORT built 
into SUPERBASIC 
Erase/Zero arrays with^ige comniand - 
No more Redim erTors^"'^_ ,| 
Fastest despacer for B'a:^ 'programs - 
in ram. no special file ne*6ed 
Global editor and string packer for Basic 
programs 

Chain basic programs, keei)ing current 
variable values 

Enhanced list commands - niulti lines 
listed 

Keyword cross reference and direct entry 
of graphics 

VERNON B. HESTER ^415 
,42403 Old Bridge Rd, • Cantoa iVil 48188 
(in;!) 397-31-26 



i 




OFF!! 
OR MORE ! 



Brand New, Top Quality, Exact Replacemen! Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life. They Are Delivered to Your Door 

Promptly lor Much Less Than Most Retail Stores 

•SPECIAL! BUY 10 and GET ONE FREE! 



TOUR PRINTER 



•ACK SIZt ffTAIL IIST' 



RADIO SHACK IPIll. If^ 
RADIO SHACK LPII, LPIV 
CENTHOMCS. MOOS 700 lo 703 
CENTRONICS 100, lOlA, 102, 

103.300.301,306.308,330, 

358. 398. 500. SOI. 503. 508, 

588, 620. 820 
CENTRONICS 704-705 
IBM -"SILVEH DOLIAR" Sys 

34. Sys 32 MDIA. Swies 

IM01M74, 5256, 3Z87. 3770. 

3771-3774,4874,5100,5103, 

5110. 5228.5256, 5320MOIA 
IBM -HARMONICA'/;" SERIES 

I MOD 4973/11. 3200, 32S9. 

MOD 2 
nLETYPE MOO 33. 28, 35, 37, 

3B, S8 
DIABLO Hrrypt II (M/SfllK) HI 

YIELD FITS 70 PRINTERS' 
QUME (FITS 80 PRINTER MODS) 
WANGM/S 5541W,WC. 5581. 

WD. 65B1W, 22B1W 
DEC '/? . 4oyo 
DEC V? . 60yD 
NEC SPIN WRITER 



one/fk 
3/pl 
3/pk 
3/[* 



l/pk 
5/pli 



3/pl 



10/ pk 

l/pk 

3/pk 
l/Bk 

3/pk 
3/pk 
4/pk 



13 9S/e»ft 
18.95/3 1* 
18 95/3 pk 
26 33/3 pt 



16.95 *a 
5.B0 u 



9 42 la 

2 40 ea 

9 31 aa 

IB 00/3 pk 
6.85 a 

17.77/3 pk 
20.12/3 pk 
23 40/3 cart 



YOUR WHOLESALE PRICE 



8.95/Rtlo»d nb. onty 18. 95 ea) 

11.95/3 I* 13.98 ea) 

11 95/3 pk (3.98 ea) 

17 55/3 pk 15.85 ea) 



13.95/Gi8i>t Can 
14.30/5 I* 



2D.B5/3 [k 

13 90/10 pk 

6.87 ea 

13.95/3 pk 
5 95 u 



113.95 ea) 
(2.98 ea) 



(6.95 ea) 

(1.39 ea) 

(6.87 ea) 

(4.65 ea) 
(5.95 ea) 



12.95/3 ik (4.32 ea) 

14.26/3 [* (4. 75 ea) 

23.60/4 pk [fa. ratoad (5. 90 eal 



SIZE 



500" .45' 
563" .45' 
563" .45' 
1" . 108' 



6/lB">210' 
9/16" »30' 



1/2" » 108' 



1/2". 36' 

5/18" . 

Hflh YiekC 

1/4" 1 310' 

5/16". 393' 

1/2" « 120' 
1/2" x 180' 
1/2" .51' 



COMMENTS 



Nyton Ind Inib 
Nylon JttBli 
Nylon Jtt ik 
Nylon Jtt BIk 
5 ml High SpMd 



Giinl Can 
Nylni Jel BIk 



Nykin J«I BIk 

Nytan Jfit Bk 

300.000 pkis imp. 

Mulbsinke Film 
Miitistnkt Filin 

DouUa Spool) 
Doubk Spools 
NykMi/Et Li>g Ufa 



CAT. ORDER # 



R-T3 
C-700 
C-700 

c-iro 



C-7045 
R-300 



C-360 

R-450 

C-511 

C-525 
C-550 

R-60fl 
R-644 

R-400 




TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY: C.O,D,(UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD, 
VOLUME DISCOUNTS:- 

20-50 PACKS 10% 

51-100 PACKS 15% 

■UNDER $20, ADD S5 HANDLING. 
"APPROX. RETAIL, PRICE VARIES. ^^q-^ 

ANCIE LABORATORIES 



3?IH BMmhBIW 

cmm fuk. MO w*a 



XI1'M&-BI»I|WhIi OC Lgull 

3ai-73;-2(Wi|M>i mdlduii 
no-bu-oMt iiumhii 



ADDRESS. 
CITY 



ANCIE Labo^alones 
9204 Bannnore Bivd 
College Pafk. WD 20740 



301 -345-6000 (Wasn DC Locall 
301 -792-2060163110 WD Local) 
800-638-0987 (Nalionall 



CAT# 



n Check Enclosed 

D C.O.D, 

D VISA 

a MASTER CHARGE 

ACCT. # (3-. 

EXP. DATE M' 

MIN. ORDER $20 

PRICES SUBJECT TO CHANGE 



.'So* L/st of Adr«nit»n on pag« 354 
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AEVIEW 



How can we keep them down on the farm after they've got their TRS-80? 



Spanning the Electronic Nation 



Dennis Bathory Kitsz 
Roxbury, VT 05669 

The MicroconnectJon 
Microperlpheral Corp. 
Mercer Island, WA 
$249 

Lynx 

Emtrol Systems, Inc. 

Lancaster, PA 

$249 

Tele;>hone Interface II 

Radio Shack 

Ft. Worth, TX 

$250 (RS232 board at $100 and Expansion 

Interface at $299 also required.) 



Be warned: The world of communica- 
tions is large; the TRS-80 is small. But 
once you've brought one to the other, your 
data can travel the breadth of the electronic 
nation. You won't stay down on the farm for 
long after that. 

The way the TRS-80 manipulates infor- 
mation is not much different than the way 
other computers do it, and so it can easily 
communicate with other machines. By con- 
verting data to a continuous stream of 
pulses, and using those pulses to change 
the pitch of audio tones, a powerful tele- 
phone connection to other computers is pos- 
sible. Streams of data are also used to com- 
municate directly with what are known as 
serial peripheral devices, including printers. 
This communication process has be- 
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come relatively standardized over the years. 
For example, a computer talks to a Teletype 
printer at 110 bits of information per sec- 
ond. This is called the baud rate. Standard 
baud rates run from a low of the Teletype's 
110 (there are lower nonstandard rates) to a 
high of 19,200. Telephone communication 
over ordinary voice lines is conducted at 
300 baud; special private (and more expen- 
sive) data lines can handle rates from 600 
baud and up. 

Other parts of data communications 
"protocol," as it is known, are the character 
code itself (usually the familiar ASCII, al- 
though there are obsolete formats and 
IBM's own EBCDIC), the number of start, 
stop and data bits, and a verification bit 
known as parity. 

The TRS-80 Model I is not outfitted with 
communications capabilities, but several 
companies, including Radio Shack, offer 
special hardware for serial transfer of infor- 
mation. These hardware additions come 
with a variety of capabilities and support. 
They are called modems, which stands tor 
modulator/demodulator. 

The Telephone Interface II from Radio 
Shack is an acoustic device; that is, the 
telephone handset fits into a pair of rubber 
cups which block out unwanted sounds and 
permit the Interface's speaker and micro- 
phone to join closely to the telephone's mi- 
crophone and earphone. The Interface re- 
quires RS-232C input. Simply stated, RS- 
232C is an industry standard definition of 
communications hardware according to 
voltages and polarities. The Radio Shack RS- 
232 board fits into the TRS-80 expansion box. 
The total hardware required to communi- 
cate with Radio Shack's hardware is the Ex- 



''Your data can travel the breadth 

of the electronic nation. You won't 

stay down on the farm for long after that." 



pansion Interface, RS-232 board, and tele- 
phone interface. 

The Microconnection, manufactured by 
the Microperipheral Corporation, is a dlrect- 
connect device. It comes with a modular 
plug to snap into a telephone outlet, rather 
than using audio coupling to the handset. It 
plugs directly into the edge card connector 
of either the keyboard unit or the expansion 
interface, and is complete as sold. 

The Lynx, made by Emtrol Systems, Inc., 
is also a complete direct-connect communi- 
cations box. Like The Microconnection, it is 
supplied with a cord and modular plug, and 
fastens to the keyboard or expansion inter- 
face. 

All three units come with familiar black- 
box power supplies. 

Advantages and Disadvantages 

None of these communications attach- 
ments is perfect, but for simple telephone 
applications, all are useful. Beyond that, 
the questions become more complicated. 

Most versatile of the three is the Radio 
Shack combination. It provides a full range 
of standard baud rates and other communi- 
cations parameters, as well as the best doc- 
umentation. It has the largest body of soft- 
ware{Radlo Shack's and others') among the 
three units. 

Unfortunately, it's expensive. An expan- 
sion interface is required to support an 
RS-232 board, and that in turn is required to 
run the Telephone Interface, Simple soft- 
ware Is provided, but full-featured commu- 
nication packages start at $50. The total tab 
can be higher than $650, not including the 
telephone bills. 

Next on the list is The Microconnection. 
Variable protocols are provided, but the 
baud rate is limited to a standard telephone 
rate of 300. It is the easiest to get up and 
running, and is provided with an excellent 
dumb terminal program and fine instruc- 
tions. Direct connection to the telephone 
line requires that you formally notify the 
phone company in some areas. The Micro- 
connection also provides a voice input for 
use in ham transmissions and other voice/ 
data combinations, and a standard RS-232 
output jack is included for talking to 
300-baud serial printers, etc. 

The available software pool for The Mi- 
croconnection was initially small, limited to 
that sold by Its manufacturer. Their more 
sophisticated software package, which is 
an additional $50, has some bugs and is far 
from crash-free. Now, however, other com- 
mercial communications software is be- 
coming available in forms modified for use 
by The Microconnection (sometimes at an 
additional charge). All told, the device and 
software is an attractive alternative if your 
goal is straightforward telephone commu- 



nication. 

Finally, the Lynx also provides variable 
protocols and the single telephone rate of 
300 baud. It too connects easily, but the in- 
structions are poorly written and the pro- 
gram was fragile and crashed often during 
use. It Is less sensitive to signals than either 
The Microconnection or Telephone Inter- 
face II, resulting in some garbled or lost 
data. It has no RS-232 output, limiting it ex- 
clusively to telephone use. 

Software written for the Radio Shack RS- 
232/Telephone Interface will generally work 
with the Lynx, because the Lynx is arranged 
to use the same output port number as the 
Radio Shack board. This results in an inter- 
esting problem— the Radio Shack board 
must be disconnected if the Lynx is to be 
used. Otherwise, confused signals and 
computer bus conflict will be the result, 
since both use ports 232, 233, 234, and 235, 
This means that if for any reason you have 
decided not to use the acoustically coupled 
Telephone Interface, but have nonetheless 
installed the Radio Shack RS-232 to drive a 
serial printer, you must not use it simulta- 
neously nor even have it connected when 
the Lynx is in place. This can be a serious 
drawback; keep a screwdriver handy. 

There Is little difference in performance 
between the direct-coupled Microconnec- 
tion and the acoustical Telephone Interface 
II. The sensitivity of the latter is quite good, 
and the rubber earcups protect the unit 
from extraneous sounds. Striking or bounc- 
ing the unit (or tripping over the phone cord, 
my favorite hobby) will cause some minor 
data loss. 

The Microconnection discriminates very 
well between noise and signals, giving er- 
ror-free data with most reasonable tele- 



phone situations. 

A Tale of Two Cities 

The only problem I had with the unit 
might be unique, but if you live in an ar-a 
where the quality of telephone service is not 
high, this tale will be of interest. The Micro- 
connection, as with all devices made to at- 
tach directly to the phone lines, has an FCC 
serial number which must be provided to 
the telephone company by the user along 
with notice that the communications device 
is In place. , 

Not wanting to get involvpd with our tele- 
phone company, which is '. crivate, strictly 
one-horse system, I conne .ted the device 
without notifying them. Alas, the send/re- 
ceive situation was impossible. A phone 
call to the modem's manufacturer resulted 
in a complete and courteous walk-through 
on how to increase the device's sensitivity, 
as well as a 3000-mile measurement of the 
signal loss from tiny Roxbury to bustling 
Seattle. It looked bad. Even with a tweaked 
Microconnection, the data was garbled 
much of the time. 

A hesitant phone call to the telephone 
company resulted in two service calls and a 
stiff lecture about the required notification 
due them of the device and its serial num- 
ber. But $20 worth of useless data calls lat- 
er, the modem was still not doing the job. 
The Microperipheral Corporation was very 
helpful, but claimed the telephone com- 
pany was at fault; the phone company and 
its Neanderthal engineers wanted to take 
The Microconnection for examination, 
claiming it must be at fault. Nothing doing, 
said I to the latter request. ■< 

For some days there was a stalemate, un- 
til the Telephone Interface 11 arrived. Oddly, 




The Connection compared in size to the Exatron Stringy-Floppy. 
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"But $20 worth of useless data calls later, 
the modem was still not doing the job." 



it was more sensitive than The Microcon- 
nectlon under these adverse conditions, 
but still the lost data was more than I w/as 
prepared to expect. 

Finaliy the phone company admitted the 



truth: In a typicai economy move, they had 
bought what they caited "ioading coils," at 
surplus, to balance the lines between Rox- 
bury and the home office eight miles to the 
north. These had not been installed, they 



said, because no brackets came with them, 
and both the coils and brackets were obso- 
lete. Perhaps in a year or two the situation 
would be corrected. 

The Public Service Commission then re- 




ine Oac/c panel of the Lynx has telephone connections, user pro- 
gramming switches, and originate answer switch. 



The front panel of the Lynx indicates carrier, and has voice 
data switch. 




TRS-80 PROGRAMS ON CASSETTE 

CLOAD Magazine for your Model I or III! 



Goleta. Calif. — You can get 7 or 8 programs on cassette, each month, 
thai CLOAD directly into your TRS-80 Model I or 111! 

A subscriber, loo engrossed in trying to save the world from invading 
aliens (March. 1981 issue) to give his name, stated, "I receive a 30 minute 
cassette by First Class Mail each month containing some of the best games 
and educational programs I have ever played. Some are even in machine 
language!"Another CLOAD subscriber. Claudine Cload. could now 
"fit the computer into her schedule" thanks to the utilities and occasional 
disk programs she received from CLOAD. She was writing about it to all 
of the people on her mailing list (November. 1979 issue). 
Gel the news firsthand. Get a subscription to CLOAD Magazine. 



by Clyde Cload. star reponer 



The Rne Print: 

Overseas rates slightly higher— 

please write for them. 
Back issues available— ask for our list.' 
TR&80 is a trademark of Tandy Corporation 
Califomia residents add 6^ to single copies 
and anthologies. Programs are for Level II 
I6K, Model III I6K , and occasionally for disks, 

•24 Level I back issues also available. 



PRICES 

I year subscription , 
6 month subscription 

Single copies 

Anthology-volume I 
Anthology- volume 2 



Mastercard/ Visa Welcome 




542.00 
523-00 

54,50 
5 10.00 
515.00 



'i.- Magazine Inc. RO, Box 1448, Santa Barbara, CA 93102 .502 (805) 962-6271 



©1961 
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"My monthly bill charges me an extra 
fifty cents for 'Miscellaneous Business Equipment.' " 



cetved a polite note. A few days later, phone 
company engineers and installers were 
standing outside my home in light snow, 
pondering the problem. 

At last those lines {the first private lines 
In Roxbury, a fact of which I was very proud) 
were switched with an older {and properly 
balanced) party-line set. All four party lines 
had to be dedicated to my single telephone, 
because there were no other options for the 
company. I received credit for the unsuc- 
cessful data calls— but 1 also received an 
installation bill for The Microconnection, 
even though I did the installation myself. 
My monthly bill charges me an extra fifty 
cents for "Miscellaneous Business Equip- 
ment." 

A writer from Canada tells me installa- 
tion of non-phone-company equipment is 
even harder there, and he has no desire to 
fight for the multiple permits needed. 

Back to the Evaluation 

By this time, the Lynx had arrived. With 
the new lines in operation, I expected no 

problems, but data was lost on long dls- 




The back panel of The Connection has microphone connecting screws, RS-232 output, 
power and telephone cables. 



COLOR COMPUTER OWNERS! 
CLOAD INC. ANNOUNCES 



CHROMASETTE MAGAZINE! 

A monthly magazine-on-cassette for your 
Extended BASIC Color TRS-SO! 



Goleta Caiitomia — With 
CHROMASSETTE 

Magazine. Color Com- 
puter owners can now enjoy 
the variety, economy, and 
easy entry of programs that 
CLOAD subscribers have 
enjoyed tor 3 years. 

CHROMASETTE 

Magazine gets rid of the 

, ,. , , . CHRdMASKITh MavaTiiu- in us I'nim- Siaif 

type in-and-edit blues by 

putting a rainbow of ready-to-load programs on cassette, and sending 
them to you by First Class Mail each month. Educalional. practical, 
utility, and game programs are delivered right to your mailbox. 




Put a rosy color in you and 
your computer's cheeks, 
stop reading these old 
cliches, and gel a subscrip- 
tion to CHROMASETTE 
Magazine. 

Please write for Foreign Rales and 
other info. 



$45.00 year. $25.00 6 months. $5.00 
single issue, or send a Blank Check 
and your account balance. Visa and 
MasterCard also accepted. 



Chromasette Magazine P.O. Box 1087 Santa Barbara, CA 93102 ^32 (805)963-1066 



^S»m List ot Ad¥»rtJamn on page 354 
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"The Microconnection is very compact, and created 
on two piggyback boards inside a small case." 




Inside the Telephone Interface II: holes and slot are for microphone and speaker, discon- 
nected in this photo. 



tance calls. The Microconnection and Tele- 
phone Interface II continued to work very 
well, so I conclude that the Lynx unit I re- 
ceived for evaluatlori was not as sensitive 
or discriminatfng in its signal reception. As 
evidenced by comments by those on the re- 
ceiving end, though, alt three units transmit 
exceptionally well, with no data loss. 

There are two potential problems with da- 
ta transmission, one which pertains to all 
modems, the other exclusively to the Tele- 
phone Interface II. The first difficulty is the 
way in which some long-distance telephone 
calls handle the audio. One side of the line 



dominates the signal, blanking out the au- 
dio from the other side. This makes two-way 
transmission impossible, and if the pro- 
gram being used depends on sensing a 
"carrier" tone at the far end to operate, it 
will freeze or report an error. The only solu- 
tion to this is to dial again and hope to get a 
line capable of simultaneous transmission 
of two signals. I have had this problem 
mostly during peak calling periods. 

The other problem is that the acoustic 
connection may overload newer electronic 
telephones, or the operation of the comput- 
er may Interfere with the expensive cordless 




The Lynx modem board shows loosely-spaced digital circuitry at top, compact audio cir- 
cuitry at bottom. 
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telephones being sold. A Radio Shack man- 
ager reports that the Telephone Interface II 
simply will not work with the electronic tele- 
phones in his area, where the phone com- 
pany is actively replacing its older electro- 
mechanical devices with sophisticated 
electronic ones- 

As for the cordless phones, the manager 
reports that, modem or not, even the pres- 
ence of an operating TRS-80 (which emits 
wide-band radio-frequency interference) 
will blot out the operation of any cordless 
phone in the vicinity. I have not had a 
chance to explore this, but recommend that 
readers with recent phone installations get 
an assurance from their Radio Shack man- 
ager that the equipment can be returned be- 
fore purchasing the complete RS-232/Tele- 
phone Interface setup. 

Inside 

The boards inside the three devices show 
clean work and high quality components. 
The Microconnection is very compact, and 
created on two piggyback boards inside a 
small case. Its circuit board is fiberglass, 
and the adjustment controls are stable, pre- 
cision devices. No circuit diagram is provid- 
ed with The Microconnection, making user 
adjustment (which is actually illegal with di- 
rect-connect phone devices anyway) impos- 
sible. Documentation of the hardware is 
weak, only briefly commenting on the useof 
the modem with serial devices and in voice/ 
data operation. User programming informa- 
tion is scanty, though the company will 
send it on request. 

The Telephone Interface II is also com- 
pactly designed, and all parts on its board 
are clearly labeled— a joy when trouble- 
shooting. The case is slim (only an inch 
thick), and color-coordinated with the rest 
of theTRS-80 system, A full circuit diagram, 
an extensive manual, and excellent descrip- 
tions of user programming are provided. 
Once again, Radio Shack provides the star 
documentation of the lot. 

My review copy of the Lynx is the only 
one of the three using a phenolic paper 
board, and its parts layout is not compact. 
Although the Lynx performs well, the wide 
spacing between parts, combined with a 
plastic case and the inexpensive circuit 
board material, make it a candidate for er- 
rors, and may explain the slight lack of relia- 
bility of this unit, (Later Lynx units have 
been produced with fiberglass boards, and 
reports indicate higher reliability,) The user 
documentation consists of a few illegible 
pages and a very brief description of the 
unit's operation. From my point of view, this 
documentation is entirely unsatisfactory. 

One feature common to all the units is 
the originate/answer option. When two mo- 
dems communicate, each must transmit at 




...AndmydadsaysGRAFTRAXSO 
does better grapmcs than anybody. 

Epson, 



You might say it's the head of its class. GRAFTRAX 80 
gives you the highest resolution dot matrix in the world 
— up to 120 dots per inch horizontally and 216 dots per 
inch vertically. Which makes our MX-80 and MX-80 
F/T work more like a plotter than a printer. 

And that's just for starters. 

GRAFTRAX 80 more than doubles the features avail- 
able in an Epson MX-80 or MX-80 F/T. For Instance, 
we've added nice little touches like an italic character 
set — which doubles the number of font types to 24. 
And with GRAFTRAX 80, you can change style, size 
and density anywhere in the line. And backspace the 
head. And use block graphics with any computer. And 
redefine all escape codes under software control. 

Up to now, you couldn't get some of these features at 
any price. With GRAFTRAX 80, you get 'em all. And 
more. Lots more. 



Best of all, we haven't forgotten all those people whc 
already own an MX-80 or MX-80 F/T. You own th( 
printer that set the standards all the others are follow 
ing. And you can install GRAFTRAX 80 PROMs your 
self, for less than $100. And make the best even better 

You can see why w 

say GRAFTRAX 80 i 

the head of its clas! 

There's nothing else i 

its class. 
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EPSON AMERICA, M 



3415 Kashiwa Street • Torrance, California 90505 • (213) 539-9140 



If you're looking for 

the best prices 
in the U.S.A. on 




MICROCOMPUTERS 

We have consistently offered the 
TRS-80 line at savings up to 20%. You 
can save up to $1500 by buying 
from Computer Discount of America. 



ATARI 

MICROCOMPUTERS 




We have the full line of ATARI per- 
sonal computers and systems. 
Model II 

26-4002 64K. 1 ctisc J33B5.00 

Model III 

?6-106l 4K level I $ 61000 

26-1062 16K. Level III j B45.00 

26-1066 48K. Level 11 2-dfive'RS-232 $2115.00 
Color Computer 

26-3001 4K S 3?goo 

26-3002 16K w^Exl Basic $ 499.00 

EPSON 

MX70 Printer S 375.00 

MX80 Primer $ 485,00 

MX80FT Printer J 639.00 

Our savings are as big on expansion 
interfaces, printers, diskettes, Apple 
Computers. OKIDATA Microline, 
C-ITOH Starwnter, Lexicon Modems 
— everything tor your computer. 
We have the largest inventory in the 
Northeast, and most models are in 
stock, for immediate delivery. 
Our full price catalog or a price 
quote IS as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Comouter 



»jPf<JTfTn 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480 
In New Jersey Call 201-728-8060 



"The Lynx, weakest of the three, stUI shows 
good circuit design and uses quality parts." 



a different pitch. The custom is to call one 
the originator of the call, the other the an- 
swer side of the call. The Microconnection 
did not have this feature on its first model 
(reviewed for this article), but the present 
version contains an answer mode. 

In sum, the units are well designed, using 
parts of high quality. Only the Radio Shack 
unit uses crystal control, although The Mi- 
croconnection provides signals well within 
standard tolerance through use of preci- 
sion resistors, capacitors, and integrated 
circuits. The Lynx, weakest of the three, still 
shows good circuit design and uses quality 
parts. 

What to Do with Them 

All these modems provide access to tele- 
phone communications. Among the most 
popular telephone uses Is connection to a 
large program and data base, such as The 
Source or Micronet. These services, for a 
fee, provide an enormous repertoire of pro- 
grams and information, including stock re- 
ports, powerful text editing programs, and 
substantial user storage. 

Using one of these services is like having 
a terminal on a large, powerful, time-shar- 
ing computer— which is exactly the case. 
The full computational and storage power 
of the machines is available to users of 
home computers like the TRS-80, Apple, 
etc.; by using a modem and a standard pro- 
tocol they are all capable of talking the 
same language. A TRS-80 becomes as pow- 
erful as a Control Data terminal. 

Other uses of the modems are to access 
free computer bulletin boards (a listing of 
over 250 is provided with The Microconnec- 
tion); exchange of original programs and in- 



formation; and accessing local time-shared 
computers. Local computers can provide a 
data base used by regional companies, 
meaning that engineers, scientists, sociolo- 
gists, and so forth, can continue their nor- 
mal work at home, far from their usual ter- 
minals. 

Banks now permit (and some are actively 
encouraging) banking at home; financial in- 
stitutions will feed updated Wall Street re- 
ports right to your living room or office. 
Western Union accepts mailgrams directly 
from the TRS-80 into a toll-free number. 

The future is being demonstrated in 
France: A program is being set up to provide 
all telephone customers with a data termi- 
nal to replace directory assistance. The 
telephone company suggests it will be fast- 
er and cost less than the present human op- 
erators. 

Modems capable of interfacing to the 
TRS-80 continue to appear. Each should be 
capable of error-free data transmission and 
reception, flexible user programming, and 
should be supported by a body of quality 
software. The Telephone Interface II, The 
Microconnection, and the Lynx are all up to 
this challenge. 

The Telephone Interface II, a Radio 
Shack product, can be expected to have 
continued support from both that company 
and independent software authors. The Mi- 
croconnection already has fairly good sup- 
port available for it, Including modifications 
to Radio Shack and other communications 
packages. The Lynx, along with its other 
weaknesses, has little more than manufac- 
turer support at this writing, although most 
communication programs written for the 
Radio Shack modem will work with it.B 




The Connection has precision trimmer controls (at top), and piggyback Doara connector 
(in center). 
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A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit for desired 
results 



A complete operational 

manual supplied 
comparable to I.B.M/s 

E.C.A.P.- Program 
•A.C. Analysis Program 

X 749. 95 

•DC. Analysis Program 

W9.P5 



To Older Wrilr 

G ft L Software Enterp. 

2304 N. 1st. Street 

Upland. CA 917S6 



Do Not Send Cash in the Mail 



I IRS80'isaU-adfmaikullheTan<ly(orp F. L-A P I'.a irddemarknf iniem^lio 
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PUBLICATIONS for the TRS-80' Model III 

Myttsry of the ROM Mystsry o* the DISKETTE 

Mystery of ths DOS $19.95 each 

Must additions to the computer library of the serious 
programmer as well as the casually interested. Written 
in a technical, yet easy-to-read and understandable style. 
Each book Includes: 

• detailed tables of contents and indexes, alphabetical 
and numerical tables with numerous cross reterences. 

• register setup going mlo routines 

• register results coming out of routines. 

• detailed explanations on all roulines, structures, 
codes, etc., and not just a few ambiguous comments. 

• Numerous summaries tor ease of book use. 

Special ... all three $49.95 
SORT/CMD 

• multi-key {to 14 fields). Multi-tag (to 14 more fields) 

• sort any combination of variable type 

• inlegrates easily into any existing program 

$1 9.95 each Disk or non-disk. Model I or III. 32K or 48K 

PATCHES 

to allow operation of many Model 1 programs on the Model III' 

• LM OFFSET/CMD. Superzap/CMD^ 

• RSM 20/CMD 10K. 32K, 48K^ ■ ■ , 

• Big Five Software Games (all games)' 

$5.95 each Many more . . send for brochure! 

DISK DIRECTORY INDEX PROGRAM (Model m only) 

• tJaintam a master directory listing and file all diskettes. 
" Index size limited only by diskette space available 

and number of diskettes on which the index will be 
maintained. 

• Summary by tile name, diskette, or extension. 

Direct/BAS $14.95 

DIrect/CMD $24.95 (enhanced, more powerful, faster) 



Send check or money order (Kansas residents 
add 3% sales tax) to: Twenty-First Century Software 
1607 North Cochran Hutchinson. Kansas 67501 
Call 316 663-1047 for additional mtormaticn. 




Hegisteied itademarks oi ptoducis of Tandy Coip -Appd-ar 
'Small Syslems Software 'Big ^'ve Software Company 
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GENERAL 



Why most compilers fail and what can be done about it. 



A Macroprocessor for 
Basic— Part III 



J. Alan Olmstead 

J. Olmstead Financial Engineering Systems 
3843 West St.. Moritz Lane 
Phoenix. AZ 85023 



Computer optimizaliqn efforts cannot 
stop at producing Basic programs tast- 
er and with less programming manpower. 
Programming time may in fact be the least 
expensive portion of computer operations. 
Programming is a capital investment rather 
than an operating expense— the dollar 
value representing programming time is 
spent only once; modifications and exten- 
sions to the original program are merely 
add-ons to that original effort. But the pro- 
gram is run continuously; any inefficiencies 
built into it, or built intothe computer or pro- 
gramming language used, are expenses in- 
curred repeatedly for the program's life. 

Basic is the easiest high-level language 
to learn and to use ever designed. But it ex- 
acts a high price for that convenience every 
time a Basic program runs, 

Basic Inefficiencies 

The first thing to remember about Basic 
is that it doesn't exist, Basic is a syntactical 
concept that is applied in as many differ- 
ent ways as the various writers of Basic 
interpreter programs. Whether fixed in ROM 
or loaded from disk, the Basic Interpreter 
runs the computer, never the Basic pro- 
gram. Accordingly, one must always think 
and speak in terms of a particular Inter- 
preter. Several of the most common con- 
temporary interpreters include the North- 
star Horizon, IBM's late 5100 series, and 
Microsoft's TRS-80 Model I Basic, licensed 
to Radio Shack, 

Every interpreter has its own character- 
istics and bugs, but alt share underlying 
similarities. Individual characteristics do 
not promote an understanding of the prob- 
lems involved in optimizing a computer pro- 
grammed in Basic, 

Basic programs are not really programs 
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at ail, but rather, data files, A real computer 
program takes control of the computer's 
registers and is responsible for their suc- 
cessful manipulation. Basic programs have 
no way to take that control, which is re- 
stricted to interpreters, assemblers and 
compilers. 

The Interpreter 

A Basic program, considered as a data 
file, is a variable-length, record-sequential, 
memory-resident data file, In any sequential 
file, the first record is read first, the second 
is read second, and so on. The first line in a 
Basic program is always the start of the pro- 
gram, whereas an Assembly language pro- 
gram can begin execution at any chosen ad- 
dress. 

In addition to the Basic command line, 
there must be next-fine pointers to help 
distinguish between the logical and the 
physical next line. Table 1 illustrates the dif- 
ference between the logical next line versus 
the physical next line pointers. 

In Method 1, subfield a is the line number 
of the Basic command line, compressed in- 
to machine code and composing two hexa- 
decimal bytes of memory. Subfield b is the 
Basic command line proper, with the Basic 
command words compressed into single- 
byte codes between decimal 128-255 for 
space economy. Subfield c is the end-of- 
record mark. Subfield d is the next-record- 
location pointer. 

in Method 2, subfield a is the line number, 
but subfield b is the length of the current 
Basic command line. It is shown here as 
two bytes, but is frequently restricted to one 
byte and, therefore, a maximum line iength 
of 255 characters. Fields c and d are the 
same as in Method 1. 

When the program is first loaded into 
memory, the lines are usually physically 
and logically sequential from low memory 
to high memory. But, if a line should be edit- 
ed and accordingly made shorter or longer, 
it may no longer fit. If a new line is inserted, 
it definitely will not fit— interpreters do not 
shift the rest of the program upwards to 
make room. Instead, they append the new 
line onto the end of the program and adjust 
the next-record pointers of the previous 



and next lines to reflect the change. In 
some Basics, a periodic recompression of 
memory may take place. In others, when the 
end of memory is reached the interpreter 
flashes an ?0M error message. However, 
after saving and reloading the program, pro- 
gramming may continue for many more 
new lines. 

After editing, the physical lines are no 
longer logically sequential. In some Basics, 
the lines may not be physically reordered 
even after saving the program, unless the 
ASCII mode is requested, but many sys- 
tems do not offer the ASCII option. The pro- 
gram remains a mixed-up hodge-podge to 
be sorted by the interpreter. 

The physical and logical sequence is the 
same at load time for most lines; those con- 
taining GOTO, GOSUB, Then, Else, Resume 
and Return are exceptions, however. When 
the interpreter encounters these com- 
mands, it must abandon the next-record 
pointers and use some other method of 
locating the logical next record. Two meth- 
ods used to accomplish this are the sequen- 
tial and the "tree-structured" search for the 
named line number. 

The sequential search is the most unbe- 
lievable because it causes the interpreter 
program to begin at the physical beginning 
of the program and search in physical rec- 
ord sequence until the named record is 
found. Then program execution begins 
again. Even at high speeds, this method im- 
poses such a large time penalty on the user 
that he Is forced to revert to bad program- 
ming practices for economy. 

The use of independent subroutines 
called by GOSUB commands saves much 
valuable space and programming time dur- 
ing program debugging. Since the average 
commercial applications program will con- 
tain between 30-90 such subroutines, the 
sequential subroutine search procedure 
can reduce program execution speed by 75 
percent. 

Incredible as it may seem, the TRS-80 
Model I disk drives, with a transfer rate of 
only 12,500 bytes per second, are faster 
than main memory, which is measured in 
microseconds. This is true only under the 
Basic interpreter, and particularly during 



"Basic is the easiest fiigh-level 
language to learn and to use ever designed." 



execution of programs containing large 
numbers of subroutines. 

A "tree-structured" search for the first 
line of a subroutine is somewhat faster, but 
not enough to make the point inapplicable. 
For example, if the largest magnitude of 
line number was 9999, a table of addresses 
of the even-thousand line numbers would 
take only 20 bytes. If each of those line 
pointers in turn pointed to a table of ad- 
dresses of the even one-hundred line num- 
bers, the total sizeof the table would still be 
only 220 bytes, but the interpreter would 
always be within an average of five lines of 
the desired line number (assuming a line 
number increment of ten) after two table 
look-ups. The tree-structured search tech- 
nique is vastly superior to the straight se- 
quential search, but it is not fast enough to 
make a significant difference when at- 
tempting to optimize the computer's perfor- 
mance overall. 

These two illustrations identify signifi- 
cant sources of inefficiency in Basic pro- 
grams. The need (or record management in- 
duces an inefficiency that accumulates 
during program execution. Since subrou- 
tines are executed repeatedly, the next- 
record lookup inefficiency tends to accu- 
mulate in geometric magnitudes. 

A compiler locates a source language 
record and generates from it the machine 
executable code. If the resulting program 
passes through a given line any number of 
times, the line is merely executed; compila- 
tion is performed only once. The interpreter 
is made up of two general groups of subrou- 
tines; the "parsing" logic and the execution 
logic. The term parsing refers to the struc- 
tural analysis of a series of symbols that 
collectively convey a complex concept. The 
Basic parser breaks the command line 
down to determine which of its precoded 
subroutines should be executed in what 
order. This process is quite lime consum- 
ing; each line must be reparsed every time it 
is executed. 

Not only math applications suffer these 
inefficiencies; they are quite common in 
any byte-manipulating applications, such 
as word processing. 

How Data Is Stored 

An Assembly language programmer 
usually maps out a section of memory for 
data. During program execution, the data 
remains in that location. Most Basic inter- 
preters follow this pattern. Both explicit and 
implicit dimensioning cause a section of 
memory to be mapped out. For this reason, 
an implicitly dimensioned variable cannot 
be dimensioned again to a longer length. 

When a Basic program names data, it 
does so by assigning an ASCII name, such 



as A$ or A. When the data name is encoun- 
tered in the Basic program, the interpreter 
consults a data name table for a match and 
inserts new names if none is found. Along 
with the name, the interpreter stores the 
length of the data and the location in mem- 
ory where storage space has been found. If 
the data name is merely being DIMen- 
sioned, all the data-name table information 
is set up except the data address, because 
there is no data to address until an assign- 
ment (A$ = "DATA") is made. 

Numeric data is handled differently; for 
integer data, for example, the address entry 
in the table is the same number of bytes as 
would be needed to store the data itself. 
The functions are interchanged and the ad- 
dress portion of the table is initialized to 

'Trte need for record 

management induces an 

inefficiency that 

accumulates during 

program execution." 

zeros, which means that the data name is 
equal to the number zero. When a value is 
assigned ("A = 23"), the address portion of 
the table is changed to reflect the value, not 
an address. When a string data assignment 
is made, memory space is found, the data is 
stored, and the address bytes are updated 
to reflect the address of the data. 

A particularly good design job is 
reflected in Microsoft's use of the space 
taken up by the data literal as the same 
space for the data. Ttius, the only result of 
the command A$ = "DATA" is that the table 
entry of A$ is updated to reflect the location 
of the D in DATA. The method is highly effi- 
cient for small memory-sized computers. 

Time-dependent functions if possible at 
all are possible only by rigging the TRS-80 
with cute tricks to get by. 

Typists must constantly watch the 
screen to ascertain that their keystrokes 
are not being ignored by the interpreter's ar- 
bitrary decision to value space over time. If 
control is ever returned to the interpreter, 
the communications service routine will 
usually not get it back in time to service the 
I/O port. 

The TRS-80 Model I computer has out- 
grown the Basic interpreter. 

Today nearly every conceivable peripher- 
al device is being interfaced to the world's 
most successful computer. In most cases, 
however, special Assembly language soft- 
ware must be acquired to access the pe- 
ripheral through the USR function. 



If the trend away from Basic (while pre- 
tending to be programming in Basic) con- 
tinues, sooner or later someone must ask, 
why bother with it at all? There is one very 
good reason: Forcommercial and business- 
oriented applications, it is agreat language 
to use, delivering cost-per-line economy not 
possible with any other language. To im- 
prove the power of Basic while remaining as 
simple as Basic, we need a Basic compiler: 
a program that will accept Basic— even in- 
terpreter Basic— as a source, and create a 
pure Assembly language program from it. 

Why Basle Compilers Fail | 

Even a working Basic compiler fails if it ' 
restricts the programmer's capabilities to 
those functions that are possible only in 
Basic. There are specific reasons for com- 
piler failure when their functions are re- 
stricted to translation of Basic. All the char- 
acteristics of Basic which we have identi- 
fied as inefficient derived because a Basic 
program is a data file rather than a real pro- 
gram; and that fact continues to dominate 
any version of Basic interpreter. To the ex- 
tent that a compiler attempts to emulate an 
interpreter, the chances of successful 
operation of the compiled output are so 
slim as to warrant the prediction that the 
compiler must, inevFtably, fail. 

What is meant by the idea of emulating a 
compiler, versus being a real compiler? Out- 
put from a compiler is a computer program 
in every sense; it takes control of the com- 
puter's registers, and the responsibility for 
their successful manipulation. The regis- 
ters may contain only valid memory ad- 
dresses, modifiers of memory addresses, 
and one or two bytes of data currently being 
manipulated. 

When an Assembly language program 
says "GOTO 1000," it abruptly alters the 
contents of the program counter, which is 
the register pointing to the address of 
the next operation command to be execut- -i 
ed. When the program says 'A$ = "DATA" ', 
it is identifying the left-most byte addresses 
of the sending and receiving fields in prep- 
aration for an extended move. These are 
precise commands, meaning exactly cor- 
rect, every time. 

That a compiler works at all has always 
been a small miracle. The reason the Baste 
interpreter is able to accomplish program 
execution tasks from such general pro- 
gramming statements is that it enjoys the ■■ 
advantage of having both program instruc- 
tion and user's data at the same time. If pro- 
gram instruction is not precise, the data 
can be examined to fill in the gaps. By con- 
trast, compilers never have the user's data 
to provide clarity. Given the precision of the 
Assembly language program, detailed to 
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HOW LOW 

Can we Go?l 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs exparxJ memory in TRS-80' l/ll/lll 
and Color Computers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conversion instructions for TRS-80' I, 

Why pay more. . .we slock the right parts 
at the right price. 



l41Sl 5M-0eM.!< 



BOX 2355, OAKLAND MRPORT, CA 94614 



^75 



COMPILER 
WORKSTATION 

TRS-BO Model I and III 



Your BASIC program development 
could go faster... 

EDIT: Full Screen BASIC eOiloi with lioaimg cursor and auto- 
repeal Mpre iriar 30 commands ana (uociions let you var- 
iously lin'd. ctiarge. losen. delete replace, replicate, copy, 
move or oosilion BASIC rext al me cnarader. slrmg line or 
L'lock level OeveiopeainBrrtarriBySoultierrSotlware Modi 
III StO 00 + I 50 shipping 

PACKER: (Collage Soltwarei Eflitirig lool will unpack snorten, 
-fipack. renumber all or part ot your BASIC lexl The UNPACK 
seijmeni is very useful wtien preparing BASIC source pro- 
grams loi compilalion Dy ACCEL2 Mofl UN $29 95 + 1 00 
shipping 

Then your BASIC program 
' could go faster... 

ACCELZ: Compiler lor TRS-80 MoO I Mod ill Disk BASIC New 
tunclional improvemenis in place to give more easeol-use. 
jmcker compilation of large programs better cbainmg ot com- 
piled and non-compiled programs Size readout helps you 
monitor code growth during compilation REM NOABRAV option 
lets you use vanaBle-bound arrays Prolessionals note Com- 
prehensive instructions Show how to organize your compiled 
programs for resale on tape. ES/F water or disk No royalties' 

jDeveloped in Britain by Southern Sotiware Specily Mod lor ill 

S688 95-fS2 00 shipping 

TSWE: Writes compiler oulpul to independent SYSTEM tape 
$9 95-(-$1 00 shipping 

EXEC: Cohimand-list Processor tor TRS-80 Mod I Prepare 
execute, pass as many as nine parameters to lists ol TRSDOS 
or NEWDOS commands ana/or BASIC Statements. Simplifies 
repetitive procedures such as power-up sequences, hie set- 
ups, etc CompatiOle wttti ACCEL2 compiler disk output 
Developed in Britain by Southern Sotiware $22 tiO + $^ 00 
shipping y- 

m '^''^ 

M Allen Gelder Sottwars 
M/C, VISA m Box 117Z1 Main Post OHice 
CA add 6% tV San Francisco, CA 94101 

ft^'i (415) 387-3131 



TRS-80, TflSDOS tm Radio Shack ES/F tm Exatron 



"In the context of compilers, 

optimized code is a term 

meaning the opposite of what it says. 



the last bit of the last byte, the chance of 
failure is a statistical certainty if the com- 
piler attempts to treat the Basic program in 
the same manner as did the interpreter. 

The Basic interpreter language available 
to the programmer contains no command 
words or symbols for conveying more pre- 
cise information. The compiler can do only 
two things: It can optimize its code, or it can 
simply take a stab and hope everything 
comes out all right. 

In the context of compilers, optimized 
code is a term meaning the opposite of 
what it says. The optimizing compiler 
throws in everything it can get hold of in 
order to be prepared for the coming on- 
slaught of user's data. It is not unusual for a 
compiler manual to state minimum equip- 
ment configuration requirements of at least 
128K. 

Some of this kind of optimization is in- 
evitable in all compilers (the Jofes Meta- 
Basic Compiler also has its share of It). As 
long as the programmer's source code re- 
mains insufficiently precise, the only alter- 
native is to include partial coding and hope 
it will be adequate. 

Two examples of this include numeric 
and string data. With an interpreter, you can 
define two integers, then divide them, and 
still end up with an integer result. The inter- 
preter does not tell the programmer that it 
sneaked in an intermediate stage of single 
or double-precision format In order to com- 
plete the division stage of the computation 
successfully. After compilation, the pro- 
gra.Ti falls. 

It fails because the compiler emulates 
the interpreter on the assumption that the 
evaluation of the arguments would take 
place when the data was presented. The 
compiler did not maintain a table of data 
types and consult that table for error- 
checking when the division command was 
encountered. As a result, the wrong code 
was included in the compiled output. 

With string data, the Basic interpreter 
program could perform input and output op- 
erations to and from data arrays at will. 
After compilation, the results are "unspe- 
cified," meaning, "Gee, guys, we don't 
know what it's going to do!" When the Print 
or LPRINT command is encountered by the 
compiler, it calls the wrong kind of code, to 
handle the transfer of array data instead of 
string data. 

These problems are not insurmountable, 
but it is unlikely that the many ways to cor- 
rect the problem will be contained in a 
single compiler program within a 48K user 
system, nor will they be discovered without 
extensive field testing. 

How could a redesign of compilers pro- 
ceed? The first step is to recognize the in- 



herent limitations of any compiler and not 
try to be all things to all people. More space 
in the compiler should be spent performing 
diagnostic analysis and using listing notes 
to indicate where potential problems may 
be shaping up. This space can be created 
by breaking the compiler up into several 
programs, each segment handling analysis 
of the same kind, then automatically chain- 
ing to the next segment without operator in- 
tervention. 

The second step should deal with the 
problem of lack of precision by giving the 
programmer the necessary tools by modify- 
ing the Basic language itself. A small exam- 
ple would be initializing the number of 
decimal points In precision variables: "A 
DEFBCD 3(10,10)" means "define a numeric 
variable called "A" in binary coded decimal 
format, but initialize it with three decimal 
positions; and make It an array of 10 vertical 
and 10 horizontal elements." 

MetaBasic 

A more precise (and vastly more flexible) 
Basic is what the Jofes compiler calls fvleta- 
Basic. It is an intermediary into Assembly 
language, a half-way house for program- 
mers. 

First, it may be used in the original pro- 
gram instead of conventional Basic. Some 
of the commands are the same (GOTO, GO- 
SUB), some are similar (Open, Close) and 
some are completely different. For example, 
the MetaBasic command 'FLOOD A$ WITH 
255 " " is immediately obvious as an alter- 
native to 'A$ = STRING$(255," ")'. 

Second, in programs that already exist 
for which manual rewriting would be a 
labor-intensive task, the MetaBasic Pre- 
compiler converts interpreter Basic into 
MetaBasic automatically. In the process, it 
shows the default conditions it added as ex- 
press arguments. By reading the printed 
listing, which corresponds on a line-num- 
ber-tag basis to the original, the program- 
mer can see immediately where the com- 
piler may have gone wrong in its interpre- 
tation of the intended result. 

Finally, for the growing body of program- 
mers who use Basic for its economy and 
not because it is their only language, Meta- 
Basic will accept the full line of machine 
language commands. 

Compilers fail because they try to do too 
much and end up delivering too little. 
Perhaps it would be more accurate to say 
that they fail because they try to do too 
much of the wrong kind of functions. By 
changing priorities on what a- compiler 
should be expected to do, a Basic compiler 
can in fact deliver far more than was 
previously anticipated.! 

Next month: more on MetaBasic. 
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TRS-80® SOFTWARE TRS-80® 



MODEL III SOFTWARE 

26-1563 Scripsit I & 111 S79.00 

26-1566 Visicalc 1 S83.00 

26-1567 Visicalc III S83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Moil List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36,00 

26-3051 Quoser $36,00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wors $36.00 

26-3059 Backgammon -....$27.00 

26-3152 Typing Tutor $27.00 




MODEL II SOFTWARE 

26-4530 Scnpsil II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 Generol Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26 4504 Accts Receivable $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List 11 $108.00 

26-4701 Fortran $270.00 

26 4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-3511 Civil Eng $22.50 

26-3513 Aviation $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Moth Drill $13.50 

26 3515 Games ^$13.50 



ORDER TOLL freeI-800-841-0860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT # 4A 
115 C. SECOND AVE. S.W. 

CAIRO, GEORGIA 31728 

(912) 377-7120 Ga. Phone No. 

TVS-M 1* Tegi*l*T«l ttwl«narl> of the Tandy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Moslercharge Welcomed 



MiCRg mfli^flEEiriEI^T SVSTEinS, il^C." 



.'Sm List ot Adnftisara on pagm 354 
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For Your TRS-80' 
Mod I & III 

Mod I -$125.00 

®1980 by David Welsh 

Mod III -$175.00 

®1981 by David Welsh 

There Is Nothing 
Even Close® 

The word processing system that is 
easy for the novices but has the power 
for professionals. 

Most used cormment when anybody talks about Lazy Writer Is " Easy to Use". 
Other Comments: 

• "What has moved the Mod I up to at least a trIple-A league, if not the true big leagues of v^/ritinq 
is a modest priced v^ord processer called Lazy Writer," 

• "All functions of Lazy Writer are weW covered in its documentation, v>/hich ranks among the best 
i've seen," 

Creative Computing, July 1981 

• "Nov^ that I have a chance to use and compare Lazy Writer with my other tv^/o popular word 
processing programs. I am sorry that I was not aware of Lazy Writer some time ago." 

C.H., St Louis, MO 



For those of you who requested 

a spelling checker to use with Lazy Writer® 

Now available from 



'515 



SOFT SECTOR MARKETINQ, 

INCORPORATED 

MICRO PROOF 

Product of Cornucopia Software 

• EASY TO USE 

• 5q,000 WORD VOCABULARY & EXPANDABLE 

• RECOGNIZES PREFIXES & SUFFIXES 

• REQUIRES ONLY 32K OF MEMORY & DISK 

• ^AFFORDABLE & AVAILABLE IN THREE FORMS fully independent program to identify errors- 
K independent program to identify and correct errors or with a conversion program that 

y^ill permit MICRO PROOF to operate from within. 



New Lower Price! Was Now Only 

TRS-MOD I or III Version $125.00 $89.00 

Correcting Feature $60.00 
Word Processing Corv 

version for Lazy Writer* $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 



'tAtMtCantj 



CO.D. - certified check MO. or cash only. Most orders shipped next day. All ordersmust hove shipping included 
Hiease odd 2% or S2.50. whichever is highef for shipping. Michigan resident^ please add4% tax. Add extra $1 50 
for CO.D. Personal checks take 3 weeks to clear. All hardware must be prepaid. No hardware shipped collect 
Out of the country orders add $10,00 extra shipping. ^^ 

TRSSO IS a ptcxauct of Radio Shack, divisior of me Toncf/ Corporation 



VISA' 
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By Larry Ashmun 



MOD III with Sound 

irS HERE! 

"Ifs more than just another 
machine language arcade 
game." 

irS AN EXPERIENCE 

Super Fast 
1 or 2 Player 

MOD III ONLY -^■ 

Tape version $19.95 

Disk Version Coming Soon 




SEE OUR EXPANDED AD 

IN 80 US JOURNAL 

for more product information. 




Larry Ashmun Is Back . , . 
and Brings You . . . 

SUPER VADERS 

With Souna - Mod i &. Mod III 

'1981 Soft Sooror MarVeting, ^nc 

The third in the evolution of the 
most popjior space invaders gomes 
for Tandy machines. Now for 1 or 2 
players. 10 levels of play. 



Cassette (goes to disl<) 



$19.95 



Ask for upgrade mtofmation for TRS-Super 
InvacJers or invaders- Plus. 



MOD III ROM 
COMMENTED 

»1<)81 Son Sector MarVelir^g, inc 

Only $22.50 
+S2.50 Shipping & Handling 

Not just a rehash of old information, 
but detailed comments on tt>e ROMS 
in the latest machine from Tandy. 

Now in Its 3rd printing! 
Over 150 Pages! 



TAPE COPY 2 

'1981 Sort Sector MorvettDg. inc 

This program will load most any TT?S-80 
500 Boud system tape (storvSard) Mod ) 
speed) and load it into merrxjry and save 
il at either 500 or 1 500 8oud on the Mod m 
NO KNOWIEDGE OF MACHINE LANGUAGE 
NEEDED Now it gives you a way to Dock 
up a machine language program ftiat 
loads at fh>e lower speed arxl makes 
cassette loading into your new Mod IN a 
much (aster and rrxxe reliable process. 
Works with Mod 1' & Mod ill 



$14.95 



MASTER CONTROL 

For the Color Machine 

M981 Soft Sector Marketing, Inc. 
Requires 16K 



HilaaiaailRBaBB ^ 

MirKtlfliiJBnaGitiDae 

^iritii »■ B B « a B H Ba ffi 

HaaaadBBBBHBoi 



looiji our other Color Machine programs! 




FEATURES: 
1 50 preprogrannmed comnnand keys, standard and 

extended commands, 

2. Direct control of motor, trace, and audio, 

3. [Relocatable mochine code. 

4. Automatic line numbering, starting point and incre- 
ment alterable. 

5. Programmable custom key. 

6. Direct Run button 

7 Keyboard overlay for easy program use. 

8 Easy entry of entire commands into the computer and 
display. 

9. Full instruction manual. 

Cassette ^24.95 



Outside Michigan 
Order Line Only 

800-521-6504 



SOFT SECTOR MARKETING. 

INCORPORATED 

6250 MiddJebelt 
Garden City, Michigan 48135 



Questions & 
Michigan Orders 

313-425-4020 



TUTORIAL 



Which one is best for you? 



All About Sorts— Part II 



Len Gorney 

Box 91 R.D. 5 

Clarks Summit, PA 18411 



The Shetl sort technique was initially 
developed by Sheil and tater expanded 
by R M. Frank and R.B. Lazarus (see 
bibliography). This is an interchange sort- 
ing technique where several passes 
through the original list of items reduces it 
to a more nearly sorted list. The final pass 
usually reverts to that of a bubble sort, 
since it is the bubble sort which can most 
quicklv handle nearly sorted items. 

A particularly vexing problem connected 
with the Sheil sort involves the parameter 
which determines the distance (D) between 
items to be compared. In our previous sort- 
ing examples, we always compared adja- 
cent items or a single item with every other 
item in the list. 

The Shell sort, on the other hand, choos- 
es some distance (D) between items, and 
these two items are then compared. To 
avoid becoming involved with the mathe- 
matics, we will simply calculate the initial 
value of the distance parameter as being 
equal to one-half the number of items to be 
sorted; that is, D = N/2. (Lorin offers a read- 
able examination of the Shell sort, as well 
as a method for calculating the distance pa- 
rameter.) 

To accurately determine the maximum, 
average and minimum number of compari- 
sons and exchanges involved in a Shell 
sort, a lot ol information must be available 
regarding the distance parameter value. It 
is this single parameter which determines 
the overall effectiveness of the Shell sort. 

Program Listing 1 and Table 1 arethe pro- 
gran>med routine and sample outputs tor 
our Shell sort routine. Tracing the items as 
they are sorted may clear any misconcep- 
tions regarding the actual operation of this 
technique. 

Quick Sort 

One reason (or the slowness of the bub- 
ble sort is the many comparisons and ex- 
changes made between adjacent items. To 
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speed up the sorting process, the distance 
between compared items should be in- 
creased to a value whereby comparisons 
and exchanges are made between items 
some distance apart. The quick son proce- 
dure uses this technique to offer a speedier 
sorting algorithm. The distance parameter 
(D) is also used by the Shell sort. 

The quick sort routine begins with a sim- 
ple operation and proceeds by using stacks 
to sort the items. Let us begin with the se- 
lection of what isreferred to as the pivot val- 
ue of the quick sort sorting technique. 

The quick sort routine initially estimates 
the median value of the items to be sorted. 
Based on the median value, the list is bro- 
ken into two groups: one group contains 
those keys which are less than the median 
value while the other group consists of 
those keys which are greater than the me- 
dian value. The median value is placed t>e- 
tween two groups. 

For example, the following list is initially 
broken into two groups by taking the first 
key value as the median of the keys con- 
tained in the list. This list— 5 2 7 8 13 7— 
will be used as our list of items to be sorted. 
The assumed median value will be the value 
given as the first key in the list, the value 
five. The original list is now broken into two 
groups: the left group containing keys less 
than the assumed median; and the right 
group consisting of keys greater than the 
median, 2 1 3 and 7 8 7. 

Inserting the assumed median value be- 
tween the two groups gives us the following 
list: 2 13 5 7 8 7. Each group is now sorted 
separately by the quick sort technique. 

The method used by the quick sort to 
make a choice of a median value runs the 
gamut from a random number generator, 
calculating the actual median value of the 
keys, estimating the median of the list, or 
simply choosing the first (or any) key as the 
assumed median value of the keys. We will 
employ this last method as it is the sim- 
plest. 

After a median or pivot value is chosen, 
the remaining keys are broken into two 
groups. Keys less than the pivot are placed 
in locations beoinninn with thp fir^it Inra- 



tion of this list, while keys greater than the 
median are placed in locations beginning 
with the Nth location. At the end of this ini- 
tial distribution phase, the last remaining 
position is the location for the chosen pivot 
value. The pivot value chosen determines 
the subsequent efficiency of the algorithm. 
If the worst case is chosen (the smallest or 
the largest key in the list), the sizes of the 
two groups would be equal to zero and 
N - 1, If the pivot value is. in fact, the actual 
median value of the keys in the lisl. the two 



ORIGINAL ITEMS 
PASS W1 ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS M ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
PASS #7 ITEMS 
PASS #8 ITEMS 
PASS #9 ITEMS 
PASS #10 ITEMS 
PASS #11 ITEMS 
PASS »^^ ITEMS 
PASS #13 ITEMS 
PASS»14 ITEMS 
PASS #15 ITEMS 
PASS #16 ITEMS 
PASS #17 ITEMS 
PASS #18 ITEMS 
PASS #19 ITEMS 
PASS #20 ITEMS 
PASS #21 ITEMS 
PASS #22 ITEMS 
SORTED ITEMS 
COMPARISONS = 



8 

5 

5 

5 

5 

5 

2 

2 

1 

1 

1 2 

1 2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



4 3 5 
4 3 8 
4 3 8 
4 3 8 
4 3 8 
4 1 8 
4 1 8 
4 1 8 
4 5 8 
4 5 8 
4 5 8 
4 5 8 
4 5 8 

5 

5 

5 

5 

5 

4 

4 

4 



5 6 7 8 



29 EXCHANGES = 



9 
9 
9 
9 
8 9 
8 9 
9 
13 



Table 1. Shell Sort Sample Output 



ORIGINAL ITEMS 
PASS #1 ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS #4 ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
SORTED ITEMS 



8 

8 

1 

1 

1 

1 

1 

1 



6 1 
6 1 
8 9 
8 9 
8 9 
8 9 
8 9 
9 



COMPARISONS = 33 EXCHANGES = 12 

Table 2. Quick Sort Sample Output 



"When the size of the items becomes prohibitively large. . . 

rather than physically move the entire item to a sorted list, 

the linked list sorts provide pointers to the sorted keys of the items." 



groups will be equal in size. Our choice 
should cause the size of the groups to fall 
somewhere between these two extremes. 

After completing the initial distribution 
phase, a stack structure saves (pushes) a 
group of keys as subsequent sorting phas- 
es are processed. Eventually these stacked 
groups are unstacked (POPped) and pro- 
cessed accordingly. When the stack is final- 



ly emptied of all the keys, the list is in its 
final (sorted) condition. 

Program Listing 2 is the programmed 
routine which accomplishes the quick sort; 
Table 2 represents sample output as the 
process sorts the items. 

Linked List Sorts 

Our previous sorting techniques arranged 



1000 


DIH A(10) 


1B10 


N = 10 


1020 


FOE X = 1 TO 4 


1030 


CLS: 




PRINT'ORIGINftL ITEMS "j 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRIHT A(K); 


1060 


HE XT K 


1070 


GOSDB 1178 


1060 


C = 0t 




E ^ 0: 




GOSUB 1160 


1090 


PRINT: 




PRINT'SORTED ITEMS "j 


jiee 


FOR K = 1 TO K 


1110 


PRINT A{K) ; 


1120 


NEXT K 


ii3e 


PRINT: 




PRINT "COMPARISONS -" ;C; "EXCHANGES ="jE: 




GOSUB 1170 


ii*e 


NEXT X 


1150 


END 


1160 


DATA a, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T - 1 TO 1000! 




NEXT T: 




RETURN 


118B 


■ 




SHELLEORT. 


1190 


. 




DISTANCE PARAMETER (D) DETERMINATION. 


1200 


D - INT ( N / 2 ) I 




PP - 


1210 


FOR P = 1 TO N-D 


1220 


' 




COMPARE THE J(TH) ITEM AGAINST THE ITEM DISTANCE AWAY. 


1230 


J = P: 




EE - B 


1240 


C = C + 1: 




IF A[J) <= A(J+[» THEN 1290 


1200 


D = INT i N / i ] : 




PP = a 


1210 


FOR P = 1 TO N-D 


1220 


1 




COMPARE THE J(TH) ITEM AGAINST THE ITEM D DISTANCE AWAY. 


1230 


J = P; 




EE = 


1240 


C = C t 1: 




IF A(J) <= A(J+D) THEN 1290 


1250 


1 




EXCHANGE ITEMS. 


1260 


T - AU) : 




A(J) - A(J+D) ; 




A[J+D) = T: 




J = J - Dt 




E = E + 1: 




EE = E 


1278 


• 




LOOP BACK TO CCmPARE AS LONG AS POINTER J IS VALID. 


1280 


IF J > B THEN 1240 


1290 


1 




TAKE SNAPSHOTS. 


1300 


PP = PP + 1: 




PRINT: 




PRINT"PASS (";PP;"ITEMS "; 


1310 


FOR KK = 1 TO N 


1320 


PRINT A(KK) ; 


1330 


NEXT KK 


1340 


GOSUB 117 B 


1350 


NEXT P 


1360 


D = INT ( D / 2 1 : 




IF EE = THEN 1380 


1370 


IF D > THEN 1210 


1380 


RETURN 


1390 


END 




Listing 1. Shell Sort Routine 



the items in the list by using simple keys 
and moving the entire item. In the ex- 
amples, the items consisted solely of the 
key. This simple assumption cannot always 
be made, however. For example, the usual 
key in a mailing label sort is often the zip 
code: the keys (zip codes) are compared and 
the entire item (name, address, city, state 
and zip code) must be moved into Its proper 
location in the sorted list. Obviously, mov- 
ing this much data takes quite a bit of time. 

When large items must be moved, anoth- 
er efficiency measure is the time required 
not only to sort the Items but also to move 
them. When the size of the items becomes 
prohibitively large, a more efficient sorting 
technique is usually required to save time. 

Rather than physically move the entire 
item to a sorted list, the linked list sorts pro- 
vide pointers to the sorted keys of the 
items. To produ"Ce a sorted output list, the 
programmed routine (usually the mainline 
program) simply uses an array vi/hich con- 
tains pointers to the keys of interest. These 
pointers are sorted so they point to the re- 
spective keys of the items. 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 
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Convertible 

& Other Hedges 
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BayQsian ^ise 
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Dept. H3 
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"How do we get from the initial condition of the pointer 

array to its final condition? The answer 

involves a bit of magic as well as a good deal of coding." 



i_ist n( ite'rs lo De sorted 


a 


7 


3 





7 




Pointer ar-ay 


1 


2 


3 


4 


5 



Fig. 1. Linked List Sort Item List 



Lisl of (terns to be soriea 


9 


- / 


3 





7 




Pointer array 


2 


5 


4 


3 


1 



Fig. 2. Linlfed List Sort Finai Array 

Assume thai Fig. 1 represents the list of 
items we wish to sort and the array which 
holds the pointers to this list of items. (We 
wili use a short list of Items and short item 
length to demonstate the mechanics of a 
linked list sort.) The original list of items will 
remain in the same order throughout the 
sorting process. The array which holds the 
pointers will change from its initial condi- 
tion to its final (sorted) condition during the 



sort. The values contained in the pointer ar- 
ray represent the subscript into the list of 
Items to be sorted. 

In its initial condition, the pointer array 
assumes that the list of items to be sorted 
is in sorted order In other words, P(1)= 1, 
which means that the value associated with 
P(1) points to the subscript which is the 
smallest item in the list: If P(1) = 1, then 
A(P(1))-9. The second yalue in the pointer 
array, P(2) = 2, points to the next smallest 
item in the list to be sorted; that is. 
A(P(2)) = -7. The values in the pointer array 
do not represent a sorted arrangement of 
items to be sorted. The initial condition of 
the pointer array simply assumes that the 
list of items to be sorted is sorted. 

Fig. 2 represents the final condition of 
the pointer array and list of items to be 
sorted. Using the pointer array value as the 
subscript value into the array of items to be 
sorted, we may make the following judge 
ment: 



A1P(I)) = A(2)= -7 
A|P(21|-A15)- 7 
A(P(3))^A(4)r_ 
A(P(4)) = A(3) - 3 
A[P(5)| = A(l)= 9 



How do we get from the initial condition 
of the pointer array to its final condition? 
The answer involves a bit of magic as well 
as a good deal of coding. 

Our primary examination of linked list 
sorts Will revolve about two techniques The 
first uses the technique just described, 
while the second uses a somewhat differ- 
ent approach. 

Vector Sort 

The first linked list sort is called a vector 
sort, and uses the technique of providing 
pointers to the items in the list to be sorted. 
Program Listing 3 consists of a mainline 
program and the vector sort subroutine 
which produces the sample output in Table 



mea 


DIM A(iai , HI1101 , HXIlfl) 




iBie 


N = IB 




iB2e 


FOR X - 1 TO 4 




ie3a 


CLS: 






PfilNT'ORIGINAL 1T1J1S "l 




1- J? 


FOR K - 1 TO N 




i»:-j 


READ A{K) : 
PRINT A[K1 )! 
MI(K) - B: 
MX(K) = B 




1B63 


NEXT K 




1870 


GOSUB 1178: 
PRIWT 




IBBB 


C - B: 
E - Bi 
GOSUB IIHB 




ie^B 


PRINTi 

PRINT'SORTED ITiWS ■( 




lite 


FDR K - 1 TO N 




iiie 


PRINT AIRl ; 




lllB 


NEXT K 




1138 


PRINT: 






PRlNT-COMPAfilSONS =';C;'EXCHANGt:S = 






GOSUB 117B 




ine 


NEXT X 




115B 


END 




1168 


DATA B, 1, 2, 3. 4, i , 6, 7, 8, 9: 





6, 6, 4, 5, -1 



DATA 9, 8, 7, 6, b, 4, 3, 2, 1, 

DATA B, B, 9, 4, 3, 5, 7, 2, 6, 1- 

DATA -7, 3, -9, -7, 
117B FOR T - 1 TO IBBBi 

KBXT Ti 

HBTUfiN 
IISB ' 

QUICKSORT. 

1190 BP = N: 
TP ' 1 : 
X = B: 

Y - 0: 

P = H 
12BB GOSUB 151B: 

GOSUB 15 2 B 
121B ' 

TAKE SNAPSHOTS. 

122B P = P + 1 

123B PBINT'PASS »-;P, "ITEMS "i 

134B FOR KK - 1 TO N 

125B PRINT A(KK) , 

12GB NEXT XK 

127B GOS06 117B 

12BB PRINT 

1299 IF TP >- BP THEN I4BB 

1388 NK - A(TPI 

1310 IF TP = BP THEN 1363 

1328 C = C * 1 

133B IF A(BP) < NM THEN AITP) » AlBPli 

E ' E *■ 1: 
GOTO 134B 



1348 
13SB 



t.l.St HP - HP -1 : 
GOTO 131B 
IF TP - BP THEN 1360 

EI.SE C * C + ! 
IF A(T!M > NM THEN AlBPl ' AITP) 
E - £ * 1: 
GOTO 1319 
ELSE TP = TP • 1; 
GOTO 1348 



138( 
139( 

14Bi 

141E 

142e 

143( 

144e 

i4^e 

146fl 
1470 



1491 
15BI 



I AlTPl •= NM: 
F = E * 1: 
NB >; TP - l! 
NT - TP * 1 
I GOSUB 1^30; 
F - NB - TP; 
GOSUB IS 40: 
NX = BP - NT 
' IF F > NX THEN 1430 
M = TP: 
TP ■ NT 
IF TP < BP THEN GOSUB 1S10: 

GOSIIB 1520 
BP = NB; 
TP :^ M 

IF TP >' BP THF.N 1500 
ELSE 1478 
LS = BP: 

BP - NB 
GOSUB 1510: 
GOSUB 15 20 
TP - NT: 
BP ' US 

IF TP >- BP THEN I3B0 
GOSUB 1510: 
GOSUB 15 20; 
GOTO 1218 
GOSUB 1S3B: 
GOSUB 1540 
IF Y = THEN RETURN 
GOSUB 1538: 
GOSUB 1540: 
GOTO 12BB 
IF X - N THEN PRINT-WRONG WAY' 
STOP 
ELSE X ' X • 1: 
MI(X) = TP: 
RETURN 
IF y - N THEN PRINT-WRONG WAY- 
STOP 
ELSE Y - Y 



KXIYl 



1; 

BP: 



1538 IF X - 



1540 IF Y - 



RETURN 
8 THEN RETURN 

ELSE TP = HI(X; : 
X - X - 1; 
RETURN 
8 THEN RETURN 

ELSE BP - MXIY) : 
Y =• Y - 1: 
RETURN 



Listing 2. Quick Sort Routine 
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3- The vector sort requires extra storage for 
the pointer array (P) equal to the number of 
items in the list to be sorted. 

The vector sort proceeds generally in the 
same manner as our previously examined 
sorting techniques, the major difference be- 
ing that no exchanges are made within the 
list of items to be sorted. The pointer array 
is adjusted as the positions of the keys are 
determined relative to the pointer array. 
Table 3 can be traced to see the operation 
of this routine. 

Merge Sort 

The second linked list sort is a type of 
merge sort which requires more extra stor- 
age than the vector sort. This disadvantage 
is somewhat diluted in that the merge sort 
takes less time to execute than the vector 
sort. The determining variable in the selec- 
tion of either of these two linked list sorts is 
time versus storage,- It is up to the user to 
decide which linked list sort to use for the 
particular application at hand. 

Fig. 3 shows the final condition of the 
variable used in the merge sort. Follow the 
pointers to determine the order of the items 
to be sorted. 

The variable S2 points to the subscript of 
the items to be sorted where the smallest 
items resides. According to Fig. 9, the vari- 
able S2 is equal to 2, therefore, A(S2) = A(2) 
= -7. To determine the next sorted item, 
use the pointer array (P) in the following 



ORIGINAL ITEMS 
PASSWI ITEMS 
PASS #2 ITEMS 
PASS «3 ITEMS 
PASS «4 ITEMS 
PASS #6 ITEMS 
PASS W6 ITEMS 
PASS #7 ITEMS 
PASS »8 ITEMS 
PASS #9 ITEMS 
SORTED ITEMS 



8 9 4 3 
8 9 4 3 
8 9 4 
4 8 9 

4 

4 

4 



3 
3 
3 



2 3 4 5 7 
2 3 4 5 6 



2 6 1 

2 6 1 

2 6 1 

2 6 1 

2 6 1 

2 6 1 

9 2 6 1 

8 9 6 1 

7 8 9 1 



0123456789 
0123456789 



COMPARISONS - 35 EXCHANGES = 27 



Table 3. Vector Sort Sample Output 



ORIGINAL ITEMS 
PASS #2 ITEMS 
PASS #3 ITEMS 
PASS #4 ITEMS 
PASS #5 ITEMS 
PASS #6 ITEMS 
PASS #7 ITEMS 
PASS #8 ITEMS 
PASS m ITEMS 
PASS W10 ITEMS 
SORTED ITEMS 



8 9 4 3 5 

8 

8 9 

4 

3 4 

3 4 



7 2 6 1 



8 9 



5 8 9 



3 4 5 7 

2 3 4 5 

2 3 4 5 6 

12 3 4 5 

12 3 4 5 



8 9 
7 8 9 



8 9 
7 8 9 
7 8 9 



COMPARISONS - 26 EXCHANGES - 9 



( able 4. Merge Sort Output Sample 



The merge sort requires more storage space than 
the vector sort, but it takes less time to execute. 



manner: Since A(S2) = A(2), the next small- 
est item will be at P{2). The subscript of the 
array A is used to gain access to the value 
stored in the adjacent pointer array P. P(2) 
- 5, therefore, A(P(2)) = A(5) - - 7, the next 
smallest of the items to be sorted. Subse- 
quent items can be found by the following: 

A(S2) = A(2) = - 7 

A(P(2)1 - A(5) = - 7 

A(P(5)) = A(4)= 

A(P(4)) = A(3) = 3 

A(P(3)) = A(1)= 9 

The last condition (P{1) = 0} means that 
the list of items to be sorted is exhausted, 
since no item resides in A(P{1)) = A(0)- 

Lisling 4 is mainline program and the 
merge sort subroutine for the second linked items to be sorted. 



list sort. 

We have only scratched the surface of 
sorting techniques; use the oibiiography if 
you want to gain a deeper understanding of 
these and other sorting routines available 
to the microcomputerist. 

The routines in this article were success- 
fully run on a TRS-80 Level II with 16K mem- 
ory. The memory requirement is not impor- 
tant, since the sorting lists contain only 10 
items. Modifying line numbers 1000 and 
1010 will allow for larger lists to be sorted: 

1000 DIM AM, S{x). MIM, MX(x) 
1010 N = x 

where x is equal to the size of the list of 



List of Items to be sorted 


9 


-7 


3 





-7 




Pointer array 





5 


1 


3 


A 




Variable Starter (S2) = 2 



Fig. 3. Merge Sort Array Firjal Condition 
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"Since the mainline program presented uses 

only four sets of data . . .tfie program 

is quite useless except for illustrative purposes. 



Line numbers 1020 through 1060 repre- 
sent the common mainline program ot the 
routines. Since the mainline program as 
presented uses only four sets of data as in- 
put 10 the items to be sorted, the program is 
quite useless except for illustrative pur- 
poses. Th§ sorting subroutines are com- 
pletely independent of any mainline pro- 
gram except for the passing ot the follow- 
ing arguments; 

• The array A which holds the items to be 
sorted. 

• The variable N which is the number of 
items to be sorted. 

• The variable C which is the number of 
comparisons. 

• The variable E which is the number of 



ation of the subroutines. Thoroughly read- 
ing the code should provide you with the in- 
formation required for modifications to the 
sorting subroutines. ■ 
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Variables C and E may be deleted from 


100B DIM A(10) / VllBl 




the subror'ines without affecting the oper- 


101B N ^ IB 

1028 FOB X - 1 TO 4 

1030 CLS: 








PBIKT'ORIGIHAL ITB!S "; 






1040 FOR K = 1 TO N 


, 


1BS0 READ Hit.) t 




1D00 . ',.1 A(ie) , V(10) 


PRINT ft(K) i: 




1010 N ' IB 


V(K) = K 




1020 FOR X - 1 TO * 


1B60 NEXT K 




1030 CLS: 


1070 GOSUB 1170 




PRIKT'ORIGINAL ITEMS '; 


1080 C ^ 0: 




1840 FOR K - 1 TO H 


£ - 01 




1050 READ AtK) : 


GOSUB iisa 




PRim A(R1 11 


1098 PRINT: 




V(K) - K 


PRINT-SORTED ITEMS 'i 




1060 NEXT K 


1100 PRINT A|52; ; : 




lfl7B GOSUB 117a 


J • V(S2) 




1080 C = B: 


1110 FOR K • 2 TO N 




E ^ 0: 


1120 PRINT A(J) i: 




COSUB 11 B0 


J ■ V(J) 




1090 PRINT: 


1138 NEXT K: 




PRINT-SORTED ITEMS 'j 


PRINT: 




liaa FOR K - 1 TO N 


PRINT'COHPARISDNE =* ;C; 'EXCHANGES =" 


E: 


1110 PRINT AIV(R) ) ; 


GOSUB 1178 




1120 NEXT K 


1140 NEXT X 




'130 PRINTt 


1150 END 




PRINT'COMPARISONS =* ;C( 'EXCHANGES -"jE: 


1160 DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9i 




GOSUB J170 


DATA 9, B, 7, 6, 5, 4, 3, 2, 1, 0: 




1140 NEXT X 


DATA B, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




1150 END 


DATA -7, 3, -9, -7, B, 6, 6, 4, 5, -1 




1160 DATA B, 1, 2, 3, 4, 5, 6, 7, 0, 9: 


1170 FOB T ■ 1 TO 1000: 




DATA 9, 8, 7, 6, 5, 4, 3, 2. 1, 0! 


NEXT T: 




DATA B, 0, 9, i, 3, 3, 7, 2, 6, 1: 


RETURN 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1180 < 




1170 FOR T = 1 TO IBBB: 


MERGE LINKED LIST SORT. 




NEXT Ti 






RETURN 


1191 S2 - 1: 




1180 ■ 


V(1J - 




VECTOR LINKED LIST SORT. 


1200 FOR P « 2 TO N 
X21B C ' C + 1: 




1190 FOR P • 1 TO N-1 


IF A(P) <- A[S2) THEN V(P) - S2i 




12BB J =^ P 


S2 - P: 




121B ' 


PT - S2: 




COMPAHE ITEMS VIA POIHTEB ARRAY [V) . 


E - E + It 
GOTO 126B 




1220 C " C • 1; 


1220 ID - V(S2) ; 




IF A(V(J)) <= A(V(J+1)) THEN 1270 


TS - S2 




1230 ' 


1230 IF ID ^ THEN 1250 




EXCHANGE ITEHS. 


1248 C - C * 1: 

IF A(P) > A (ID) THEN TS = ID: 




1240 T ^ V(J) : 


ID - V(1D) 




VIJ) ' V|J*1I : 


GOTO 123B 




V(J*l) - T: 


125i V(TS) " P: 




E - E * 1: 


V{P) - ID: 




J = J - 1 


E = E ♦ 1 




1250 ■ 


1260 ■ 




LOOP BACK TO COMPARE AS LONG AS POINTER J IS VALID, 


TAKE SNAPSHOTS. 




126B IF J >< THEN 122fl 


1270 PRINT: 




1270 ' 


PRINT'PASS CfP.-'ITEMS "/ 




TAKE SNAPSHOTS. 


12B0 PRINT A(S2) J 
1290 J = V(S2) 




1280 PRINT: 


1300 FOR KK - 2 TO N 




PRINT'PASE •■;P;"ITEMS "; 


1310 PRINT A(J) j: 




1290 FOR KK - 1 TO N 


J = V(J) ! 




l'iB0 PRINT A(V(KK1) t 


IF J - THEN 1330 




1-U8 NEXT KK 


1320 NEXT KK 




1320 GOSUB 1170 


1330 GOSUB 1170 




1330 NEXT P 


1340 NEXT P 




1.3 48 RETURN 


135 RETURN 




1350 END 


136B END 




Listings. Vector Sort Program 


Listing 4. Merge Sort Program 
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HAVE WE m 





Y0UIH'8I&'82 

Attend the biggest public computer shows in the country. 
Each show has 100.000 square \ee\ of display space fea- 
turing over 50 Million Dollars worth ot software and hard- 
ware for business, industry government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines 
electronic typewriters, peripheral equipment, supplies and dom- 
puter services. 

All the ma]or names are there including; IBM, Wang. DEC, 
Xerox, Burroughs. Data General, Qantel, Nixdorf, NEC, Radio 
ShacK, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video game^obots, com- 
\puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 
Don't miss the Coming Of The New Computets- 
- Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 tor chi)-- 
dren under 12 when accompanied by,an adull. 

ThE „ Jli^_,„._ 



Ticket Information 

Send $5 pe' person with the name of the show 
you will attend lo Nalional Computer Shows, 
82-1 Boylsion Slreet, Chesinul Hill, Mass 0216? 
Tel 617 739 2000 rickets can also be putchased 
at the sfiow 



THE 



HiCHEST 
CGNPUTEF- 
SHOH 

CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

'1AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



WASHINGTON, DC 
DC Armory/Starptex 

2001 E CAPITAL ST SE 

(ECAP ST EXITOFFI295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7 PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS , 



CGHFUTER 
SHON 

BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

TWURS-SUN 

OCT 15-18, 1981 

11 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 
;OUTHEHST 



Iriru i nn 



ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NE AT 
RALPH McGlLL BLVD 

THURS-SUN 
OCT 294WV 1,1981 

n AM TO 7PM WEEKDAYS 
n AM TO 6PM WEEKENDS 



THE 

SOUTHEHN 

CHUFORNIR 

CGMPUTEF 

hHuH 
los angeles 

LA Convenbon Center 

1 201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

1 1AM TO 7PM WEEKDAYS 
1 1AM TO 6PM WEEKENDS 



yS— Uat ol AdvmtOatrs on pagm 3M 
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TECHNIQUE 



A Basic program for rotating 3-D figures. 



Rotation 



Bruce Yellin 

19 Marine Avenue 

Brooklyn, NY 11209 



I guess my obsession with three dimen- 
sional figures all started years ago when I 
was a computer science major in college. 
Being impressed with photographs of auto- 
mobile engineers designing next year's 
cars on a graphic CI^, and dreaming of ro- 
tating the starship ttiterprise on a video 
screen, I set out to develop a digital com- 
puter system capable of transforming three 
dimensional objects into two dimensional 
representations. As a frustrated mathema- 
tician in school, I knew that my dream could 
only be realized once I had a Ph.D. in 
mathematics and a $30,000 graphics com- 
puter at my disposal. But I decided to give it 
my best shot anyway! 

My first attempt at displaying a 3-D ob- 
ject was on a UNIVAC 11 06 computer using 
3 hardcopy terminal and Fortran. Al- 
though my ideas seemed to work, a time- 
shared computer and continuous forms 






Fig. 1. The Cube as it Is Traditionally 
Depicted 
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would hardly do the job. 

When my own 16K Level II TRS-80 arrived, 
my obsession with 3-D returned. I had my 
Masters Degree in Computer Science and 
was using my LA 36 Decwriter M for hard- 
copy by utilizing an RS-232 serial output 
driver from Small Systems. I was "armed to 
the teeth" for the challenge. A month later, 
after many sleepless nights, I proudly pro- 
claimed that 3-D lives in Brooklyn, N.Y.! 

Why Cubes? 

Now, let's get down to business. I've 
selected a cube because it is the simplest 
of regular figures to construct. It also has 
many interesting properties when rotated. 
All of us have probably drawn one when 
doodling, (see Fig. 1.) In its most recogniz- 
able form, you see six squares touching 
each other on all four sides. It is the easiest 
polyhedron to conceptualize and digitize 
compared to other members of the polyhe- 
dra family. (I will be explaining just how you 
digitize a cube a little later on.) 

Try to imagine a cube coming to life. You 
can see three sides very plainly with the 
other three sides hidden from view (see Fig. 
2). Turn the cube to the right and you should 
be visualizing Fig. 3. Keep turning and you 
have Fig. 4. And now if you look at the cube 
head-on, five sides are hidden and all you 
should be able to see is the remaining side 
(Fig. 5). 

As you are aware, a cube is a three dimen- 
sional figure. Instead of squares and the 
X-Y rectangular coordinate system you are 
most familiar with, for example, in the 
dimensions of length and height, we must 
briefly discuss the added dimension of 
depth. These three dimensions represent a 
method of locating a given point in space 
{rather than in a plane using X-Y coor- 
dinates) in terms of its distances from three 
mutually related perpendicular lines or 
axes. In layman's language: (x,y,z) = 
(length, height, depth). The Z axis is respon- 
sible for giving a shape its realism (for ex- 
ample, cartoons generally lack realism be- 
cause those figures are flat or X-Y images 



without the dimension of depth). A cube has 
depth (see Fig. 6). 

Now, the X-Y-Z system may still sound 
very foreign to you. And you might be won- 
dering what the word "digitize" really 
means. Let's try to tie together some loose 
ends. 

In the digitization of a solid object, we try 
to assign values from the X-Y-Z system to 
the object. Fig, 7 displays the X-Y-Z axes in 
dashed lines and the cube is drawn in solid 
lines. The lower rear corner of this unit cube 
(the length of each side is one) is at the 
origin (0,0.0) — point 1. Point 2 shows dis- 
tances of one from the origin on the X-axis 
and from both the Y and Z axes. Point 3 
shows distances of one from the X and Y 
axes and zero from the Z axis. Point 4 is the 
same as point 2 except for the Y axis. Now 
point 5 gets interesting — a zero distance 
from the X axis, but one from the Y and Z 
axis (the line connecting points 4 and 5 has 
a depth of one unit). Point 6 has a depth of 
one from the origin. Point 7 is like point 5. 
Point a shows a distance of one from all 
three axes. And since we can see that each 
point differs from the three points connec- 
ting it (for example, point 3 is connected by 



Fig. 2. The Solid Cube as Viewed from the 
Right Side 



Your best 

Model I/Ill 

peripheral buy 

is a modem. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit; 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A tar more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And. therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 



Your best 

Model I/Ill 

modem buy 

is LYNX. 



The new LYNX is the ideal modem 
for your Model lor III, That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software , . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: S299.95! 

• Compatible with both Model I 
and III. 

• No separate purch? js re- 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, in- 
cluding ST-80 by MIcklus. 

• Active c!«!ar, break, and "con- 
trol" keyi^. 

• Half or full duptex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Wbrks with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 




OLYivnco 



^278 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phono 717/291-1116 

TRS-80 is a trademark of the Radio Shack Division o( Tandy Corporation. 
FCC Hegistralion Number: A909KE-68171-DM-N 



Call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTEBNATiONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 

-S»» Utt ot A&fitia^n on p*a* ^^ 



ADVANCED COMPUTER PRODUCTS 

Irvine, CA 

800/854-8241 

STEVENS RADIO SHACK 
Phoenixville, PA 
800/345-6279 



TSE HARDSIDE 
Milford, NH 
800/258-1790 

SIMUTEK 
Tucson, AZ 
800/528-1 1 49 
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''Now that I've given your mental CPU an 'Excedrln-80' 
headache, let me explain. . . how we rotate a cube." 



points 2, 4 and 8) by one unil and the figure 
rests on three perpendicular axes, we in- 
deed have a cube. Another way to demon- 
strate this is to note that each side of the 
figure is itself a square of equal size. 

Rotation 

Now that I've given your mental CPU an 
■'Excedrin-80" headache, let me explain just 
how we rotate a cube. Rotation is accom- 
plished by viewing the figure from different 
(X,Y,Z) coordinates. Instead of turning the 
cube, you are placed at different locations 
from which to view it. In essence, the cube 
isn't turning, but you are moving around the 
cube— a simulation of rotation. 

The study of cubes and their rotation has 
its roots in solid analytic geometry. From 



the myriad of formulas and calculations in 
this field, I've identified two major steps 
needed before rotation ot a cube (or any 
other 3-D object) can occur. First, a new set 
of viewing points must be established such 
that the figure will look as though it were on 
a gimbal and spinning freely. To accom- 
plish this, we freeze the X and Y coordi- 
nates, say at 50 each, and just manipulate 
the Z coordinate. This will yield maximum 
control of the figure and a rotated cube that 
is quite appealing to the eye. The new 2 
value is assigned values that differ by an 
order of magnitude (exponentiation) be- 
cause they produce very interesting plots. 
Secondly, the (X,Y,Z) coordinates used for 
viewingmust be translated to (x,y) terms. To 
accomplish the feat, these equations are 
used: 



X' = arctan(Y/X) 
y" = arctan(Z/X) 




The new points {x,y), created as follows, are 
used for plotting on your video screen: 

X - ysm(x') -- X"sin(x') 

y= - X'c:o8<)<)-sin(y') - Vsin(xVsin(y) » Z"co9(y') 

Using the coordinates from Fig. 7 and the 
algorithm above (having been derived from 
solid analytic geometry texts), we construct 
Table 1. If we plot the new (x.y) points, we 
would get the cube in Fig. 7 drawn on the 
X-Y axis. If you can visualize the point 
(30,30.30), the cube would look exactly as 
depicted in Fig. 8 when plotted on your CRT 
or on graph paper. 

Not Done Yet 

But even these figures are lacking 
something. Somehow all those lines, even 
to my imagination, look like a transparent 
etching rather than a solid cube. 



Fig. 3. The View of the Solid Cube from the Fig. 4 The View of the Solid Cube from the Fig. 5 The View of the Solid Cube from 
Front and Top Left Side Head-On 
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''Program Listing 2 is the tightest Basic code 
I've ever written. It is fully optimized and undocumented." 



How would the figure look with the hid- 
den lines removed — just like a solid cube as 
illustrated In Figs. 2, 3 and 4! Next, how do 
we tell the Z-80 CPU to ignore the surfaces 
of the cube that our human eyes can't see? 

The trick lies in the distance formula. As 
it turnsout, the point farthest away from the 
viewing point {for example, (30,30,30)) Is the 
vertex or corner that can't be seen. At- 
tached to that vertex are lines, and without 
that vertex, the lines can't be drawn. Hence, 
they disappear! When Fig. 7 Is viewed, for 
example, from (30,30,30) the distances to 
each of the verticies are shown in Table 2 
when: 

dlstanoe = squate fOol[(p1 -X)*"2 + 
(02-yy2 + (p3-Z)--2] 



Fig. 6 The Representation of the X-Y-Z Co- 
ordinate System 



where pi, p2and pSarethe coordinates you 
wish to view the cube from. Point 1 is the 
farthest away from (30,30,30) with a dis- 
tance of 51.96 units. Since it is not seen, line 
segments 1-2, 1-4, and 1-6 are not drawn. 
(The result, a solid cube with hidden lines 
removed (Fig. 2.).) 

Ready At Last 

Two versions of the same program are 
presented in this article. Program Listing 1 
is fully documented and somewhat unopti- 
mized. It takes about 1 seconds to display 
the cube without hidden lines and nine sec- 
onds to display the cube with hidden lines. 
Program Listing 2 Is the tightest Basic code 
I've ever written. It is fully optimized and un- 
documented. I would be hard pressed to cut 
the execution time by one more second with- 
out direct machine language assistance A 
50 percent improvement in execution time 
is observed with Listing 2; the complete cube 
takes about five seconds and the hidden line 
cube takes slightly longer to draw. Need- 
less to say, Listing 1 takes up much more 
MOS memory than Listing 2. Although List- 
ing 2 looks totally different from 1, the 
overall logic for the two programs is identi- 
cal. I've reduced the number of vertlce con- 
nections needed to draw the cube, taken 
out all remarks, removed blank spaces, op- 
timized the loops, and used many other 
techniques which I've imbedded into the 
code. 

Enter the program of your choice, CSAVE 
it, then simply type Run. Three prompts are 
issued. Please Enter The Viewing Coordi- 
nates (X Y Z)? to which you enter the coordi- 
nates, separated by commas, of the point 



the cube is to be viewed from — for example, 
30,30,30. Hardcopy Required (Y/N)? asks for 
a Y if a permanent copy of the cube is de- 
sired. The Auto Rotation (Y/N)? feature will 
spin the cube on its Z axis giving you seven 
different views while it is rotating. 

Just sit back and be patient for a few 
seconds. Right before your eyes, the cube 
will be drawn. Actually, the plotting of the 
(x,y) coordinates using the Set statement is 
occurring. If you requested a hardcopy, dots 
are printed representing a pixel value of 
(off) and a ' #" where a pixel is lit {or 1). [See 
the hardcopy of a cube being rotated in fig- 
ures 9a-f.) This paper image is designedfor 
a 132 character by 66 line printout. , 

Looking Closer 'i-> 

After you've spent an hour or two display- 
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f\q. 7 A Fully L abeled Unit Cube Resting 
on the X-Y-Z Axis 
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''A flowchart is a part of the 

documentation pacl^age for any software effort. " 



ing various cubes, you'll be ready to in- 
vestigate the flovt/chart for a more in-depth 
treatment of the algorithms used. 

A flowchart is a part of the documenta- 
tion package for any software effort. It can 
either be very detailed or at a higher (or 
macro) level. Flovi/charts use various sym- 



bols to represent different logical steps, 
decisions, and actions. Fig. 10 contains 
many of the common flowcharting symbols 
accepted by the data processing communi- 
ty. 



-, 
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/K 






i \v 
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Fig. 8. The cube displayed on the X-Y axis. 



C~) 






A TE^SfH'lAL POINT IN A 
FLO'f.'CMARJ - ST4ffr. STOP, 
HALT, T-^LAY, ENTRY, RETURN 
OR INTERRUPT 



ANY PROCESSING FUNCTION; 
DEFINED OPERATIONS CAUS- 
ING CHANGE IN VALUE, FORM, 
OR LOCATION OF INFORMA- 
TION 



GENERAL I/O FUNCTION; 
INFORMATION AVAILABLE 
FOR PROCESSING (INPUT), 
OR RECORDING OF PRO- 
CESSED INFORMATION (OUT- 
PUT) 



A DECISION OR SWITCHING- 
TYPE OPERATION THAT DE- 
TERMINES WHICH OF A 
NUMBER OF ALTERNATIVE 
PATHS IS TO BE FOLLOWED 



ARROWHEADS AND FLOW 
LINES IN LINKING SYM- 
BOLS, THESE SHOW OPER- 
ATIONS SEQUENCE AND 
DATA FLOW DIRECTION 



CONNECTOR- EXIT TO OR 
ENTRY FROM ANOTHER 
PART OF THE CHART 



ONE OR MORE NAMED 
OPERATIONS OR PROGRAM 
STEPS SPECIFIED IN A 
SUBROUTINE 



F/g. 10 Basic Flowcharting Symbols 
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BLOCK 



The flowchart in Fig. 11 is at macro level 
for program 1. 1 have identified seven blocks 
worthy of a brief discussion. Block one de- 
fines the working array A to be eight rows of 
five columns. (You'll need to know this if 



(i-D CUflES ] 



DEFINE 
ARRAY 
AI8,5) 



READ 

VERTICES 

AND CONNECTORS 

FROM DATA STMT 



/INPUT, 

/viewing COORDINATES/ 
fHAROCOPY P 
'HIDDEN LINES ? 
'ROTATION ? 




LOOP USING 

Z 

SET X,Y TO 

VALUE 



CONVERT 

VIEWING COORDINATES 

TO XY COORDINATES 



CALL HIDDEN 
LINE REMOVAL 
ROUTINE IF 
REQUESTED 



COMPUTE NEW 

XY COORDINATES 

BASED ON 

VIEWING COORDINATES 



CALL 

PLOTTING 

ROUTINE 



CALL 

HARDCOPY 

IF REQUESTED 




RESTORE 

INPUT 

VALUES 



f STOP j 

Fig. 1 1 Macro Flowchart of Program Listing 1 



"The object of this method is not to 
calculate distance, but to find the hidden vertex." 



you change from six-sided figures.) Eight 
rows are needed for eight verticies. Column 
one is for the X coordinate, column two for 
the Y coordinate with the Z coordinate in 
column three. Column four is used for the 
logical connection of the {X,Y,Z) vertice to 
the other adjacent vertice (i.e. the row 
number for connection purposes). Column 
five serves the same purpose as column 
four except that it contains the second row 
number/connection. 

Block two sets up a Do loop if auto rota- 
tion is desired. The X and Y coordinates are 
set at 50 and values for Z of - 1000, - 100, 
-10, 0, 10, 100, 1000 are calculated by 
multiplying the sign of ZQ by 10, all raised to 
the ZQth power where ZQ ranges from mi- 
nus three to three in increments of one. The 
B$ variable is required for the program to 
know about the existence of the ZQ loop. 

The {x,y) coordinates to view the figure 
are obtained in block three as follows: 

L - ATN(Y/X]: M = ATN(Z;X) 

Where ATN is the arc tangent function. {This 
block involves some complicated mathe- 
matics and is beyond the scope of this arti- 
cle.) 

Block tour is activated if hidden line 
removal is desired. Removal of those lines 
hidden from sight is accomplished by using 
the distance formula. Its form for {X,Y,Z) 
coordinates in program 1 is: 

G = SQB(|A(D,11-X;t2 + (A(D,2)-yjt2 + (A(D,3] - 2)t2 ) 

Where A(D,1), A(D,2) and A(D,3) are the coor- 
dinates of each vertice and X, Y and Z repre- 
sent the coordinates of the viewing point. 

This method, utilizing the square root 
function and exponentiation is very slow. 
An alternate way to find the vertice farthest 
away from the viewing coordinate is: 

(1)G-ABSIA(D,1)-X) + ABS(A(D,2) - Y) + 
ABSIA(D,3) - Z). 

This equation is faster to execute than 
the distance formula with its exponentia- 
tion and square root. The object of this 
method is not to calculate distance, but to 
find the hidden vertex. Table 2 shows that 
point 1 is the farthest from (30,30,30) with a 
distance of 51.96 units. Equation (1) would 
result in a distance of 90 units from 
(30,30,30)— (note: this equation is not to be 
construed as a distance formula) while 
point 8 (a distance of 50.22 units) measures 
87 units. Both methods yield identical logi- 
cal results— point 1 is a vertice that is hid- 
den from sight in the cube. Note that more 
than one point may be hidden from view, 
but the program does not take this into ac- 

^ Sm List of Adnrtlaws on pa«« 354 



count. The second or third point is redun- 
dant and merely causes the same line to be 
drawn again. 

Block five computes the new (x,y) coor- 
dinates through: 

A1 = A(I,1) 

(2) A(l,1)= -ArSIN(Ll + A2-S1N|L) 

i3)A|l,2)= -ArCOS(L)-SIN(M) - A2-SIN(L1-SIN(M) 

+ A(I,3)'C0S|M1 

A1 is used because A(l,l) gets modified in 



equation (2) and the unmodified A(l,1) is re- 
quired in equation (3). These new coordi- 
nates are now ready for plotting. 

The routine to plot (x,y) point is the object 
of block six. The Y-intercept form of the 
straight line equation is used. 

(41M^(Y0-Y1V(X0-X1} 
15)BZ = Y0-M-X0 

(XO.YO) and (XI ,Y1) are the end points for the 
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Table 


1. 


The X and y values 


resulting 


from 


the cube 


being view 


ed 


from 


(30.30,30) 


X 


and 


/' both equal 


785 





X Y Z PI. « Distance 


1 51.96 


1 6 51 39 


10 4 51.39 


10 2 51.39 


Oil 5 50.81 


110 3 50.81 


10 1 7 50.81 


111 8 50.22 


Table 2. The distance shown is from 


each (X,Y.Z) point to the viewing coor- 


dinates of 130,30.30). 
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Model 488-80B For Modal 1 Opsrstlon 




Model 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-BO Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-808 or 488-80C $325. 

+ shipping, insurance & lex 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^291 

11 Neil Drfve • Old Betfipage, NY 11804 
Telephone: (516) 694-3205 

•Trademari^ ot Tandy Corp. 

There is no atfiiiaticn between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack. , f 1 



-TRS-80 S. OTHER NEEDS FILLED FOR LESS' 



+ -t- + COMPATIBLE DISK DRIVES WITH POWER SUPPLY AND CASE-90 DAY WARRANTY >■ 
■40TRACK(102,400BYTEOSK)DISKDRIVEWITHP.S ANDCASE.MODELI&III 

• 8 IN. DRIVE & P S JCASE S689WITH P S.iCASE FOR 3 DRIVES 
■ 60TRACK(204,8KBYTE) 

• 4-DRIVE CABLE $28 ' " 10 DISKS-5 IN @ S24-8 IN ® S36 HARD CASE $3 S 5 

BASE2 PRINTER $599 EPSON MX - BO PRINTER - CALL MICROLINE 80 PRINTERS369 



$295 
$829 

$399 



MICR0LINE82$549 



CABLE I 



I $25 
$829 



■CENTRONICS 739 $799 

■ LEEDEX 12 IN BSW MONITOR $114 LEEDEX 12 IN B&G MONITOR $138 ^^ 

■APF10INBSW MONITOR mcmoby c;FT (200 NANO) $16 

-300BAUDMODEM(ORIG/ANS,S115.ANDUP. .... * ^ " '' ^SK "odL IN $9« 

•16KMODELIIRADIOSHACKSYSTEMSa49 .. r^ P R FOR 

- APPLE ATARI RADIO SHACK HARDWARE/SOFTWARE DISCOUNTED, MH. A^^'^^'L, P'R FOR 
S2Mlr $59 e. (MODEL 1] & $329 Of $80 «, (MODEL 2) APPLICATIONS INTERACT & ARE COMPLETE S 

SoFeSiONAL S?,^^^^^^ COMPUTERS THIS IS A SPECIAL INTRODUCTORY ^"'CE 

ASKFORFREErLtER Lh OUR LOW PRICES--DEALERINOUIRIESINV,TED MASS R^^^^^^ 

5% TAX-FOB TEWKSBURY -FREIGHT EXTRA 

M(C VISA OR CHECK ACCEPTED TRS 80 IS A REG TRADEMARK OF TANDV CORP ^ ,05 



_OMNITEK SYSTEMS, 



.1899 MAIN ST., TEWKSBURY, MASS. 01876 CALL 617/851-4580 , 
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''A paper image of the screen 

is produced by utilizing the Point command.'' 



line to be plotted. Equation (4) is the formula 
for calculating the slope of a line and equa- 
tion (5) calculates the Y1 value for plotting 
given (XO,YO) and an incremented point be- 
tween XOand X1. 

The Set command is used for plotting 
with the center of the TRS-80 CRT screen 
being (64,24). When the XO value is not equal 
to X1 (i.e., a non-vertical line), the 'DO R' Do 
loop calculates the incremental value be- 



tvi/een XO and X1, which is then multiplied 
by the slope. The Y Intercept and the screen 
center values are then added in: 

SET(M'R + BZ + 64, H + 24) 

If XO equals X1, a vertical line is needed. R 
gets an increment value between YO and Y1 
and SET(R -\- 64, XO + 24) is used. 

Block seven contains the hardcopy rou- 



Program Listing 1 

10 REM ROTATION OP THREE DIMENSIONAL OBJECT BY BRUCE A. YELLIN 
20 REM THIS LISTING IS FULLY DOCUMENTED AND IS NOT ORIENTED 
30 REM TOWARDS OPTIMIZED CODE. 
40 REM FOR THE FASTEST EXECUTIUON SPEED, USE LISTING #2 

95 REM **************************** 

96 REM * * 

97 REM * INITIALIZE VARIABLES * 

98 REM * * 

99 REM * * *$* *'*********************** 

100 DIM A(8,5) ; 
101 
102 
103 

110 F0RI=1 TO 8: 
111 

120 READ A(I,1), A(I,2), A(I,3}, A(I,4), A(I,5) 
130 NEXT I 
140 CLS 



REM ARRAY A HAS ROOM FOR 8 

REM VERTICIES OF 3 COORDINATES 
REM EACH AND 2 CONNECTION 
REM NUMBERS 
REM ENTER OBJECTS' VERTICIES & 

REM AND CONNECTIONS 



********* 



******* 



***** 



PROMPT FOR VIEW AND OPTIONS 



********* 



********** 



********* 



REM AUTO ROTATION REQUIRED, SET 

REM UP LOOP ZQ FOR VALUES SO 



195 REM 

196 REM 

197 REM 

198 REM 

199 REM 

208. INPUT "PLEASE ENTER THE VIEWING COORDINATES (X Y Z)"fX,Y,Z 
210 INPUT "HARDCOPY REQUIRED (Y/N}";A$ 
220 INPUT "ARE HIDDEN LINES DESIRED (Y/N)";B$ 
230 INPUT "AUTO ROTATION (Y/N)";C$ 

295 REM *************************** 

296 REM * * 

297 REM * SET UP AUTO ROTATION LOOP, CONVERT VIEWING POINTS * 

298 REM * AND HIDDEN LINE SUBROUTINE * 

299 REM ********** 

300 IFC$="N"THEN 340: 
301 
302 
303 
304 
305 
(306 
307 
308 
309 

310 FOR ZQ= -3 TO 3 
320 ?-SGN(ZQ)*10IABS{ZQ) 
330 X<50:Y=50 
340 IF X*^ THEN X=0. 000001: 
350 L=ArN(y/X): M=ATNlZ/X): 
COORDINATES 

360 IF BS="N" GOSUB 1100: 
361 

395 REM ********** 

396 REM * 

397 REM 

398 REM 

399 REM 

400 FOR 1=1 TO 8 
410 A1=A(I,1) 

420 A(I,I)= -A1*SIN(L) + A(I,2)*SIN(L) 

Program continues 



REM 


X 


Y 


Z 


REM 


50 


50 


-1000 


REM 


50 


50 


-100 


REM 


50 


50 


-10 


REM 


50 


50 





REM 


50 


50 


10 


REM 


50 


50 


120 


REM 


50 


50 


1000 



REM PREVENT DIVISION BY ZERO 

REM CONVERT VIEWING 

REM HIDDEN LINE REMOVAL ROUTINE 
REM IF REQUESTED (Y=LINES DESIRED) 



COMPUTE NEW SET OF X,Y COORDINATES 



********* 



tine. A paper image of the screen is pro- 
duced by utilizing the Point command. If a 
pixel is not lit, the point of that pixel returns 
a zero. The "." is printed for a blank space 
(0) and a "#" if the pixel is on. I designed this 
little routine with a full width printer in mind 
(such as my LA 36 Decwriter 11). If your print- 
er can't produce plots of 128 characters 
across, you'll have to modify this routine to 
suit your needs. 

Attached to block seven is a small circle 
representing the Next ZQ statement used 
by the auto rotation calculation. If this op- 
tion was selected, the looping takes place; 
otherwise the program halts. 

The eight vertices necessary for the 
cubes construction are contained in the 
data statements in lines 2010-2080 of Pro- 
gram 1. Each of the statements corre- 
sponds to the form of: 

X, Y, Z. first conneclion, second connection. 

Connection simply means which two data 
statements the vertice is connected to. For 
example, (0,0,0) is given by 2010 data 
0,0,0,2,3 and is connected to the vertex in 
line 2020 (2) and to the vertex in line 2030 (3). 
Fig. 9a-f shows this very clearly. In turn, 
each vertex is linked to two other vertices 
for example, (0,1,0) connects to (1,1,0) and 
(0,1,1). 

if you are observant, you'll notice that a 
vertex in a cube is connected by three other 
vertices, not just two. But only two are re- 
quired by this program. This is true as long 
as the first and second connection num- 
bers are used only twice by the entire set of 
eight data statements. (Because the hidden 



this publication 
is available in 
micfofofm 




University Microfilms International 

300 North Zeeb Road 18 Bedford Row 

Dept.P.R. Depl.P.B. 

Ann Arbof, Ml 48106 London, WC1 R 4EJ 
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"Let me also mention that any number 

can be used as a coordinate as long as 

the chosen value remains constant throughout the cube. . . " 



lines are not drawn when the option is se- 
lected, lines can be eliminated from the 
cube if they are improperly linked.) Take a 
moment and notice the data statements 
procedure for connecting the vertices. 

Let me also mention that any number can 
be used as a coordinate as long as the cho- 
sen value remains constant throughout the 
cube {for example, (0,20,0), (20,20,0), etc.). In 
fact, drawing units of one will lead to a 
distorted plot on the TRS-80's low resolu- 
tion CRT. I prefer units of 20 because it 
allows better resolution and also fits on the 
screen (whose height is only 48 pixels). 
However, be my guest and try your own set 
of vertices — experimentation is half the 
fun! 

The cube is sligfitly distorted when 
displayed on the CRT. To understand why, 
let's examine the size of a TRS screen. The 
area used on the 12 inch monitor measures 
7,25 inches across and six inches down. Di- 
vide these measurements by 128 pixels 
across and 48 down. A pixel measures ap- 
proximately 0.056 inches by 0.125 inches. 
These rectangular shaped pixels result in a 
greatly distorted plot of a line in most 
cases. For example, the plot of a line from 
(0,0) to (47,47) results in an angle of line to 
horizon of over 70 degrees while it should be 
only 45 degrees. In terms of a cube, the 
sides then become flatter than they really 
are. (After all, the TRS-80 isn't a $30,000 
graphics computer.) The hardcopy also has 
some distortion, although it is not as great 
as on the CRT. 

Other drawbacks include the fact that 
Basic is extremely slow. However, it would 



Progra 


m continued 








430 


A(I,2)= 


-A1*C0S{L)*SIN(H) - A(I,2)*SIN{L)*SIN(M) -h A (I , 3 ) | 


*C0£ 


;k) 








440 


NEXT I 








495 


REM * * * 


* * * 


* * * * 


***************** 


496 


REM * 






* 


497 


REM * 


PLOT X,Y COORDINATES ON SCREEN * | 


498 


REM * 






* 


499 


REM * * * 


* * * 


* * * * 


***************** 


500 


CLS 








510 


PRINT@0, X; Y; 


I . 




520 


FOR 1=1 


TO 8 






530 


IF I = 


G2 THEN 580 




540 


X0 = A(I,1) 




■^ 


550 


Y0 = A(I,2) 






560 


IF A(I 


4) <> 


G2 THEN 


XI - A(A(I,4),1): Yl = A{A(I,4),2): 


GOSUB 90 








570 


IF A(I 


5) <> 


G2 THEN 


XI = A(A(I,5),1): Yl = A(A(I,5),2): 


GOSUB 90 








580 


NEXT I 








595 


REM * * * 


* * * 


* * * * 


***************** 


596 


REM * 






* 


597 


REM * 




HARDCOPY REQUESTED ? * | 


598 


REM * 






* 


599 


REM * * * 


* * * 


* * * * 


***************** 


600 


IF A$="Y" 


GOSUB 


800 




695 


REM * * * 


* * * 


• * * « 


***************** 


696 


REM * 






* 


6 97 


REM * 




^AS AUTO 


ROTATION IN EFFECT? * 


698 


REM * 






* 


699 


REM * * * 


* * * 


* * * * 


***************** 


700 


IF C$="N" 


THEN 


STOP 




710 


RESTORE: 






REM REINITIALIZE VERTICIES & 


711 








REM CONNECTIONS, END ZQ LOOP 


720 


FOR 1=1 


TO 8 






730 


READ A(I,1) , 


A(I,2), 


A(I,3) , A(I,4) r A(I,5) 


740 


NEXT I 








750 


NEXT ZQ 








760 


STOP 








800 


REM * * * 


* * * 


* * * * 


****************> 


801 


REM * 






* 
Program conunues 



.^^ 



(# 



»» 



If You've Written an 
Outstanding Program- 
We'd Like to Publish Itl 

We're looking for EDUCATION 

Programs: 

SPECIAL EDUCATIONjAID 

TO THE HAiroiCAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit todayl 

INSTANT SOFTWARE. INC. .^2 

Submissions Dept. 

Peterborough. NH 03458 



MODEL III 
TREASURE HUNT 

FIND THESE: 

Relocating macro assembler, linking 
loader, symbolic debugger, text editor, 
print spooler, interactive editor/assem- 
bler, disk-disassembler, command 
processor, disk exam/modify, disk 
utilities 

ALL FOR $99.00 

Clue: -.-*** 

PDS ^'^' 

ALLEN ASHLEY 

395 SIERRA MADRE VILLA 

PASADENA, CA 91107 

(213)793-5748 

Also: Cross assemblers for 8048, Z-8, 1802, 3870. 
S-2000, COP-400 — $75.00 eacri. Cat! tor deiails. 



of nol being able to read the digital 
tape counter without changing 
positions every time? 

— Then try the 

DATA VIEW 

designed to position ih< 
recorder at the propn 
angle for effortless view 
ing of the counter. 

Constructed of durable translucent acrylic 
in a beautiful smoked gray tint with slip 
resistant padded feet. Only 8.95 each 

TO ORDER: Send check or money order for| 
8.95 + 2.00 for shipping and handling. 
California residents add 6% sales tax. 

REMTRON ^A99 

P.O. Box 2280 

Santa Clara. CA 95055 

Dealerlnq. InvHed NOCGD'S 



'Sm Uat of AtlY9ni99n on pag» 354 
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-80 

SPACE 

RAIDERS 









STARSHIP SIMULATOR 

and 

COMBAT GAME 

Real-time action graphics place you at starship 
controls, displaying continuous 3D motion thru 
stars! 

Screenand instruments updated 30 limeseach 
secdnd! 

Accurate celestial navigation thru galaxy with 
both XYZ and Spherical Coordinates! 

Ultimately realistic, this search and destroy 
simulatton begins where ordinary games end! 

TRS-80 MODEL 1 LEVEL II 16K 

BOSEN ELECTRONICS ^4,6 

445 E. 800 N, Spanish Fork, UT 84660 

(801)798-9553 

$24.95 

MasterCard, VISA. Chedx^ Money Order, CO D 




Now for a ""^"^^^^^V ^'^^'1 '"■ 
vestrrienl you can ^^^*iw have the 
power and accuracy of the computer in 

your job costing. We have developed pro- 
grarr^ to run on ttie Radio Shack TRS-80 
Model 11 Computer which produce the follow- 
ing reports: 

• CriiTiQlele Job Cost Reports 

• Job Scheduling 

• Work !n Process Report 

• Or>-llne Job Status Inquiry 

• Operal'on Productivity Report 

• Materia. Usage Summary 

• Employee Charge Out Summary 

The program prompts tfie operator through 
every step in plain and simple English. Only a 
te* hours of Instruction and preparalion are 
needed '0 begin use. It's ideal toi the small 
company with 5 to 50 employees. 

The price Is $495.00 for the program and 
complete lns(ru",(ions. A set o( sample reports 
aid available tor $19.95 which is applicable 
toward purchase. 

□iriMjSvsTEins 

,^439 

Su;le 208 404-455-6M9 

2957 N, Dekalb Drive 

Doraville. GA 30340 

or 

P.O. Box 6555 Macon, GA 31208 

912-745-5822 



Progran 


continued 




802 REM * 


HARDCOPY ROUTINE - DESIGNED FOR 132 BY 66 FORMAT 


* 


803 REM * 




* 


804 REM * 


»ii******it*it^************« 


* 


805 LPRINT 


X; Y; Z: LPRINT 




810 FOR I 


= TO 47 




820 


FOR J = TO 127 




830 




IF POINT(J,I)=0 THEN LPRINT ".";: ELSE LPRINT 


#"; 


840 


NEXT J 




850 


LPRINT 




860 NEXT I 






870 FOR I 


= 1 TO 16 




880 


LPRINT 




890 NEXT I 






899 RETURN 






900 REM * 


************************* 


* 


901 REM * 




* 


902 


REM * 


PLOTTING ROUTINE 


* 


903 


REM * 




* 


904 


REM * 


************************* 


* 


910 


EF X0 


=X1 THEN 980: REM IF DIVISION BY ZERO, USE 




911 




REM y FORMULA WITH X CONSTANT | 


920 M={Y0- 


!fl)/(X0-Xl) : REM SLOPE FORMULA 




930 


BZ=Y0~ 


«*X0: . REM EQUATION OF A LINE 




940 


"^OR R 


= X0 TO XI STEP SGN(X1-X0) 




950 


SET(M*R-l-BZ-»-64,R-»-24) 




960 


NEXT R 






970 


RETURN 






980 


FOR R 


= Y0 TO Yl STEP SGN(Y1-Y0) 




990 


SET{R-f64,X0+24) 




1000 


NEXT 


R 




1010 


RETURN 




1100 


REM * 


************************ 


* * 


1101 


REM * 


HIDDEN LINE REMOVAL SUFROUTINE 


* 


1102 


REM * 


CALCULATE THE FARTHEST VERTICE FROM vIEW POINT 


* 


1103 


REM * 




* 


1104 


REM * 


************************ 


* * 


1110 


G1=0 






1120 


FOR D 


= 1 TO 8 




1130 


G=SQR({A(D,1)-X) 12 -1- (A(D,2)-Y)[2 -f {A(D,3) -Z) [ 2) 




1140 


IF 


G>G1 THEN G1=G: G2=D 




1150 


NEXT 






1160 


RETURN 




1995 


REM* 


************************* 


* * 


1996 


REM* 




* 


1997 


REM* 


THE FORM OF THE DATA STATEMENTS ARE : 


* 


1998 


REM* 


X, Y, Z, CONNECTION #1, CONNECTION *2 


* 


1999 


REM* 


****************** . ****** 


* * 


2010 


DATA 


0, 0, 0, 2, 3 




2020 


DATA 


0, 0, 20, 1, 5 




2030 


DATA 


0, 20, 0, 6, 5 




2040 


DATA 


20, 0, 0, 1, 7 




2050 


DATA 


0, 20, 20, 3, 8 




2060 


DATA 


20, 20, 0, 4, 8 




2070 


DATA 


20, 0, 20, 4, 2 




2080 


DATA 


20, 20, 20, 7, 6 




3000 


REM * 


************************ 


* * 


3010 


REM * 


LIST OF VARIABLES USED AND THEIR MEANING 


* 


3020 


REM * 




* 


3030 


REM * 


A( , ) USED FOR BUILDING/STORING THE CUBE 


* 


3040 


REM * 


I FOR LOOPING PURPOSES 


* 


3050 


REM * 


A$ HARDCOPY RESPONSE 


* 


3060 


REM * 


B$ HIDDEN LINE RESPONSE 


* 


3070 


REM * 


C? AUTO ROTATION RESPONSE 


* 


3060 


REM * 


ZQ FOR LOOPING PURPOSES IN AUTO ROTATION* 1 


3090 


REM * 


X X COORDINATE 


* 


3100 


REM * 


Y Y COORDINATE 


* 


3110 


REM * 


Z Z COORDINATE 


* 


3120 


REM * 


L ARC TANGENT (Y/X) 


* 


3130 


REM * 


M ARC TANGENT (Z/X) 


* 


3140 


REM * 


Al TEMPORARY HOLDING VARIABLE 


* 


3150 


REM * 


X0 X COORDINATE (FROM) 


* 


3160 


REM * 


XI X COORDINATE (TO) 


* 


3170 


REM * 


Y0 Y COORDINATE (FROM) 


* 


3180 


REM I* 


Yl Y COORDINATE (TO) 


* 


3190 


REM * 


J FOR LOOPING PURPOSES 


* 


3200 


REM * 


« SLOPE 


* 


3210 


REM * 


R FOR LOOPING VALUE 


* 


3220 


REM * 


D FOR LOOPING PURPOSES (HIDDEN LINES) 


* 


3230 


REM * 


G DISTANCE FORMULA 


* 


3240 


REM * 


Gl LONGEST DISTANCE VALUE 


* 


3250 


REM * 


G2 POINTEr TO LONGEST DISTANCE VALUE 


* 


3260 


REM * 




* 


3270 


REM * 


************************ 


* * 
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This is . . . 




Your last chance 



to get 80 MICROCOMPUTING for only $18 a year. 



August 1, 1981 the price of 80 Microcomputing is going up. The cover price wiU be $2.95 and 
the subscription rate will be $35 for one year. But you still have a chance to renew or 
subscribe at the old rates .... send in the card (if the cards are gone, a photocopy of the 
coupon will do) before October 1, 1981 and you can get 80 Microcomputing at the old rates. 

You get more information for your TRS-80* from 80 Microcomputing than from any other 
single source. One of the numerous (we've been averaging thirty a month) programs from each 
issue put to use can easily pay for the subscription price. Even at $25.00 a year. But beat the 
price increase and continue to get the hundreds of pages of reviews, articles, programs, and 
applications for only $18.00. 
Remember after October 1, 1981 no 
previous offers to 80 Microcomputing 
at a price less than $35.00 will be 
accepted. So send in the card today. 



r 



Yes, 



I want another year of 80 Microcomputing at the low price of $18.00 



BiUm«n 



BiUmy VISA AE 



MC 



Obeck enclosed D 




Wajine GreBn Inc.. Peterborough NH C04S8 



Name 










Aririrflu 




— »ip. 






Citv 
Si^nAturf! 


State 

Expire Dat« 








Int€rb«iUT " 









Drrer Axpirw Ocwbvr 1, 1961 

If you are renewl ng, 

the number from your aildr-is? '.ahfi". wo'ild he helpful 



<Xn&dl&n 1 jmr onljr OJB fundi ISO 00 Tontffy 1 y«&r amy U6 run<U tas 00 
80 MkarMompuung . PO Box eel . F&fiTiin#ilaie. fn 11737 



319B8 



»'S«aLfstof A(f»rt/sarsonpa0a354 
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'80" SHROUDS 




module of 
fiberglass 



■■ Other Models 
*LNW ..EMI-CASE..$32.50 

*LNW SHROUD $27.50 

*"B0" SHROUD $24.50 

Add $2.'^'shippfng & handling 
N.Y.S. residents add 7% sales tax 

^358 

SYRACUSE R&O CENTER 

Box 125, Dewitt, N.Y. 13214 

"Speclaltztng In Electronic Packaging" 



FUU SCREEN TEXT EDITORS 
FORTHETRS-80* 



Now thete are products that will allow you !o p'ogidrri 
l.ke the professionals do H you enjoy Ihe SopbistL(,d 
tior. ol WMling your own programs then you aie in tor a 
fea\ trea;wiien you use our edMors Feaiures mr IuOp 
lull scieen display, complete conlroi nvei scrolhnq 
and cursor movemenl. character change inseri de 
lore. inseH. delete, copy, move imes or blochs ol lines 
renumber global tind and change 
BASIC editor runs trom tape or clisK Once loatleo d 
sirigle command inyohes our eitended edit mode with 
powers and abilities 'ar beyond those ot conveniiondi 
editing' Advanced teatures include user detmah/e 
macro keys and the powerlui program ri'slruclunng 
tool SELECTIVE RENUM8EH 

EOTASM editors are compatible wuh EDTASM luuice 
tape tiles Disk version includes patch lo 'un Radio 
Shack' EDTASM Irdm disk' All produris are shipped 
on tape lor level 2 machines and include a compreht-n 
Sive owner s manual. 

The Text Editor for BASIC Ordei oKiiu 20 2a. 95 

The Text Editors tor EDTASfirt Source Files 

Tape V8f sion OfOer « 1 1 30 24.95 

Disk Version (Req. 32K and up)Or<ier #N)iO 3i 3d 95 

New: X8UG satf-relocaling debugging tool with 
multi-speed Sirfgle step facilily. 

Order «1020-10 $19,95 

Send check or money order (no COD&i to f^'^l 

It ordering by credit card, pleasf I'lciudf an L. -"" 
information on credit card ^S^ 

/7/ / computer "■ 
/j/j applications 
C(7tm unlimitedtm 

A Div ol CAU Inc 
Posi Oltice Bot 214, DepI 18' Rye. iVew York Wb80 



N y Slate residents please afld applicable sales lax. 
Please alloM 4-6 wee*s delivery Dealer inquiries invited 
'Radio ShMCk mnd TRS$0 an rmlsund trtdtmarkM of 
L. The r«ndx Corp. . ,^7 
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"There are an infinite number of shapes to draw 
and an infinite number of ways to loot< at them." 



prove to be a difficult program in 2-80 as- 
sembly language. Also, due to the distor- 
tion by the CRT, I've found that rotation vKith 
just the Z axis vi^orks better than any other 
axis or combination of axes. 

Expansion of this program is necessary 
to speed It up and allow for other shapes to 
be dravi/n. Three areas can be identified for 
further Investigation. First, smaller inter- 
vals should be used in the auto-rotation 
routine. This vi/ould make the cube rotate 
with more fluidity. Next, machine language 
should be part of the code, helping to speed 
up the plotting and allowing the cube to be 
turned faster. Finally, other polyhedra 
should be tried. Unfortunately, this will 
probably lead to the use of a matrix manipu- 
lation method for representation and an en- 
tirely different program logic. 



I've just scratched the surface of a very 
technical, yet beautiful subject. There are 
an Infinite number of shapes to draw and an 
infinite number of ways to look at them. For 
those with adventure in their hearts, having 
the program rotate rectangles should pro- 
vide some viewer excitement. A step be- 
yond rectangles are pyramids, but I dare not 
hazard a guess as to what they look like 
when rotated! 

A text. Principals of Interactive Computer 
Graphics by William Newman and Robert 
Sproull (McGraw Hill, 1973) deals with this 
subject and others in great detail. If I had 
read this book years ago, these rotating 
cubes would undoubtedly have approached 
the quality of those produced on fine graph- 
ics computers. After all, the TRS-80 can't be 
too far behind. ■ 



10 DEPINT I,X,Y,J,W,E,R,K,G,D:E=60:W=25:DIMA(8,5) 

20 F0RI=1T08:READA(I,1) ,A(I,2} ,A(I,3) ,A(I,4) ,A(I,5} :NEXT 

50 CLS 

60 INPUT "PLEASE ENTER THE VIEWING COORDINATES (X Y Z)";X,Y,Z 

70 INPUT "HARDCOPY REQUIRED (Y/N)";A$ 

71 INPUT "ARE HIDDEN LINES DESIRED (Y/N)"rBS 

72 INPUT "AUTO ROTATION (Y/N)";C$ 

75 IFC$="Y"FORZQ=-3TO3:Z=SGN(ZQ}*10(ABS(ZQ) :X=50:Y=50 

80 IFX=0 L=SGNCY)*1.5708:H=SGN(Z)*1.5708:GOTO90 

85 L=ATN(Y/X) :M=ATN(Z/X) 

90 IFBS="N"GOSUB 90 

100 SL=SINa} :SM=SIN(M) :CL=COS (L) *SH:Cin=COS (H) :A4=SL*SH 

130 F0RI=1T08 

135 IFI-G2THEN A1=A(I ,1} : A( I ,1) =A(I ,2) *SL-A1*SL+W: A( I , 2) =A( I ,3) * 

CM-A1*CL-A(I,2)*A4+E 

140 NEXT 

200 CLS:PRINT@0,X;Y;Z 

210 FORI=1TO8:IFG2=ITHEN240 

215 X0=A(I,l}iY0=A(I,2):J=A(I,4) 

225 IFJ-G2 THEN X1=A{ J,l) :Yl=A( J,2) :GOSUB700 

230 J=A(I,5) :IFJ=0ORJ=G2THEN240 

235 X1=A(J,1) :yi=A(J,2) :GOSUB700 

240 NEXTI 

250 GOSUB500 

260 IFCS="Y"THENREST0RE:F0RI=1T08:READA(I,1) ,A(I,2} ,A(I,3) ,A(I,4 

) ,A(I,5) :NEXTI,ZQ 

270 STOP 

500 IF A$="N"RETURN 

503 LPRINT X;Y;Z!LPRINT 

505 FORI=0TO47 

510 FORJ=0TO127 

520 IFPOINT(J,I)THENLPRINT"#";:ELSE LPRINT"."; 

530 NEXT:LPRINT:NEXT 

540 FORI =1T016: LPRINT: NEXTrRETURN 

700 IFX0-X1THEN720 

710 FORR=Y0TOY1STEPSGN(Y1-Y0) :SET(R,X0) :NEXT:RETURN 

720 M=(Y0-Y1)/(X0-X1):BZ=Y0-H*X0 

730 FORR=X0TOXaSTEPSGN(Xl-X0} :SET(M*R+BZ,R) :NEXT:RETURN 

900 G1=0 

910 FORD=lT08:G=ABS{A(D,l)-X)+ABS(A(D,2)-Y)-hABS(A(D,3)-Z) :IFG>G1 

THENG1=G:G2=D 

920 NEXTrRETURN 

2000 DATA 0,0,0,3,0 

2010 DATA 0,0,20,5,1 

2020 DATA 0,20,0,6,0 

2030 DATA 20,0,0,1,7 

2040 DATA 0,20,20,8,3 

2050 DATA 20,20,0,4,8 

2060 DATA 20,0,20,2,0 

2070 DATA 20,20,20,7,0 

Program Listing 2 



NOBODY KNOWS MORE ABOUT 

ADDING MEGABYTES TO YOUR 

TRS-80 MODEL II* THAN 

AMERICAN SMALL BUSINESS 

COMPUTERS 



THECAMEOCONNECTtOM 

The Cimeo 10 Million Chi 
ricter Disk Drive Subsyitcm 
Ipiclund in tareground) h A 
b Megabyte Fixed, Si Migi 
byli Ftfmvvable Gartridss 
Type Dnk Drive Advin 
tagei To This Unit Are Eiu 
ot Backup For Data and Pro 
gram Filesand Low Coit By 
Attaching A Mulliplexor Unit 
Several Model ll'i Can Be 
Attached To The Cameo D>tk 
Drive. For Further Pricing, 
Availability, and Operating 
Syitemi Optiont. Call or 
Write to American Small 
Busmen Computers and ask 
for the CAMEO CONNEC 
TION. 




THECORVUSCOMHECTION 

The Corvui Disk Drive Sub 
system {center of pictural li 
Available in B, 10, and 7Q 
Million Char?:ter Capacities. 
The Corvu. <yilem Is The 
Ultimate In The Saaled 
'Winchester. All Fiied' 

Type Driv.. The Corvui Is 
Designed 1 >. Operate In The 
Marsheit Enuronmenti Such 
As Factories, Oil Rigi, Etc 
Backup Ot Data li Accom 
plishad Via Optional MIP 
RDR Backup DeviLi: Where 
by Data Is Writlen Onto A 
Standard Video Tape Record 
er A Great Number ol 
Model M's May Be Attached 
To The Cofvui Vii An 
Optional CONSTEtLATIGN 
Multiplexoi. Fo' Further 
Pricing, Availabiiity, and 
Operating Systems, Call Or 
Write to American Small 
Business Computers and Asii 
tor the CDRVUS CONNEC- 
TION. 



THE AMERICAN SMALL BUSINESS COMPUTERS MINI-WINCHESTER SPECIAL 

Tht MINIS (being htid by Corporitt Pntiiltnt Rotatrt Wtbslir) Is Amsriun Smtll Butintsi Computir's Very Own 
Otsk Subsysttm. The MINt-5 Offirs ApproKimitily S Millien Chericttrt •! Intormition StoriQe and is 6n«tl On the 
Famous Seagate Technolosy ST $06 Micro WinchtsUr Drivt. Now You Can Own Stata Of-ThoAn Technology At An 
Affordable Price - Only $3&00 - Which Includes Drive. Confrellor Electronics, Power Supply. Cabinet, Cebles, Docu- 
mentation and Operating System Software. 



DEALER INQUIRIES INVITED 
AMERICAN SMALL BUSINESS COMPUTERS ... 

•TM TANDYCORPORATION 

118 SOUTH MILL ST. PRYOR, Ok. 74561 918-825-4844 



xs 



AMERICAN 



118 SO. MILL ST • PRYOR, OK 74761 
PHONE (918) 829-4844 



ALL LibItU PHiCfcS AHL CAbU DISCOUNTEU WE ACCEPT MC VISA. AND COO (REOUIHES CERTIFIED CHECK. CASHIER S CHECK OR 
CASH I FOn CHARGE ORDERS PLEASE ADD 3<^<. FOR COD SERVICE. PLEASE ADO S% SHtPPING ANO HANDLING ARE FREE ON ALL 
ORfieRS OKLAHOMARFSIOEN'^SPlFASE ADO*% SAIFSTAX 



72K EXPANSION INTERFACES 



SPECIAL OFFERING 

Duv to a vtTv special purchase. American 
Business Computers ib cibk' to offer a limited 
number uf Radio Shaik' Hxpansion Inter- 
faces at the lowest price ever 

AmeriHiTH Business Computers guarantees 
Expansion Interfaces to be Brand New — 
with original documentation and in perfect 
workiny condition 



J59 



95 




vaasT 



NEW PRODUCT FOR THE COLOR COMPUTER.. ."PACKET MAN" BY GREG ZUMWALT 

III ihib «!xciiin9 new adventure for the Color Computer* . you attempt tu "eat' the dots and escape from the three 
iiltl«? m jnthkins who are always chasing you This game upan written in machine code to take full advantage of the 

color computer' s capabilities Only {25. 00 

MOON 1 ANDFR FOR THF COLOR COMPUTER Bi/ Grey Zomuair On^ $14 95 ^ia 



OTHER STUFF & ODDS - AND - ENDS 



PAPLH FOR YOUR PRINTER 
9 1/2 X 11 - Tear off perforations 
and you havt an S 1 2x11 "rut sheet" 
:iZ(KI shtu'ts of l.'> pound pap.'r S^9 95 



CONTINUOUS FNVFLOPFS 
Fan Fold Envelopes with tractor per- 
forations down either side Envelope 
si^ewilhperfs 4 1 2x11' 

PRICE 39 95 per 1000 

price indudes shippiny 

ir! Conll'lC'ituI U S. . 



• NOTICE • 

BY the: TIMt you 

READ THIS. WE 
SHOULD HAVE OUR 

DIRT CHEAP 

MINI DISK DRIVES 

AVAILABLE HOR THE 

MOD III - 

PRICE: Less than 

$599.95 



DISGUSTING!! 



That ' s what we thiiilt 
about the price of 
most good 'Letter 
Ouaiiiy" Printers Our 
Starwriter \b Bidirec- 
tional and out 'bpetis' 
tht' others hands 

down 

$1450"" 



itit 




p' 



J 



ATTENTION: 

CORVUS OWNERS 



American Business Computers NOW 
offers a fully compatible TRSDOS" 
operating system Our System, called 
CORDOS. runs all 10 MB. Revision B 
Corvuh drives The Program in this 
package contains a Master Program 
which will convert a user' s operating 
system disk iVer^ion 2 0) to an en- 
hanced system capable of the fol- 
lowing 

Completely transparent use of 
the Curvus Hand Oi^k Drive 

— Complete compatibility with 
existing programs 

-All utilities (except Format and 
Backup, which should not be 
used) wilt operate normally 

Price iiOO.OOuiith manuo\ 

DEALER INQUIRIES INVITED- 
CORDOS Author-Andy Frederickson 
'TM of Tandy Corporation 
'TM of Corvus Systems 
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SMALL BUSIN 
COMPUTERS 





118 SO. MILL ST. • PRYOR. OK 74761 • (918) 829-4844 



•TM TANDYCORP 



SUPERPRINTER 

THE EPSON 
IVIX-80 




This 13 the new Epson MX-SO Oot malni printer II does |u9t eOoul everything you could 
asK 3 pnnief lo do-quickiy. guieHy. reliably In (act. lor OEM insiailalions. [he MX-SO may 
be (he single besi , all-around printer you can Buy But that ' s not Itie Beat feasor lo Buy il 

The MX-SO prints tiidirecl'onally at 80 CPS «n a usef-detmed choice o( 40, SO. 66 or 132 
columns And it ihars not 'ast enougi ils logical seeking function mmimiies print head 
I'ave' lime The MX -80 pnnis 9C ASCII 64 graphic and eight Internaiionat charectors with a 
lack-sharp 9x9 mattii Far a lung time Epson orinteis are known for reliabilily and the 
MX-aoi9 noeiception But that snot the best reaton toOuy n.eilher. 

The print head nas a lite eipeciancy ol up to 100 « 10 characters . and when it wears out. 
|usl throw It away A new one costs less than S30 and the only tool yoj need to change il is 
attached lo the end ol your arm The MX-80 is compact weighs only 12 IDs., and the whole 
unit, including the two stepper motors controlling carriage and paper feeding functions, is 
precisely controlled by an internal microprocessor But even Ihat isn ' I why you aliould 
specify iheMX-BO 

The besi reason is this because Epson 
makes more printers than anyone else in IF YOU BUY AN MX-BO AND DON T 
the world we can atlo'd to sell each one CHECK OUR PRICE — YOU PAID TOO 
lor a Utile less MUCH' 

AW...WHAT THE HECK 

RAM Memory Chips for the TRS-80 



lOKIfMTA MICROLINE 80 
PRINTER — $>99"*' 

The Micronne is buill on a rugged cast alumi- 
num base Id withstand the rigors ol continuous 
business use n is driven by two motors and 
will run All day wilh no duly cycle iimiiations 
M icroline printers use a dense 3x7 dot pattern 
to produce crisp, clean copies. Iirst copy to last 
The seven pms m the head are "fired' using 
energy stored in tension members Thts tech- 
nology permits the use ol short, low mass pins 
made with an eatremely hard atloy Thr 'ead 
pioduces less tie.:! 



U is the policy of ATciLdn 
Business Compute's to otter 
merchandise at the lowest 
price Dossible Several 

months QacH. we began sell- 
ing BAM Memory Chips tor 
the TPS-80 lor $45.00 
per set Someone eise sold 
chips for S44 DO We sold 
them for S3e 00 They Mifl 
them for S37 95 So we sav 
"AW WHAT THE HECK'- 
Lel s see the other guys 
Deat ih'S price 



$19 



95 



PER 16K SET 



These chips are branO new 
■4116 3' These 2Xi nano- 
second chips are funy 
compaliDle with ail TRS-SO 
products Instructions for 
insertion are ir[:luded. how- 
e.'e' the diQ shunts required 
for converting a 4K Model I 
10 a 16K Model I are not 
incitJd«d at this low pnce. 



• CHECK IT OUT! • 

EPSON MX-8O1T 

That iri^hl - MA HOI-T 
The FT on the end means Friction 
and Traclor The Fantastic MX-80 
Printer is now available in a version 
which will accept letterhead-type 
paper AND tractor-type paper Call 
or write for our (as always) un- 
believable low price. 
Also availab''' ' * V ""^ 



k < y J or\ 



• RETROFIT YOUR ^ 
MX-80 TO AN MX-80n 

ADD A PLATEN TO YOUR MX 80 
TO ALLOW USE OF LETTER- 
Hi.AI» OK KULL PAPER $69.95 



DIRT CHEAP ...$279 

Bui Highly Reliable Yes. our Mint Disk Drives have an esTimaled 
8000 Power-On-Hours Mean Time Between Failure (Thais 8 
Hours A Dav. 5 Days A Week, for 3 85 YEARS). Our drives also 
feature a lead screw h^ad positioner ■ not a cheap band t^pe 
positioner H you purchase a Mini Disk Drive with a band type 
positioner, you are buying an INFERIOR PRODUCT' If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market This is one example where \>ou can 
pay less and get more 



-TRS'SOMODEL I VERSION 
Complete with Power Supply A CaCm 




7 



-See List of Xdvertisars on pa^e 3S4 
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REVIEW. 



A look at some advanced utilities for the serious hacker. 



Software Tools for the Craftsman 



Remodel and Proload 
Infinite Basic 
Racet Computes 
Orange, CA , 

Maurice M. Small, Ph.D. 
University of Missouri 
5400 Arsenal St. 
St. Louis, MO 63139. *- 



Any programmer knows that TRS-80 
Level II Basic has limitations, primarily 
its lack of renumbering, merge and append 
functions. It is also difficult to add new 
statements and commands to the language. 
Finally, Level II Basic is an interpreted rather 
than a compiled language. This discour- 
ages a structured programming approach, 
making it difficult for even experienced pro- 
grammers to understand a long program 
several months after it was written. Three 
utilities available today all but eliminate 
these limitations. 



Remoflel & Proload 

Remodel & Proload by Racet Computes 
of Orange, CA, comes in three versions 
(16K, 32K and 48K), loads into the top of 
memory with the System command, and is 
approximately 3K long. Also included are 
two well-written user's manuals which 
document the utility in a straightforward 
manner with text and examples. The pro- 
gram comes on a high-quality cassette (two 
copies on the same side), loads without 
hitch (in six months of frequent use I have 
yet to experience a loading problem), and 
can be easily transferred to disk or stringy 
floppy. 

Remodel {REnumber MOve DELete) gives 
complete freedom in renumbering any por- 
tion of a Basic program (or the entire pro- 
gram) and in moving or deleting sections of 
Basic code (either a line or a complete sub- 
routine) at will. 

About the only restriction on this free- 
dom is that Remodel and Proload will not 
execute a command to overwrite an exist- 
ing line. For example, if you tried to move a 
section of code into an area where it would 
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overlap other lines (e.g., move lines 10 and 
20 between lines 30 and 31) Remodel and 
Proload will give you an error message 
(Range Bad Redo) and return you to the in- 
put state. 

This procedure could be accomplished, 
though, if you renumber line 30. 

The command format is simple and 
straightforward, and it returns to the com- 
mand input state after executing each com- 
mand. This is convenient for executing a 
series of commands. Exit and reentry are 
also uncomplicated: Simply depress the 
Break key (return to Basic) or type ? USR (0) 
(reenter Remodel and Proload). The other 
side of the cassette contains two copies of 
just Remodel. Since Remodel alone takes 
about IK less room than the combination, 
load this side of the tape when memory 
space is at a premium. 

With Remodel and Proload you can 
develop a library of data statements or 
string literals (1000 A$ = "in capital 
letters"). Since Proload allows partial or 
complete loads, loading programs from 
tape, and appending or merging them with a 
program in memory, you can effortlessly 
pass data statements and even USR rou- 
tines (if the USR routines are stored in 
data/string literal statements) between pro- 
grams. This method is considerably faster 
than using Input #—1 and Print #—1 
statements. 

Possibly of even greater importance. 
Remodel and Proload encourages struc- 
tured programming. The program is divided 
into two major parts: a control section con- 
sisting of a loop which calls in sequence the 
relevant subroutines via GOSUB state- 
ments, and a list of subroutines which make 
up the body of the program. Proload creates 
a library of useful general and special- 
purpose routines which can then be ap- 
pended or merged into your application pro- 
gram as needed. Not only does this simplify 
debugging and greatly increase your pro- 
gramming productivity, but with proper 
documentation it also makes your pro- 
grams more readable and understandable. 

t can now create long and complex pro- 
grams in much less time than it took to 
write, type in and debug many shorter sub- 



routines in the library. Remodel and Proload 
has increased my productivity at least 
threefold. 

Infinite Basic and Extensibility 

Infinite Basic comes in two versions (cas- 
sette and disk) on a high-quality cassette, 
and includes two well-written and complete 
manuals. Infinite Basic has a system mod- 
ule (basic interface, system routines and 
linking loader) as well as several applica- 
tion modules (Infinite String— 50 new string 
functions, Infinite Matrix— 30 new matrix 
functions, and Infinite Business— selling 
separately for $29.95 but requiring Infinite 
Basic and providing 20 additional func- 
tions). 

Obviously with so many functions avail- 
able not all of them are loaded into RAM at 
once. The user must first select the func- 
tions for a particular application program, 
and, with the systems module, create a ma- 
chine language load module containing 
these desired functions. This load module 
can reside at almost any memory location. 
It is then saved separately on cassette, disk 
or wafer. When reloaded the load module 
provides the desired functions. The Infinite 
Basic functions run considerably faster (at 
machine language speed) and are more 
compact than similar Level II Basic subrou- 
tines. Moreover, the machine language load 
modules can be stored in Basic statements 
(data, string, string literals and dummy REM 
statements). Thus, the modified load mod- 
ule can be selectively loaded and saved by 
Proload (like Basic subroutines) as well as 
becoming a permanent part of the user's 
application program. 

Infinite Basic Functions 

The Matrix Input/Output group— the 
Matrix Read and Write Tape as well as the 
Matrix Data Read and Restore state- 
ments — are extremely efficient because 
they operate on entire blocks or arrays. This 
speeds up data (string and/or numeric) in- 
put and output at least twofold. 

The statement format allows you to 
specify the number of elements to be 
operated on, a block number permitting on- 
ly selected parts of the data tape to be read 



by a subsequent Matrix Read Tape state- 
ment, and the cassette number (0 or 1). 
Similarly the Matrix (data) Element Read 
and Restore statements, which operate on 
data statements, are considerably faster 
than their Level H counterparts. They allow 
you to specify the number of data elements 
to be read in addition to the Basic state- 
ment (line) number, where any subsequent 
read will begin. 

The Infinite Basic Matrix package also 
contains a generalized subroutine Call and 
Return function. These functions, as in For- 
tran, permit you to temporarily specify vari- 
able names corresponding to those used in 
a subroutine and are very useful, for exam- 
ple, if you have a subroutine to sum the data 
from several different arrays. 

The Infinite Basic String package uses a 
number of functions to compress and de- 
compress strings and data from eight bits 
per character to four, five, six, or seven bits 
depending on the type of character involved 
(numeric, alphabetic, alpha/numerics and 
alpha/numerics containing lowercase char- 
acters respectively). Also included are func- 
tions which pack and unpack character 



"In a nutshell, Infi te Basic 

confers upon your Level II ROMs 

a considerable degree of extensibility." 



strings by special encoding of repeated 
characters. 

Appropriate use of these functions often 
lets you store a lot more data in memory 
than you could otherwise. String transla- 
tion functions (a character-by-character 
translation of one string into another), 
string manipulation functions (justification, 
truncation, packing, shifting, rotation, dele- 
tion and insertion), as well as others, are 
supported. 

The Absolute String Manipulation func- 
tions enable you to manipulate strings di- 
rectly without the considerable overhead in- 
herent in the use of the Basic MID$, LEFTS, 
or RIGHTS statements. For example, con- 
sider: 10 A$= "ABCD. .GHIJ" 20 A$ = 
LEFTS(A$.4)-i-"XX"+RIGHTS(A$,4). Line20 
creates three separate strings (LEFTS part, 
LEFTS + "XX", and the final result) in the 
string storage area. 

By allowing you to directly manipulate 
strings, the Infinite Basic functions (such 
as &STIN-String Insert) all but eliminate 
string reorganization problems, which oc- 
cur because garbage collection routines in 
the Basic monitor must take time out to 



eliminate some of the overhead produced 
by string manipulation in order to make 
room for new text. 

Finally, the sorting functions of Infinite 
Basic are extremely powerful, flexible and 
fast (30 times faster than the fastest sorts 
in Basic). 

Infinite Basic provides to the Level II or 
Disk Basic user a wide range of powerful 
functions (100 in all if you purchase infinite 
Business). This is like having a library of 
tested, well-documented and highly opti- 
mized machine language user routines. 

Since the Infinite Basic functions are 
called by Basic-like statements, you don't 
have to use the awkward and slow USR 
command every time you need a new func- 
tion. Furthermore, you add just the Infinite 
Basic enhancements that you need, making 
for efficient use of memory. 

In a nutshell. Infinite Basic confers upon 
your Level II ROMs a considerable degree of 
extensibility. For me this has often 
eliminated the need to resort to Assembly 
programming when my application pro- 
gram required specialized, extremely fast 
subroutines. ■ 



SAVE^UP TO $600.00 NOW 
on TRS-80^Computers & Accessories 

With This Coupon 

Now you can own a great little computer at a great big dicounl off the manufacturer's 
list price. For home or office use the Radio Shack line of computers is first in quahty, 
performance and price. 

• FREE SHIPPING in the 48 continental contigious states. Model II 

• NO SALES TAX collected on out-of-state orders. 

• CONVENIENT ORDERING Call us TOLL FREE. 
•FREE COMPLETE PRICE LIST available upon request. 




Catalog 
Number 

Radio Shack' 



Description 
TRS-80 Model II 



26-4002 64K 1-Disk Model II 

Radio Shack- TRS-60 Model III 

26-1062 Model III 16K 

26-1066 Model III 48K 

Radio Shack' TRS-80 Color Computer 

26-3001 4K Color Computer 

26-3002 16K Color Computer 

Atari- CX-2600 Video Computer System 

Pioneer* VP-1000 LaserDisc Player 

Mattel Electronics- Intellivision " Home Video System 

Magnavox- Odyssey^ Home Video System 

Magna vox' Magna vision' Videodisc Player 



List Price 

3.899.00 

999.00 
2,495.00 



Charge 
By Phone 

3,579.30 

865,00 
2,243,50 



399.00 359.10 

599.00 539.10 

180 00 164.95 

CALL FOR PRICES 

CALL FOR PRICES 

CALL FOR PRICES 

CALL FOR PRICES 



Cashier's 
Check Or 
Money Order 

'3,299.00 

865.00 
■2,149.00 

359.10 
539,10 
164,95 



Cash Price 
You Save 

600 .0§- 

134.00' 
346-00 

39,90 

59,00 
15,05 



Pan American 
Electronics. 



CALL TOLL FREE 800-531-7466 • (Operator 49) • Texas & Principal Number 512/581-2766 • Telex 767339 

Dept. 49 • 111 7 Conway Avenue • Mission, Texas 78572 

NEW BRANCH 

2912 N. Main, Fort Worth. Texas 76106 * Phone Number 817-625-6333 * Telex 794836 



TRS-80 is a Trademark o( Tandy Corp, 'With this coupon only! Prices subject to change w/ithout notice. 



r'S«« Uat of Aav»rtia»n on pag» 354 



80 Microcomputing, September 1981 • 169 



TUTORIAL 



Change the image of Level II Basic by adding to its lexicon. 



New Words for Basic 



Alan Neibauer 
11138 Hendrix Street 
Philadelphia. Pa. 19116 



If you've ever run into some of the extend- 
ed Basic features and were unable to find 
them in your Level II manual, don't give up. 
This happened to me while working on the 
DEC computer at LaSalle College in Phila- 
delphia. I noticed some strange statements 
peeking at me from my neighbor's terminal, 
but once I saw how they worked I knew 
there had to be a way to use them on my 80. 

Change 

Since, there were a few nice programs 
that I wanted to try on my own machine, I 
started working out appropriate subrou- 
tines. The first add statement I encountered 
was Change. This usually takes the form: 
Change X$ to X. 

This establishes the array X(n..len n) 
assigning to each array element the ASCII 
value of each letter in the string. For exam- 
ple, if the string Micro is changed through 
the Change A$ to A statement, an array A 
with six elemehts is established. Elements 
A{1) td A(5) are assigned the ASCII codes for 
the letters M I C R O. In this case, the array 
is 77, 73, 67, 82, 79. What about the sixth ele- 
ment? The zero subscript A(0) is assigned a 
number equal to the length of the string. In 
this case A(0) = 5 (or in Level II, A(0) = 
Len(A$). Program Listing 1 demonstrates 
how this would appear in a short program 
converting a string to its ASCII equivalent 
and printing the resulting array. 

This Change statement also works in re- 
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verse: Change A to A$. This converts the 

ASCII codes back to letters and restuctures 
the original string. However, the zero sub- 
script is untouched and usually is con- 
verted into an individual program line. Pro- 
gram Listing 2 demonstrates this reversal. 

By combining the ASC and MID$ func- 
tions, you can use a short subroutine when- 
ever Change is called for. By converting 
each string element to its ASCII code and 
assigning this code to an array element, the 
Change function can be simulated on the 
TRS-80. The same holds true for the rever- 
sal. Through the CHR$ function, you can 
convert the ASCII back to its letter 
equivalent and print the entire string. (See 
Program Listing 3.) 

The actual Change subroutines are lines 
1000-1030 and 2000-2030. This sample pro- 



gram requests a string to be changed. The 
first subroutine converts A$ into the array A 
assigning ASCII values to each array ele- 
ment, returning to the program body and 
printing the results. Line 1000 allows us to 
loop only the number of times needed to 
change each element of the string. These 
elements are pulled apart by the lvilD$ func- 
tion on line 1010 and assigned ASCII codes. 
Line 1030 takes care of the zero subscript. 
When the program is sent to the second 
subroutine, the Change A to A$ function is 
simulated. Line 2000 establishes the 
number of loops. Line 2010 converts each 
array element (remember— an ASCII code) 
and assigns it to a string array X$. In line 
2020, each temporary X$ array is added or 
linked to form a new string, B$. When the 
loops are completed, the final B$ contains 



5 

6 

10 
20 
30 
40 



'NEIBAUER, ALAN *ITS STILL BASIC * 

'a$ = -m?cR0" ™^ ^"''"'^^ FUNCTION - DOES NOT RUN ON TRS-80Iin 

CHANGE A5 TO A 

FOR X=l TO A(0) 

PRINT A(X) ; 



50 NEXT 



Program Listing 1. The Change Function. 



5 'NEIBAUER, ALAN *ITS STILL BASIC * 

6 'FIGURE 2, SIMULATION OF CHANGE A TO A$-DOES NOT RUN ON TRS-80 
HI! 

10 CHANGE A TO AS 
20 FOR X=l TO A(0) 
30 PRINT AS (X) ; 
40 NEXT 

Program Listing 2. Change A to AS. 



the original input string A$. This is printed 
in line 120, 

From now on, the Change function 
shouldn't scare you away from useful pro- 
grams. Program Listing 4 demonstrates 
this useful idea in a simple children's game, 
Hangman. 

Image 

Another statement is Image. Image, how- 
ever, is simply a method of formatting a 
Print Using statement in an individual pro- 
gram line. This could appear as: 

100 PRINT USING 200,A 

200 :AR£A IS W*t.«# SO. MtLES. 

In this case, line 200 specifies the Print 
Using format and is referred to in line 100. 
While Level II Basic does not recognize the 
Image statement, it does recognize strings. 
The lines above can easily be converted to 
TRS-80 language by assigning the format 
line 200 to a string and making reference to 
that siring in the Print Using line. Of course, 
the format string would come first: 

90 A$ = -AREA IS »».#« SQ. MILES." 
100 PRINT USING AS.A 

If you run across any Image statements. 
Simply convert the Image lines (those start- 
ing with the colon) Into strings and replace 
the Image line numbers referred to with the 
appropriate string. 

Matrices 

Finally, some extended Basics make 
great use of multi-dimensional arrays, call- 
ed matrices. While the Level II manual sug- 
gests a number of useful array/matrix 
manipulation subroutines, these won't help 
if you come across a Mat Read or Mat Print. 



'From now on, the Change function shouldn't 
scare you away from useful programs." 



However, there is nothing in Mat 
statements the TRS-80 cannot handle. 

The Mat Read statement reads from data 
a multi-dimensional array. For example: 

10 DIM A(3,3) 
20 MAT READ B 
30 MAT PRINT B, 



40 DATA 1,2.3,4,5,6.7,8,9 

would read and print the following matrix: 



We can do the same thing in our own 
Basic, however, it takes a few more lines. In 



5 'NEIBAUER,ALAN *ITS 


STILL BASIC 


* 


6 'FIGURE 3 LEVEL 2 SIMULATION 


OF 


CHANGE 


10 'CHANGE SUBROUTINES 


- FIRST 


IS 


CHANGE AS TO A 


30 INPUT A$ 








40 GOSUB 1000 








50 FOR X=l TO A(0) 








60 PRINT A(X) ; 








70 NEXT 








75 PRINT 








80 'NEXT IS REVERSAL - 


CHANGE A 


TO AS |- 


90 'OUTPUT B$ = INPUT 


AS 






110 GOSUB 2000 








120 PRINT B$ 








130 END 








1000 FOR X=l TO LEN{A$) 






1010 A{X) =ASC(MID$(AS, 


x,i}) 






1020 NEXT X 








1030 A(0)=LEN(A$) 








1040 RETURN 








1999 END 








2000 FOR X=l TO A{0) 








2010 X$(X) =CHR$(A{X) ) 








2020 B$=BS+X$(X) 








2030 NEXT X 








2040 RETURN 








Program Listing 3. Level 


// Simulation 


of 


Change. 



ONINITERNI 

WhatisOMNITERM? 

OMNITERM is a ptolESsional communications package tor ttie TRS-80 thai allows 
you to easily commuoicate and transfer tiles or pmgiams with almost any othei 
computer Weve never found a computer ttiai OMNITERM can't work with. Its a 
complete package because it includes not only tk terminal progtam itself, but also 
conversion utilities, a text editor, special configuration tiles, serious 
documentation anil serious support 

Why do I need it? 

Vo« need OMNITERM if you need to communicate efficiently with many different 
computers, 0( if you want to customize your TRS-80 for use with one particular 
computer Vou need OMNITERM to SOLVE your communications problems once 
and for all 

What do I get? 
The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use witti popular computers 
such as CompuServe, the Source, and Dow tones — just as samples of what you can 

lindhergh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work witti The package includes six programs, seven 
data files, and real documentation a 76-p3ge manual that has been called 'Ihe best In 
the Industry." And OMNITERM comes with real user support We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your gueslions about using 
OMtllTERM. 

What do I need to use OMNITERM? 

A Morlel I or Model 111 TRS-80 al least 32K of memory, ooe disk and the RS-232 
interface OMNITERM works with all ROMs and DOSes. and will work with yout 
special keyboard drivers 

What will it do? 

OMNITERM allows you to translate any character going to aoy device, printer screen, 
disk, keyboard Of communications line giving you complete control and allowing you In 
redefine the charactei sets of all devices II will let you Iransler data and run your 
printer while connected for a record of everything that happens OMNITERM can 
reformat your screen so that 80.32 or 40 column lines are easy to read and look neat on 
your TRS-80 screen It even lets you get on remote computers with lust one keystroke' 
The program lets you send special characters, echo characters count UART errors 
configure your UART send True Breaks and use lower case It accepts VIOEOIEX codes 
giving you lull cursor control. It will even let you review text that has scrolled off 
the screen! Best of all, OMNITERM will savea special tile witli all your changes so you 

49 Beechmont St., Worcester, MA 01609 (617)799-2217 soo,«m8 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper tile It's easy to ust 
since it's menu driven, and gives yoj a 
full status display so you can examine 
and change everythmg 
"OMNITERM has my vote as the top 
TflS-80 terminal program available today" 
Kilobaud Microcomputing, lune 1981. 
pages 16-19 

OMNITERM IS 195 (plus shipping if 
COOi Call tor 24 hour shiprrwnt Manual 
alone 115. applied toward complete pack- 
age Visa, M/C. and COO accepted MA 
residents add 5% tax. Dealer inquiries 
invited 

Contact Lindbergh Systems for ynur 
custom programming needs. We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language, or Forth 

ConnuSeive 703IO?6f IRSStiss "Ot IsnOytoc 
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TRS^O "* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component ot your TRS-80 
fo' proper operation: ROM, RAM, Video 
Display, Keyboard. Line Printer, Cassette 
Recorder, Disk Drives, RS-232 Interface. 
Continuous or rnonilored operation. 

SMART TERMINAL $69.95 

The intelligent teiecommunication pro- 
gram that enables 'your TRS-80 to be 
used as a limeshafing terminal. Automatic 
transmission to and from another com- 
puter. Control keys, break key. lower 
case, cassette and disk files compatible 
with both Electric Pencrl" and Scripsit 
programs. 

MONITOR #3 ^ $39.95 

Disassembler, memory display, move, 
search, verify, modify, read and write 
machine language cassettes, object code 
re'ocalor, hexadecimal arithmetic, 
'■, r iboiic disassembly output. 

MONITOR #4 $49.95 

Same dsMonitor* J but adds disk (ileandspc- 
(ra input/outpul, RS-3J2 communii.a(ic)ns. 

PENCIL PATCH $19.95 

Fixes the Electric PenciP Model 1 ver- 
sion so that it runs on the Model i. (You 
must already own the Model 1 version.) 
GRAPH PRINT $19.95 

Creates formatted print-oul on the 
Epson MX-80 printer. Enhanced p.int 
modes print quality text surrounded by 
graphic border. £ditir»g,dtsksave/feload, 
text entry, error testing. 

Send S.A.S.E. for J^tE Catalog. 

HOWE SOFTWARE 

14 Lexington Road. NewCity, NY 10956 
"7KS-80 IS d rt'fJistered ttadcmark oi the 

Radio Shai k division of Tandy t (ir|i ^ 103 



r HARD DISK FOR ^ 

TRS-80* 

MODELS I & III 

$2495 

• 5 megabyte formatted capacity 

• Controller, case, power supply, and cable 
included 

' Software interlace 

• LOW PRICE 

NOW is the time to upgrade your Mod I or III 
to incorporate the latest technology in 
reliable mass data storage. We are able to 
bring you Winchester disk drives for this 
fantastic price due to quantity purchases and 
high technology design. EVERYTHING need- 
ed to add a "Winnie" to your system Is 
provided. 
FEATURES: 

• Seagate ST506 5,25 inch disk drive 

• 5.0 Mbits/sec transfer rate 

• 3 msec track -to- track access time 

• 8.33 msec latency 

• 32 256-byte sectors per track 
■ 4 read/wrlle heads 

• Winchester controller 

• Read/Write/Format macro-commands 

• Automatic CRO checking 

• Sector i:itefleawe capability 

• "Bad Block" mark and detection 

• Software inleilace to disk BASIC 

• Complete documentation 

• Cooling fan 

• 90 day warranty 

ACT NOW to take advantage of this special 
offer. $2495 is the TOTAL price including 
Shipping via UPS in the continental United 
States. 

Order [$pw:My Mo(M I or III) from: 

PSMInc. 

P.O. Box 1877 

Ktttwing, OH 45429 .^66 

Charge Cards & COD's WELCOME! 

Ohio residents add sales tax, 

fc^ 'TRS-M is a trademark of Tandy Co. a 



''You might want to try your own 

hand at tanking foreign Basic statements." 



our Basic, each row must be read by column 
and printed, then the next row, and so on. 
While this takes a little longer (see Program 
Listing 5), useful programs having Mat 
Read and Mat Print statements need not be 
tossed aside. 
You might want to try your own hand at 



taming foreign Basic statements. The Level 
II manual tells how to simulate the Instring 
function found on some computers. But it 
doesn't go into user-defined functions or 
margin statements— two perfect places to 
start working up your own extended Basic 
subroutines.! 



'SIMULATE CHANGE D$(I) TO D 



5 ' NE I BAUER > ALAN *ITS SILL BASIC.,..* 

6 • FIGURE 4 -HANGMAN PROGRAM 
10 RANDOM 

20 DIM DS(100) ,D{10) 
25 CLEAR 200 
30 FOR D=l TO 10 
40 READ D$(D) 
50 NEXT D 
60 I=RND{10) 
70 GOSUB 1000 
80 FOR Q=l TO D(0) 
90 K(Q)=ASC("-") 

100 NEXT Q 

120 PRINt@832, "GUESS A LETTER"; 

130 INPUT A$ 

140 A=ASC(AS) 

150 FOR J=l TO D{0) 

160 IF A<>D{J} THEN 180 

170 K(J)=A 

180 NEXT J 

185 PRINTi^ 478," " ; 

190 FOR Q=l TO D(0) 

210 PRINT CHR$ (K(Q) ) ; 

220 NEXT Q 

230 GOSUB 1500 'SIMULATE CHANGE D TO 3$ 

240 IF BSODSU) THEN BS = "":GOTO 120 

250 PRINT @832,"GOOD WORK! YOU GUESSED THE WORD" 

500 DATA THIS, IS, THE, LOCATION, FOR, WORDS, TO, BE, GUESSED, END 

1000 FOR X=l TO LEN(DS(I)) 

1010 D(X)=ASC(MID$(D$(I) ,X,1)) 

1020 NEXT X 

1030 D(0}=LEN(D$(I) ) 

1040 RETURN 

1050 END 

1500 FOR X=l TO D(0) 

1510 Y$(X)=CHR${K(X) ) 

1520 BS=B$+Y$(X) 

1530 NEXT X 

1540 RETURN 

Program Listing 4. Hangman. 



5 'NEIBAUER,ALAN *ITS STILL BASIC * 

6 'FIGURE 5 - SIMULATION OF MAT/MAT READ 
10 FOR R0W=1 TO 3 

20 FOR C0L=1 TO 3 

30 READ B(ROW,C0L} 

40 PRINT B(R0W,COL) ; 

50 NEXT COL 

60 PRINT 'FORCES CARRIAGE RETURN 

70 NEXT ROW 

80 DATA 1,2,3,4,5,6,7,8,9 

Program Listing 5. 
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THE NEW LAREDO LS525. 

WHEN YOU'RE READY 

TO GET DOWN TO BUSINESS. 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disic memory 
system l=or TRS80 Models 1 and III. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive, LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disl< system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• On-board data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 . 1981 buy the 
LS525 for the OEM/dealer price of 
$2990, a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and djidtette 
available for $149. ' 



For more information about the LS525 

Memory System and the LSI 500 Series 

Controller, contact: 

Laredo Systems, Inc. ^26 

669 Glraudo Drive, San |ose, CA 95 1 1 1 

(408) 629-2283 




kirado y^^m^ Inc. 



'S0« Lfst ot Adnrtlsors on pag» 354 
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UTILITY 



An assembly language program to delete spaces and remarks. 



The Memory Expander 



Tim Kenealy 
1235 Folkstone Ct. 
Wheaton. IL 60187 



Many people are lucky when it comes to 
programming the TRS-80. Many peo- 
ple are not and receive OM errors. If you 
type your programs with many spaces and 
remarks, you might get some too. 

Described in this article is an assembly 
language program that deletes spaces and 
REMs in a Basic program. It will not delete 
spaces inside quotes or in data lines. This 



42E9H 17129 DEC. 



will reduce a program's size, saving mem- 
ory, and the program will run faster. 

Basic Program Storage 

Before 1 can explain my program, there is 
some information on program storage in 
memory to be learned. Look at Fig. 1. The 
Basic program storage buffer starts at 
42E9H, or I7i29decimal. Each line is stored 
one after the other. After the last line in the 
program, the variable chart starts. 

Now look at Fig. 2. Each line has four 
bytes preceding the actual data of the line. 
The first two bytes are the LSB and MSB of 
the pointer to the next iine.lfX = the LSB of 
the pointer and Y = the MSB, then X + 



VARIABLE CHART 



LINE I 



LINE 2 



LAST LINE 



SIMPLE 
VARIABLES 



ARRAYS 



Fig. 1 Basic Program Storage. 



END ZERO 


THESE ZEROS 




LINE POINTER 








END PROGRAM 








END ZERO 
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Fig. 2. Basic Line Storage. 
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256(Y) will give you the start address of the 
next line. 

The last two bytes of the beginning four 
is the line number {least significant byte 
first). The above formula will give you the 
line number. 

After the four byte overhead, the actual 
data comes. All Basic reserved words have 
a one byte code. This code can be found in 
the Level II manual. All other characters are 
stored as their ASCII equivalent. After the 
line is complete, a zero follows. Then the 
next line starts. After the end zero of the last 
line, two more zeros mark the end of the pro- 
gram. 

After the program, the variable chart 
starts. The first part Is made up of simple 
variables, and the second part is made up of 
arrays. Addresses 16633-16638 decimal 
hold the pointers to these charts. 

What the Program Does 

To have a successful space and REM 
deleter, the program must delete the 
spaces and remarks and push everything 
together. My program takes one line at a 
time, places it in a buffer, reduces it and 
brings it back into the Basic buffer. 

Let's go through the program step by 
£tep. In the beginning, the screen is cleared, 
and a message is displayed on the screen. 
BUFFI and BUFF2 are two-byte buffers. 
BUFFI always points to where in memory 
the current line stored in the work buffer will 
be replaced. BUFF2 points to where the 
next line up in memory Is. 

BUFFI is initialized at 42E9H, because 
that's where the basic buffer begins. BUFF2 
is initialized in lines 170-180. At line 190, HL 
is set at 42E9H, the first byte of the first line. 

Starting at line 210, the line to be reduced 
is put in a work buffer. The first four bytes 
are put in with an LDIR, because that Is the 



"When the Assembly program is finished. . . 

all spaces and remarks will be gone, but spaces 

in quotes and data lines will still be there." 



overhead and may contain zeros. From 
lines 240 to 300, the rest of the line is put In 
the work buffer. 

Now the line is reduced. BC is set at zero, 
since it is used later. HL is loaded with the 
first byte after the line overhead. 

The first byte is checked for a 147, the 
code for REM, because if the line is deleted, 
the line number will be left, unless the pro- 
gram deletes it too. 

Starting at line 360, a series of checks are 
made of the byte. When the final zero is 
found, the line is totally reduced. It none of 
the checks are true, HL is incremented, and 
the next byte is checked. 

Let's go through each routine. At line 510 
is the data routine. The C register is loaded 
with a one to tell the program that it's in a 
data line. That way, no spaces will be 
deleted while C equals one. HL is incre- 
mented, and the next byte is checked. 

At line 540 is the colon routine, which is 
used only to get out of a data line. First, the 
routine checks if the line is in data form (if C 
register is one). If it is not, then the matter is 
dropped. HL is incremented, and the next 
byte is checked. 

If the program is in a data line, the B reg- 
ister is checked for a one. This means that 
the colon is in quotes. If it does equal one, 
then the program goes back to the checking 
routine. 

If C is a one, and B is a zero, then the data 
line is over. C is loaded with zero to tell the 
program that there is no more data. 

Starting at line 630 is the quote routine. 
All it does is load B with zero if it's one or 
load B with one if it's zero. B equals one if 
the line is in quotes at the time. HL is incre- 
mented and the next byte is checked. 

At line 710 is the space routine. First, the 
routine checks if the space is inside quotes, 
using the B register. If so, then HL is incre- 
mented and the next byte is checked. 

If the space is not in quotes, then the 
routine checks to see if it is in a data line. If 
it is, HL is incremented and the next byte is 
checked. 

If neither is true, then the space must be 
deleted. HL is saved on the stack and load- 
ed onto IX. Lines 820 to 880 delete the space 
by pulling all following bytes back one slot, 
demolishing the space. HL is then restored, 
and the program goes back to the checking 

routine. 

At line 910 is the REM routine. Since most 
programs have a ":REM" at the end of a line, 
the colon must be deleted also. HL is decre- 
mented to point to where the colon would 
be. The test is made and if it is a colon, the 
routine goes back to see if there is another. 

When all colons are found, the program 
places a zero to mark the end of the line. 
When the end zero is encountered in the 
checking routine or at the end of the REM 



routine, the program goes to line 970. 

When the program gets to line 970, the 
Basic line is totally reduced. BUFFI points 
to where in memory this line will be re- 
placed. BUFF2 points to where the next line 
in memory begins. 

First, the line is copied back into memory, 
the overhead with an LDIR and the rest from 
lines 1010 to 1070. After the line is re- 
copied, DE is incremented to point to where 
the next line will start when it's reduced. 

Now, HL is loaded with the first byte of 
the current line. The bytes at (HL) and 
(HL+1) are the pointers to the next line. 
Since the line has been changed, the point- 
ers must be set. That is done at lines 1100 to 
1120. 

HL is loaded with the address of where 
the next line starts in memory. The first two 
bytes of the line would be the pointer. If 
these two bytes are zeros, the program is 
over. 

HL is incremented to point to the MSB of 
the pointer. I only check that byte for a zero, 
because it alone wouldn't be zero unless 
the program was over. 

At line 1180, BUFFI is set up for the next 
line. Then BUFF2 is set up, one byte at a 
time. HL points to the first byte of the next 
line, and everything is ail set to reduce a 
new line. At line 1260, a jump is made to 
reduce the new line. 

At line 1270 is the Allrem routine. This 
loads DE with the address stored in BUFFI. 
Then the program goes back to line 1 130 to 



test for the end of the prograni, ^nd so on. 
The program goes to line Itj-, when the 
whole Basic program is reduced. The two 
ending zeros are placed. Then lines 1350 
1370 set up the variable chart. Finally, the 
program jumps back to Basic at line 1380. 

How to Use the Program 

Type in the program with the editor/as- 
sembler. The program, as is, is for 16K. it is 
fully relocatable, though. For 4K change the 
ORG and End addresses to 4DF2H, For32K, 
change them to 0BDF2H. For 48K, 0FDF2H. 

When you're ready to use the program, 
power up the computer. Answer the Mem- 
ory Size question with 19953 for 4K, 32241 
for 16K, 48625 for 32K, and 65009 for 48K, 

Type "SYSTEM (enter)". Then type the file 
name you used. After loading is finished, hit 
the Break key. Now you can type in or load a 
Basic program. 

When you are ready to delete spaces and 
REMs from the program, type "S'YSTEM", 
then type a / followed by the starting ad- 
dress. For 4K, the address is 19954, For 16K, 
it's 32242- For 32K, the address is 48626, 
and for 48K, 65010. 

When the assembly language program is 
finished. List your program. All spaces and 
REMs will be gone, but spaces in quotes 
and in data lines will still be there. 

One final note: If a whole line is a remark 
but you used the apostrophe, a line number 
will remain with nothing after it. Just look 
through your list, and delete those lines.H 



Program Listing 1. 



7LF2 


00100 




ORG 


7DF2H 


7DF2 CDC901 


00110 




CALL 


1C9H 


7DF5 21E17E 


00120 




LD 


HL,MSSG 


7Df8 CDA728 


00130 




CALL 


28A7H 




00140 


;SET UP BUFFl 


AND BUFF 2 


7DFB 21E942 


00150 




LD 


HL,42E9H 


"IJFF, 22FD7E 


00160 




LD 


(BUFFI) ,HL 


7E01 2AE942 


00170 




LD 


HL, I42E9H) 


7E04 22FF7E 


00180 




LD 


(BUFF2) ,HL 


7E07 21E942 


00190 




LD 


HL,42E9H 




00200 


; COPY 


BASIC LINE INTO INPUT/ 


7E0A 11017F 


00210 


COPY 


LD 


DE, BUFFER 


7E;0D 010400 


00220 




LD 


BC,4 


7E10 EDB0 


00230 




LDIR 




7E12 7E 


00240 


MORE 


LD 


A, (HL) 


7E13 12 


00250 




LD 


(DE) ,A 


7!::i4 B7 


00260 




OR 


A 


7E15 2B04 


00270 




JR 


Z,D0NE 


7E17 23 


00280 




INC 


HL 


7E18 13 


00290 




INC 


DE 


7E19 18F7 


00300 




JR 


MORE 


7E1S 010000 


00310 


DONE 


LD 


BC,0 


7E1E 21057F 


00320 




LD 


HL,BUFFER-t-4 


7E21 7E 


00330 




LD 


A, (HL) 


7E22 FE93 


00340 




CP 


147 


7E24 CAC97E 


00350 




JP 


Z,ALLREH 


7E27 7E 


00360 


CHECK 


LD 


A, (HL) 


7E28 PESe 


00370 




CP 


136 


7E2A 2816 


00380 




JR 


Z,DATA 


7E2C FE3A 


00390 




CP 


3AH 


7E2E 2817 


00400 




JR 


Z, COLON 


7E30 FE22 


00410 




CP 


22H 


7E32 2822 


00420 




JR 


Z, QUOTE 


7E34 FE20 


00430 




CP 


20H 



; CLEAR SCREEN 

.•MESSAGE 

; DISPLAY IT 

;BASIC BUFFER 
;SAVE IN BUFFI 
;LINE POINTER 
;SAVE IN BUFF2 ' % 
; BASIC BUFFER 
?UT BUFFER 
; STORAGE BUFFER 
; 4 BYTES 
jTRANSFLR THEM 
;BYTE TO TRANSFER 
;TRANSFER IT 
;IS IT ZERO? 
;G0 IF DONE 
;BUMP — 
; POINTERS 
;GET NEXT BYTE 
; INITIALIZE BC REG. 
;PAST 4 BYTES 
•BYTE TO CHECK 
;LINE ALL REM? 
fTO ROUTINE 
;BYTE TO CHECK 
J IS IT DATA LINE? 
fTO ROUTINE 
;IS IT A COLON? 
;T0 ROUTINE 
;IS IT A QUpTE? 
;T0 ROUTINE 
; IS IT A SPACE? 

Program conlinues 
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,j^ o solution for 




Floppy Disk Lube 



Just THfi€€ drops can: 

• Prolong useful disJ* life. 

• Incrcose hcod life. 

• flllouj InD^iltzQtion of "problem" 
dislis. 

• Save 'unbootoble' dishs. 

• Reduce 'glltching' problems. 

• Cut nuisonce problems. 



$4.00 



fLOPPV DISK LUB€ - 'A oz. 
LUITH flPPLICflTOR. 

ftdd $1 .50 shipping ond hQndlif>g. Ohio 
residents odd 5Vi% SDles tax. 



DOSUJflR€. \HC 
cievelood.OhioAAUO 



STATPAC 

WILL MAKE YOUR 

STATISTICAL LIFE 

EVEN EASIER FOR 

ONLY $185, 

BUT NOT FOR LONG .. . 

On Oct. 1, 1981 the price goes up to 
$285. That's still a small price for statis- 
tical analyses comparable to main- 
frame SPSS and SAS. The new, im- 
proved StatPac, designed specifically 
for the Model I or III TRS80, includes 
easy-to-read printouts and more statis- 
tics, including: 

• frequency analysis 

• crosstabs & chi-square 

• correlation & linear regression 

• multiple linear regression 
" descriptive statistics 

• t-test 

• analysis of variance 

• management reports 

Buy the complete 3-disk program for 
only $185 until Oct. 1. After that it is 
$285. The extensive user's manual is in- 
cluded or may be purchased separately 
for $30. MasterCard and VISA accepted. 

For more information and a free 

16-page brochure write or call: 

612/866-9022 

Walonick Associates ^363 

5624GirardAve. So. 

Minneapolis, IMN 55419 



Progigm continued 



7E36 

7E38 

7E3A 

7E3C 

7E3D 

7E3F 

7E40 

7E42 

7E44 

7E45 

7E47 

7E48 

7E4A 

7E4C 

7E4D 

7E4P 

7E51 

7E53 

7E54 

7E56 

7E57 

7E59 

7E5B 

7E5D 

7E5F 

7E61 

7E62 

7E64 

7E65 

7E67 

7E69 

7E6A 

7E6C 

7E6D 

7E6F 

7E71 

7E72 

7E73 

7E75 

7E78 

7E79 

7E7B 

7E7E 

7E81 

7Ee3 

7E85 

7E86 

7E88 

7E89 

7E8A 

7E8C 

7E8E 

7E8F 

7E91 

7E95 

7E98 

7E9B 

7E9D 

7E9E 

7E9F 

7EA0 

7EA2 

7EA3 

7EA4 

7EA6 

7EA7 

7EAA 

7EAB 

7EAC 

7EAD 

7EB8 

7EB1 

7EB2 

7EB3 

7EB5 

7EB9 

7EBC 

7EBD 

7EC0 

7EC1 

7EC2 

7 ECS 

7EC6 

7EC9 

7ECD 

7ECF 

7ED0 

7ED1 

7ED2 

7ED3 

7ED4 

7ED5 

7ED8 

7 EDO 

7EDE 

7EE1 

7EFC 

7EFD 

7EPF 

BBFF 

7DF2 

00081 



2820 

FE93 

284C 

B7 

2852 

23 

18E5 

BE01 

23 

18Ee 

79 

FE01 

2007 

78 

FE01 

2802 

BE00 

23 

18D1 

78 

FE01 

2804 

8601 

1802 

0600 

23 

iec3 

78 

FE01 

2003 

23 

leBB 

79 

FE01 

28F8 

E5 

E5 

DDEl 

DD7E00 

B7 

280A 

DD7E01 

DD7700 

DD23 

18F0 

El 

I89F 

2B 

7E 

FE3A 

28FA 

23 

3600 



00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

80550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00760 

007 90 

00600 

00810 

00820 

00830 

00840 

00850 

00660 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 



DATA 
COLON 



NODATA 
QUOTE 



SECOND 
CONT 

SPACE 

I NDATA 
OUT 



LOOP 



D0NE2 
REM 



ED5BPD7K 00970 FINISH 
21017F 00960 



010400 

EDB0 

7E 

12 

B7 

2804 

23 

13 

18F7 

13 

2AFD7E 

73 

23 

72 

2AFF7E 

23 

7E 

B7 

281A 



00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 



M0RE2 



FINIS 



ETC 



ED53FD7E 01180 
2AFF7E 01190 



7E 

32FF7E 

23 

7E 

32007F 

2B 

C30A7E 



01200 
01210 
01220 
01230 
01240 
01250 
01260 



ED5BFD7E 01270 ALLBEM 
PRGEND 



18DE 01280 
AF 01290 

12 01300 

13 01310 

12 01320 

13 01330 
EB 01340 
22F940 01350 
22FB40 01360 
22FD40 01370 
C3CC06 01380 
*4 01390 MSSG 
00 01400 
0000 01410 
0000 01420 

01430 
01440 
TOTAL ERRORS 



BUFFI 
BUFF2 
BUFFER 



JR 

CP 

JR 

OB 

JR 

INC 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

LD 

JR 

LD 

INC 

JR 

LD 

CP 

JR 

INC 

JR 

LD 

CP 

JR 

PUSH 

PUSH 

POP 

LD 

OB 

JR 

LD 

LD 

INC 

JB 

POP 

JH 

DEC 

LD 

CP 

JR 

INC 

LD 

LD 

LD 

LD 

LDIR 

LD 

LD 

OB 

JB 

INC 

INC 

JR 

INC 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

OB 

JR 

LD 

LD 

LD 

LD 

INC 

LD 

LD 

DEC 

JP 

LD 

JR 

XOR 

LD 

INC 

LD 

INC 

EX 

LD 

LD 

LD 

JP 

DEFM 

NOP 

DEFW 

DEFW 

DEFE 

END 



Z, SPACE 

147 

Z,REM 

A 

Z, FINISH 

HL 

CHECK 

C,l 

HL 

CHECK 

A,C 

1 

NZ, NODATA 

A,B 

1 

2, NODATA 

C,0 

HL 

CHECK 

A,B 

1 

Z, SECOND 

B,l 

CONT 

B,0 

HL 

CHECK 

A,B 

1 

NZ.OUT 

HL 

CHECK 

A,C 

1 

Z,INDATA 

HL 

HL 

IX 

A, (IX) 

A 

Z, DONE 2 

A,(IX+1) 

(IX) ,A 

IX 

LOOP 

HL 

CHECK 

HL 

A,(HL) 

3AH 

Z,REM 

HL 

(HL) ,0 

DE, (BUFFI) 

HL, BUFFER 

BC,4 

A,(HL) 
(DE) ,A 

A 

Z, FINIS 

HL 

DE 

M0RE2 

DE 

HL, (BUFFI) 

(HL) ,E 

HL 

(HL) ,D 

HL,(BUFF2) 

HL 

A,(HL) 

A 

Z,PBGEND 

(BUFFI) ,DE 

HL,(BUFF2) 
A, (HL) 

(BUFF2) ,A 

HL 

A,(HL) 

(BUFF2+1) ,A 

HL 

COPY 

DE, (BUFFI) 

ETC 

A 

(DE) ,A 

DE 

(DE) ,A 

DE 

DE,HL 

(16633) ,BL 

(16635) ,HL 

(16637) ,HL 

6CCH 

'DELETING SPACES 




255 
7DF2K 



;T0 BOUTINE 

; IE IT A REM? 

;T0 BOUTINE 

;IS IT ZERO? 

;T0 BOUTINE 

jBUMP POINTER 

;CHECK NEXT BYTE 

;SET POINTER 

;BUMP POINTER 

;NEXT BYTE 

;LOAD A WITH POINTER 

; IN DATA LINE? 

;NOT IN DATA LINE 

;LOAD A WITH POINTER 

f INSIDE QUOTES? 

; INSIDE QUOTES 

;OUT OF DATA NOW. 

;BUHP POINTER 

;CHECK NEXT BYTE 

;LOAD B ONTO A 

; SECOND QUOTE? 

;T0 ROUTINE 

fFIBST QUOTE 

; CONTINUE 

;N0 QUOTES NOW 

;BUMP POINTER 

("CHECK NEXT BYTE 

;LOAD B ONTO A 

I INSIDE QUOTES? 

;NOT IN QUOTES 

;BUMP POINTER 

; CHECK NEXT BYTE 

;LOAD A WITH POINTER 

; IN DATA LINE? 

;BACK SOME 

;SAVE IT FOB NOW 

;LOAD HL — 

;ONTO IX 

;CHECKING — 

;FOR ZEBO 

;G0 IF ZERO 

;THIS BYTE IS — 

.-BROUGHT BACK ONE 

;BUMP POINTER 

;NEXT BYTE 

; RESTORE 

;CHECK NEXT BYTE 

; CHECK FOR — 

;A COLON 

;IS IT? 

;CHECK FOR ANOTHER 

;N0 COLON 

TENDING ZERO 

jSET UP TO — 

fRECOPY LINE — 

;INTO BASIC BUFFER 

;COPY 4 BYTES 

; BYTE TO COPY 

;COPY IT 

;LAST BYTE? 

;G0 IF DONE 

;BUMP POINTERS 

;COPY ANOTHER BYTE 

;NEXT LINE WILL BE HERE 

;BEG1NNING OF LINE 

;LSB OF LINE POINTER 

;BUMP HL 

;MSB OF LINE POINTER 

;NEXT LINE IN MEM 

;POINT TO MSB 

;LOAD BYTE TO TEST 

; PROGRAM DONE? 

;GO IF DONE 

;SET UP BUFFI 

;NEXT LINE IN MEM 

;LSB OF POINTER 

;SAVE IN BUFF2 

;BUMP HL 

jMSB OF POINTER 

;SAVE IN B0FF2+1 

J DOWN AGAIN 

;NEW LINE 

;SET UP DE 

;G0 TO ROUTINE 

;LOAD A WITH ZERO 

; FIRST END ZERO 

;BUMP POINTER 

.■SECOND END ZEBO 

J BUMP POINTER 

;LOAD DE ONTO HL 

J LOAD — 

[VARIABLE POINTERS — 

;WITH HL 

;BACK TO BASIC 

AND HEMS --' 
;END OF MESSAGE 
;2 BYTE BUFFER 
; 2 BYTE BUFFER 
.•STORAGE BUFFER 
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Orange fTlicro 



THE COMPUTER PRINTER 
SPECIALISTS" 



UP TO 25% DISCOUNTS! — SAME day shipment! 



HAD 10 SHACK 
, LINE PRINTER IV 



^ CENTRONICS 739 ( 

With Graphics and 

Word Processing Print Quality 



• 18 K 9 dot matrix; suitable for word 
processing • Underlining • proportional 
spacrng • right margin justiticatton • serif 
typeface • 80noo CPS • 9V;" Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns • Top of form 

CENTRONICS 739-1 (Parallel! (List $995) S Call 

CENTRONICS 739-3 (Serial) (ListS1045l SCall 

GRAPPLER"'''''Apple graphics interface $165 




ANADEX 



Dot Graphics. Wide Carriage 



• 1 1 X 9 dot matrix: lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeking • Up to 2(X! 
CPS • HS 232 Serial & Parallel • Forms 
control • X-ON/XOFF • Up to 6 part 
copy. 

ANADEX 9501 (List $1650) $1350 

GRAPPLER^" Apple graphics Interface $186 




VISTA — C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS {Optional 45 CPS) • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Sell 
test • Diablo compatible • Friction feed 
(Optional tractors) • 136 printable columns 

• Manufactured by C. ITOH. 



VISTA V300 (C. ITOH) STARWRITER (List $1895) S 




IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 




• 7 wire printhead (445). 9 wire pnnthead 
(460) with lower case descenders • Over 
150 CPS " bi-directional, logic seething 
(460) • 8 character sizes; 80-132 columns 

• Adjustable tractors • High resolution dot 
graphics • Proportional spacing & text 
justltication(460) 



IDS 460G 9 wire printhead, graphics (List $1394) 

IDS 560G 9 wire widp rarf.aqe, graphics (List $1794) 

GBAPPLER^^^A;:; --■ r^.. . 5 interface 



$1150 
$1400 



CALL FOR INFORMATION & CATALOG 

(800) 854-8275 
CA,AK, HI (714) 630-3322 

RETAIL PRINTER STORE 

store #1 3150 E. La Palma. #1, Anaheim, CA (714)630-3622 
Store #2 13604 Ventura Bl., Sherman Oaks, CA (2l3) 501-3486 

Store #3 COMING SOON ?? 

Store Hours: M-F 10-6 Sat. 10-4 




EPSON MX80/MX70 



Low-priced 

Professional Print Quality 

^^^Jfc_ -^ 'gxgdol matrix • Lower case doscenders 

Jg^^^^^^. • 80 CPS • Sidlrectional. Logic seekfnQ • 

k. ..^^tfi^^l^^' *'"'• ^' ^- "^^^ columns per tine « 64 specM 

VMP^S^^^^^ grapfiic characters: TRS-80 Compatible • 

v|^^^^^^^ ^ Forms handling • Multi-pass printing • Ad- 

V^^^^^^^-'''^ justabte tractors 

^P^^ We also carry a full lir. 9 

ot Epson flccessone V, 

EPSON MX80 (List $645) $Call 

EPSON MX 70 Dot graphics. 5x7 matrix (Li:it $450) $CsN 

EPSON MX100 wide carriage (List $995) $Call 

GRAPPLEfl^" Apple Grapfilcs Interface $1,65 

MX80/70 FRICTION FEED KIT 

User inslallabie kit for single sheets 

EasySO minute installation $ 75 

ANACOM 

Low Cost. Highspeed, Wide Carriage 

• 9 X 9 dot matrix • Lower case descenders • Wid? carriage • 
Adjustable tractors to 16* • 150 CPS. Bidirectional. Logic Seeking 

ANACOM 150 (Lisl$l350) $1075 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional spacing. 

5510-5 RO. Serial, w/tractors (List $29951 $2675 

5530-5 RO. Parallel, wftractors (List $2970) $2650 

TELEVIDEO CRT'S 

AT DISCOUNT PRICES! 

TV I 910 "V 

TV Q 9r I P'easeCall Toll Free 

TV qpoc r Pf'cesaretoolowto 

TV QV^ I advertise 

OUANTIIV PRICING AVAILABLE I v' JJU ^ 

CRT'S 
ADDS VIEWPOINT (List $698) $600 

PRINTERS 

MALIBU165widecamage, graphics, letter quainy (List $2495) $ 1975 
QUME 5/45 fvpewnier OLiaMv il '■;' ??'«"''">) $ 2559 

INTERFACE EQUIPMENT 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE for Applell 

parallel inte-'ace board & cable $110 

MICROTRONICS Alan parallel mierface * *S 

TRS-80CABLES lokeyboardorExo interlace * Call 

NOVATION D-CAT direct conned modem S Call 




m^ 



WOfonge micro « = 

^^ ^ inc. s 

3150 E. La Palma, Suite G, Anaheim, CA 92806 



PTione Older WELCOME, same day shipment Free use of VISA S MASTER- 
CARD. COO'S acceplftd. Manulacturer'a warranty included on all eQuiprnBrii. 
Prices subjeci to revision. 



At Orange Micro, we fry to tit the right printer to your application 
Call our printer specialists tor free consultation. 



Ves,YouCan 
Increase Your 
Programming 
Productivity 

, SNAPP II EXTENDED BASIC 

■*5N'APP II EXTENDED BASIC A ramily or 
enhancemerits m Lhe Model II BASIC 
iii^erpietei;. Pan o^thepacKaqpa^lql- 
■ mtedwifh the hest or APPARAf, iNC s 
;;-,tnouyhLs, in^ttJiplementing NEWDOS 
BASIC, The'syDtem is wntLen entirely in 
■..machine'fanguaye Tor SUPER EAST exe- 
, cution, The-extensions are Tully 
■-■mLeyiated into Model II ^S\C. and 
requiie NO LiseLMemory, and NO user 
disk space. Thf-:ibacKaqe is made up of 
iherollowing six modules, 
.XBASIC -Six single Key sLroKe com- 
mands to list the TirsL last, pievious. 
neiitorcui rent program line, ur to edit 
ttit^-cuf'rent line, includes quicK way to 
rectj^'er BASIC program Eollowinq a 
NEVV'orsystem or accidental re-boot, 
, Tensiniilecharactei abbreviations For 
. .Uiequently used commands: AUTO 
■.•XLS, DELETE LDIE KILL. LIST. MERGE. 
'vNEW. LLIJT, .and SYSTE^M. 

XREF-A'piawefful cross-refeience 
■ facility with putput to display and/or 
printer . Trace a variable through the 
code.' Determine easily iF a variable is 
muse 
.., XDUMP-Permits the programmer to 
" disil*iayand/o[ priru the value oF any oi 

■ all program variables IdentiFies the 
variable type For all variables Each ele- 
ment oFang an ay is listed separately. 
XRENOM-An enhanced pi oyiam line 
renuihbenng Facility which allows 
speciFicahon oF an upper limit oF the 
blocK of lines to be renumbered, sup- 
ports relocation oF renumbered blocKs 
oFcodp. and supports duplication of 
blocKsoFcode 

, XFIND-A cross reFerence Facility Foi 
hey words and charactei strings, also 
includes global replacement oF 
Keywoids 

XCOMPRESS-Compress gour BASIC 
■programs to an absolute minimum. 
. Removes exrraneous inFormation, 
. merge lines, even deletes statements 
.'which could not be executed. Typically 
.^ . saves 30-40% space even For pro- 
grams wfthout our REM statements' 
-'^so^results in h\0% improvement in 
■execjtion-^)ee{d 

"■■E-NTl"p^CKACEFORMODEI II S200 

ENTIRE PACHACE EOR MODEl III S I 2S 

SNAPP SCREEN 

; Anothef dependable product From 

■ Snapp Inc Using rigid plastic. Sriapp, 
; Inc designed the ultimate green 

'Screen at the lowest pi ice. The Snapp 

■ Sc.]jjpnin5tall5 in a Snapp with the use 
6F{9^eB§ure sensitive tape Reduce 
user Fatigue with the Snapp Screen 
DOSFiX 5 5 

■ .A collecuon.oF patches to TRSDGS and 
BASIC tcjefihdi ice ttieii usatjility and 
Function 'Infliidesnui well Known 

.. BRE^V^yE patches and Facilities to dis- 
., able aiid veiify detract which will 

■ .-inciease average disK speed by 10% 
Free with any Model II SoFtWiJie PacK- 
aqe. Purchased separately $ \ s 



SORT 

1 0,000 integers 

^.000 Singles 

2.000 Strings 



5UPERSNAPP X 

Youcansoit fast using your present 
facilities, or you can do it Faster with 
Racets superb Facilities, or you can use 
the Fastest. SUPERSNAPPX. The heart 
oF SUPERSNAPP X IS a SUPER EAST in- 
memory sort routine that has been 
benchmarhed against everything on 
the marKet and beats them all . . . 
hands down. 

SUPERSNAPP X IS the most important 
component oF SNAPP X EXTENDED 
BUILTIN EUNCTI0N5 which IS a much 
needed set oF additions to the Model ll 
BASIC interpreter that will put time sav- 
ing power at gour FingerUps. Let s 
compare (using random data) SUPER- 
SNAPP X and Racefs GSE SORT For 
speed. 

SUPERSNAPPX RACETGSF 
39 seconds 59 seconds 
22 seconds 34 seconds 
I seconds I S seconds 
SUPERSNAPP X IS guaranteed to be the 
FASTEST in memory SORT on the mar- 
Ket or your money bacK With it you 
also get these EXTENDED BUILTIN FUNC- 
TltJNS: PEEK, PEEHW, POKE, POhEW, 
XDAT5, XTIMS, ETIMS, FILES, AND THE 

SPECIAL SCMD (SNAPP COMMAND). 

PLUS: open -E ■ Set SCROLL PRO- 
TECTION. ERASE all ARRAYS in one 
command. SpeciFy size and BlinK rate 
oF CURSOR. LONG ERROR MESSAGES. 
Read From Video Screen Read. 
PEEl^ complete strings From memory, 
POhE complete strings to memory, 
convert upper case to lower case and 
vice-versa, turn complete screen oFF 
and on at will, extract largest or small- 
est values From user supplied list oF 
numbers 

We consider this next Function as prob- 
ably the most powerFul addition ever 
made to MicrosoFt BASIC. PRINT USING 
INTO A STRING. The ability to arrange 
data into a string variable should perK 
your imagination. 

Modem SI 00.00 

Model III S75.0G 

SPOOLER Allodel I, Model II 
andModellll 

Our worKhorse' UnliKe the one sup- 
plied with TRSD05 2 0. ours requires 
no special Knowledge or training on 
the part oF the operator. Additionally, 
ours perForms much better. On the 
Tandy SPOOLER, every time a disK is 
accessed, the printer stops dead' This 
pacKage is available for Model I, m the 
TRSD05/NEWDOS 80 versions, or For 
Che Model ll or Model III. Greatly 
enhances system perFormance when 
running tgpical business applications, 
Many applications have been bench- 
marKed to mn nearly TWICE AS FAST 
with the SPOOLER installed, installs in 
minutes and no changes are required 
to gour programs. The Model II version 
requires NO user memory. $ | qq 

50RTDIR 

Locate directory entries with ease. SORT- 
DIR will rearrange gour directory entries 
in alphameric sequence on either a 
TR5D05 operating system or data dis- 
Kette. The routine perForms its Function 
in seconds. No more wasted time hunt- 
ing For your entries. Another time saver 
rroni 5NAPPWARE. 30 00 



XSCREEN 

Supports the copying oF the Full video 
screen to the printer Can be invoKed by 
the operator with a KegstroKe. or From 
gour progiam with a U5R call. Requires 
NOuser memcrg s^n 

AUTOFILE 

Anottier big time saver From Snapp. 
Inc. AutoFile oFFersaif programmers 
miuch needed time saving cools to use 
when worKing with direct Files. Elimi- 
nate cedious comniands such as 
LSETS. MhlSS. MhDSs, MKSSS, CVDS 
CVls and CVSs Even the FIELD 
scatenient has been eliminated. You 
won't have to guess as to where Che 
ElELDed variable is. The ASC and CHRs 
FuncUon reFerences will be perFormed 
automaticallg /^u^jj^, ^ 575 

MODEL III 560 

AUTOMAP 

Save timie creating a formated screen 
with our Extended Baste Mapping Sup- 
port system. The programmers tasK of 
communicaUng and displaying inFor- 
mation with the user operator is 
completely automated with simple 
SEND and RECEIVE Statement com- 
mands. Many diFFerent types dF 
inFormation can be sent and received 
From the operators with the use oF a 
single command. Many tiours oF pro- 
gramming time are saved and cost 
eFFiciency is truly realized using 
Automap. 

MODEL II 5 100 
MODE! II! 575 

THE GARBAGE COLLECTOR 

By using a vanable length stnng"' in the 
BASIC interpreter, the strings are con- 
stantly being relocated in a 'stnug poof 
giving them a new location each time 
they are assigned a new value. Period- 
ically the "string poof must be 
reorganized and condensed into a single 
contiguous area, PerForming this string 
space reclamation Function is crude and 
time consuming because or space limita- 
tions on hardware. The system seems 
to "locK up" and will not respond to the 
operator at all until the process is com- 
plete. The time required to perForm 
string space reclamation is roughly pro- 
portional to the square oF the number oF 
active strings in the resident program. 
This time consuming tasK cries out For a 
better solution, Snappware has devel- 
oped a solution which taKes advantage 
oF the auxiliarg memory available when 
needed. Our enhanced version requires 
only Four bytes per active string as a 
worK area, and when the amount oF 
space IS available as Tree storage ', will 
temporanly borrow that space and 
return it to the Free storage pool when 
completed. IF storage is not available, our 
system will temporarily transfer out to 
dis!^ enough oF the BASIC program to 
maKe room For our worK area and return 
the "paged out " inrorrnation to its cor- 
rect location when completed 
In almost every conceivable situation, 
our method produces signiFicantly 
enhanced performance when com- 
pared to-the Microsoft approach. 
BenchmarKed times show in some situa- 
tions our enhanced routine perForms 
one hundred times as Fast as the onginal 
approach. s 100.00 



PL/B 

Trie [TiOBC powei Tul logicdl corn- 
poneiiis have been selecLed rrom the 
worlds most powerriil language to 
give you the most unbeatable pro- 
gram development tool Lo improve 
youi piogiamming productivity' 
Sridppwdre has merged the most use- 
Tul tornpornents or BASIC with the 
poweiorPL/l An unbeatable struc- 
tured piograniming Tacitity resulted 
that can increase programmers pro- 
ductivity up to S0% UnliKe competitive 
products, which aie slow rigid pre- 
processors lepresentinq a primitive 
attempt to bring structuied Program- 
ming concepts to the Micio-Based 
user. PL/B 15 today s Tourth generation 
answer to a Tourth generation piob- 
lem' PL/B can give you triple the 
power oFtheeailier preprocessors at 
triple the speed PL/B is fully 
integrated into the BASIC interpreter 
Two modes of operation are available 
Transpaient (hidden! oi translate and 
save mode Increase youi productivity 
and save time with PL/B S200.00 

XPRINT 

Piini neatly formated hard copy listings 
of BASIC piogiarns fioin dish Progiams 
may be ASCII or corcjpressed Quich and 
easy group selection allows you to print 
many listing with one command s35 

BUGZAP 

A powerful utility oriented toward the 
machine language programmer Dis- 
play /Modify /Print/Memory /DisK sectors 
Use this to help you learn more about 
the internals of the /\AodeMI SSO 

3M SCOTCH DISKETTES 

Double density certified 8" Floppies 
foi the Model II Better quality is not 
available at any price Ten disKettes to 
a box 




Quantity 


Price 


(boxes' 


Per/Box 


1 


534,50 


5 


533.50 


10 


532,50 



HEAD CLEANERS. The wet process 
cleaners causes less weai on your drive 
heads PacKage of two including 
fluid 25 00 

Authorized Distributor ^XkM 

Information Processing Products OIVI 

TERMS OF SALE 

Shipiiieii[s iiofiiially iiidde wiihiri one Qdy or 
ipipiptor your Older Custoriipi [lOirndlly pdys 
shipping casi except prp-pdid orders incfudinq 
bOftwdie in whrthcdSPShrpping cost rbdDsorPed 
DySfidop inc COD orderswiK hdvesunddid 
COD feeddded Loshrppiriq cridiqp Net lOddys 
will tDe qrdnted to qovpiiirnpntal aqencies Pdutd- 
Eioridl institutiorrs dnd well idled Dusiripss Tirins 
Pipdse indudp puichd'iP oidei nurnDei Ohro resi- 
dents ddd •-, % sdles tdx 01 exeinpttari cerliticdie 

OUR GUARANTEE: 

ir your disKette drrives darndged we will replace it 
without criaige ir you ever accidenidlly damage 
It wewill replace It for asistidridling chdige For 
d period of one year, we will provide you witri 
any enhancen-ients or updates ror a - 1 S tiandling 
charge For d perrod oF one year it errors are dis- 
covered rn the progratris. they wtll he corrected 
without charge in the event we cannot correct an 
error, you may return cne program material for a 
reruncf 

TRS-80 and TR5D05 dre trademarhs ol [he 
Radio SnacK diviyon oF Tandy Corporation 
NfcWDOS and NEWDOS/HU are trddeinarlss oF 
Apparat Inc 
RACET GSF is a ttddemarK of Racet Computes 




REv'IEW 



Read this and you'll be up on down-loading. 



Smart Terminal Software 



SmartSOd 

The Microperipheral Corp. 

Mercer Island, WA 

$75. 

ST80-III 

Small Business Systems Group 

Westford, MA 

$150 



Bill Everett 

T4645 NE 34th C-24 

Bellevue. WA 98007 



SmartSOd and ST80-III are smart terminal 
programs that, in conjunction with a 
modem, allow a TRS-80 (with a disk drive) to 
access another computer by telephone or 
radio. They are the best two programs I 
have seen on the market. Both are easy to 
use, well-documented, and readily adapt- 
able to the various communication require- 
m,ents of the system to be accessed. 

.A terminal program gives the TRS-80 the 
abHiiy to communicate with another com- 
puter on terminal. A smart terminal program 
also allows the transfer of data or programs 
both to and from the other terminal or com- 
puter. This Is called up-loading and down- 
loading respectively. 

The versions of the programs that I am 
reviewing are for use with the Micro Con- 
nection direct connect modem. Both pro- 
grams are also available for use with an 
RS232 modem. The RS232 versions are al- 
most identical in their use and commands. 

Features 

I have divided the features of SmartSOd 
and ST80-III into the following categories: 
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communication parameters, receiving data, 
transmitting data, log-on, and miscel- 
laneous functions. 

The communication parameters of both 
programs can be set to conform to the re- 
quirements of the host computer. Full or 
half-dupiex transmission is software se- 
lectable with both programs. The number of 
bits per word, the number of stop bits, and 
even, odd, or no parity can be selected with 
SmartSOd but only with the RS232 version of 
ST80-III. In addition STSO-III allows the user 



"A terminal program 

gives the TRS-80 

the ability to 

communicate 

with another computer 

on terminal." 



to both send and receive a line feed after a 
carriage return and to send a predeter- 
mined number of nulls after a carriage 
return. 

Both SmartSOd and STSO-III have the 
ability to store what is seen on the screen to 
a buffer in memory and then, on command, 
dump the buffer to a file on disk. The buffer 
can be opened and closed automatically by 
both programs. This feature is the heart of 
any smart terminal program. It allows a user 
to down-load programs from bulletin 



boards or any computer system that can be 
accessed by telephone. 

Smart80d and STSO-III can send text or 
programs to another terminal or computer. 
The file to be sent is loaded from disk to the 
buffer area in memory and then sent on com- 
mand- SmartSOd also can automatically 
open and close the receiving terminal's buf- 
fer If it is equipped for auto receive. Both 
programs have three other functions in 
common. One is the ability to route 
everything that goes to the screen to a 
printer. Another is the ability to temporarily 
exit the program to execute a DOS com- 
mand. The last function both programs 
have in common is the ability to transmit a 
true break code. 

Messages On Command 

SmartSOd has two buffers in which a log- 
on or any other message can be stored. The 
two buffers' contents then can individually 
be sent on command to log a user onto a 
bulletin board. STSO-III loads its log-on buf- 
fer from a table that is stored on disk. The 
message can also be transmitted on com- 
mand. 

STSO-III can display all of Its commands 
on the screen. It also can be programmed 
so any key can send any code. All Incoming 
codes can be changed to another single 
code for proper control of the terminal or 
computer. This is useful when matching the 
protocol of the TRS-SO with that of another 
system. ST80-HI has two features that are 
unique to terminal programs that I have 
seen. First it allows use of the system clock 
to keep track of the time a user has been 
logged on a bulletin board. It also will allow 
an amateur radio operator to monitor a fre- 
quency for his call sign or any character 
string for which ST80-III is programmed. 



When the character string ts decoded, 
ST80-III comes to life and prints everything 
until it is deactivated again. This allows 
unattended monitoring of a radio frequency 
so the user receives all personal messages. 

Utilities 

Both SmartSOd and ST80-III have the fol- 
lowing two similar utility programs on their 
disk. The first creates a message for up- 
loading to a bulletin board. The other takes 
a Basic program that has been down- 
loaded and allows the user to delete ex- 
traneous carriage returns and lines that are 
not needed in the Basic program. Both pro- 
grams do the same job, but the ones that 
come with SmartSOd have better prompts 
on the screen. Both programs also have a 
utility list of all possible 255 codes that can 
be sent or received in decimal and their 
definitions. The SmartSOd version also 
gives the codes' hex equivalent and its use 
in the TRS-80. 

ST80-ltl also has the following utilities on 
disk: A program that creates a checksum 
for any file, which is used to see that a tile 
has been received correctly; a program to 
generate the table that is loaded with ST60- 



''Smart 80d and ST80-IH 

do an excellent 

job of making 

the TRS-80 

a smart terminal." 



Ill contains the log-on message generator 
and can redefine control codes to eliminate 
possible conflicts between systems; and a 
program to convert a binary file to ASCII so it 
can be sent, and another to reverse the pro- 
cess when a binary file is received. These 
last two programs are also capable of 
scrambling and unscrambling a file for 
a security transmission. There are also two 
programs to send and receive machine 
code programs in Intel Paper Tape Format, 
mat. 

Documvntation 

The documentation provided with both 
programs is excellent. The SmartBOd 
manual goes into more detail on the actual 
use of the software and the ST80-III manual 
gives better examples of how it accesses 
various bulletin boards. The Source, and 
MicroNet. The documentation for SmartBOd 
also comes on the disk in a file that can be 
printed on a printer or listed from DOS. 

SmartSOd and STBO-III do an excellent job 
of making the TRS-80 a smart terminal. 
ST80-III has a few more features than 
SmartSOd. Yet, SmartSOd is much more 
cost-effective than STSO-III.B 
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Throw 
It Awa 



(\;our dictionary, that is) 



Now MICROPROOF can find and correct your 

spelling errors (before someone else finds them). 

• FAST: Proofs ten pages in less than one minute. 

• EASY TO USE: Prepare your text on any Z-80 based micro- 
computer, using any of a number of popular word processing 
programs. When you are finished, enter the appropriate 
command, and MICROPROOF proofreads your document, 
displaying misspellings and typos on the screen. Then MICRO 
PROOF displays each error separately, requesting you to enter 
the correct spelling for each. You also have the option of 
displaying the error in context or adding the word to 
MICROPROOF's vocabulary. Finally. MICROPROOF 
CORRECTS YOUR DOCUMENT. All in less than a minute. 

• NEW FEATURE: In correcting stage, user has option of 
displaying errors in context. 

• COMPREHENSIVE: MICROPROOF comes with a 50.000 
word vocabulary- That's equivalent to a Webster's Pocket 
Dictionary. And MICROPROOF's dictionary is INFINITELY 
EXPANDABLE. You can add your own technical words and 
jargon. 

• EFFICIENT: A 50,000 word vocabulary is packed into 70,000 
bytes. (Fits easily on one 5V4 inch diskette.) Recognizes prefixes, 
suffixes, hyphenation and comment lines. Literal dictionary also 
available. Requires only 32K of memory and one single or double 
density 5% Inch or 8 inch disk drive. 

• AFFORDABLE: Available in three forms: fully independent 
program to identify errors, independent program to identify and 
correct errors, or with a conversion program thai will permit 
MICROPROOF to operate from within your own word 
processing software. 



PRICES 



TRS-80® Model 1 & 111 versions 


$89.50 


Correcling hcdlure 


$60.00 


TRS-80* Model II version 


$149 50 


Word Pvo<essmq Conversion 




CP/M® version 


$200.00 


Scripsil* or Electric Pencil* 


$35 00 






User's Manual (il sepdrdlel 


$5 00 



Master Charge and Visa attepled No COD please. Calilornia residenls add 61. sales tax 

Contact your local dealer or wrile lo C S 1 lor a broc hure spec ity type ol inicrocompuler and 
word processing software used 



CORNUCOPIA SOFTWARE, INC. ^378 

Post Office Box 5028 

Walnut Creek, California 94596 

(415)893-0633 
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TUTORIAL 



Modify some popular machine language utilities for duty in the Model III 



Level II Utilities for the Model III 



Kenneth J. Bigelow 
4117 55th'Ave. 
Bladensburg, MD 20710 

The Model III TRS-8&, like the Model I, is 
supplied with two versions of Basic, 
Level I Basic is essentially the same in 
either machine. However, the Level II Basic 
used in the Model I has been replaced by 
Model III Basic in the Modellll. This is an en- 
hanced version of Level II Basic, with such 
features as a real-time clock/calendar. How- 
ever, there are some important differences 
which affect both Basic and machine lan- 
guage programs. 

The Model III ROM occupies 14K, rather 
tiian the 12K used by Level II. The new 
ROMs are addressed from 000 hex through 
37FF hex. The keyboard matrix still appears 
from 3800 through 3BFF, and the video dis- 
play memory is still addressed from 3C00 
through 3FFF. As with the Model I, this 
leaves 48K (from 4000 through FFFF) for 
RAM. 

Because of the extra 2K of ROM, the disk 
drives and the parallel printer interfaces 
can no longer be addressed within the 
memory map. Instead, they are addressed 
as I/O ports. The appropriate ROM routines 
have been modified to account for this 
change, but any user program that handles 
thesd devjces directly will no longer work. 
Onlyiaort FF was used in the Model I, and 
■ft handled data input and output through 
the-.c'5ssette/*'3Corder, as well as the cas- 
sette rftmote control. The Model III uses at 
least eight separate I/O ports and ignores 
the two least significant address lines when 
decoding them. The Model II therefore sees 
ports EO, El, E2, and E3 as being identical. 
This is critical for users who add their own 
peripheral equipment. 

The I/O ports used by the Model III are EO, 
E4, E8, EC, FO. F4, F8 and FF. The address- 
ing scheme causes each of these I/O as- 
signments to occupy four port addresses, 
so thai no external port is allowed to oc- 
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cupy a port address above DF. 

The third major difference is the amount 
of housekeeping RAM used. The Basic pro- 
gram is placed into RAM immediately fol- 
lowing the housekeeping assignments 
which start at 4000. In Level II, the Basic 
program starts at address 42E9. The Model 
III requires more housekeeping space; 
Basic programs for it begin at 43E9. This 
means that the Model III has 256 fewer 
bytes (memory locations) available for pro- 
gram and variable storage than the Level II 
machine. 

The reduced program space calls for revi- 
sion of several Basic programs before they 
can be run on the 16K Model III. Specific 
changes are provided on a sheet enclosed 
with the machine. Once these changes are 
made, the Basic programs run with no fur- 
ther trouble. 

Revising Machine Language Programs 

Some machine language programs have 
problems beyond over-lengthy lines or stor- 
age requirements. Radio Shack lists three 
different categories of machine language 
(System) programs: those that will work cor- 
rectly; those that should be replaced with 
an alternate program supplied by Radio 
Shack; and those that will not work and for 
which no replacement program is in the 
works. This last category includes Micro- 
chess, the Editor/Assembler, and T-Bug. It 
also includes some System programs writ- 
ten by others for the TRS-80, such as the 
TRS232 and Formatter programs, 

I wanted to be able to use these programs 
on the Model III, so I set about finding out 
exactly what was wrong with each, in terms 
of the Model III machine. 

My first requirement was to get printout 
dumps of T-Bug, the Level II ROMs, and the 
Model III ROMs, This would allow me to 
trace through specific sections of each for 
comparison so I could determine what 
changes to make. To do this, I needed to get 
either TRS232 or Formatter working, to 
drive the printer (a Model 43 teletype) from 



the Model III computer. This, in turn, meant 
that I would have to get T-Bug working so I 
could find the changes I needed to make to 
the printer driver. 

I tried loading T-Bug Into the Model III, 
just to see what would happen. To my very 
great surprise, only two functions did not 
work, and they were the cassette opera- 
tions P (Punch) and L (Load). All other func- 
tions worked correctly, so I was able to use 
the M (Memory) function of T-Bug to look 
around in ROM and the housekeeping part 
of RAM. I was also able to use T-Bug to 
modify the printer driver routines. 

The TRS232 program is designed to allow 
the TRS-80 to drive an RS232 converter (sup- 
plied with the program tape), using the cas- 
sette output cable. This allows the user to 
connect any RS232 printer to the computer 
without including the expansion interface. 
The same hardware can also drive a 20 milli- 
amp current loop for printers accepting this 
type of interface. 

The Formatter program is a more ad- 
vanced driver program that uses the same 
hardware, but incorporates some extra 
bells and whistles. Both programs use the 
printer device control block, and modify the 
driver routine address in that block. This 
means that either program allows the com- 
puter to respond to LPRI NT and LLIST com- 
mands, even though the Radio Shack print- 
er is not connected to the system. 

Using T-Bug, I found that the device con- 
trol blocks were in the same place, but that 
the driver routine addresses had changed. 
Both TRS232 and Formatter use these ad- 
dresses, so it was no wonder that the pro- 
grams would not work. Unfortunately, the 
TRS232 program also has some calls to a 
Level II ROM routine called Port. This rou- 
tine Is not in the same location in the Model 
III, No such calls exist In Formatter, how- 
ever, so I was able to correct all ROM inter- 
actions by adjusting the driver addresses 
called for the keyboard and video display. 
One more change was required to get 
Formatter working properly: The Model III 



"With Formatter working, I was able 
to get a complete dump of ttie Model III ROMs." 



system clock is 14 percent faster than the 
Model I clock. Bit timing for the interface is 
accomplished through software, so I had to 
change the timing delay constants for the 
baud rates I wanted. The result was a per- 
fectly operating Formatter program. 

Because the Formatter program is sup- 
plied as a Basic program which POKEs the 
machine language program into high mem- 
ory, it is very easy to modify. A few changes 
to some data statements will solve the 
problem. Then, when the Basic program is 
run, the resulting machine language pro- 
gram will be corrected. 

The first change involves two calls to the 
video driver routine in ROM. In the Level II 
machine, this routine appeared at 0458 hex. 
In the Model ill, it has been moved to 0473 
hex. To make the change, locate lines 3480 
and 3540 in the Basic program. In each line, 
the number 88 must -be changed to 115. 

The second change is to the keyboard 
scanning routine. Formatter originally con- 
tained this call to correct a keyboard 
bounce problem in the early Level II ROMs. 
The problem has long since been corrected, 
but the routine may still be used If desired; it 
resets the printed line count each time the 
Clear key is pressed. The same result may 
be obtained by typing in the command: 
LPRINTCHR$(3). 

If you choose to use this function, 
change the calling address in ROM. In Level 

II, the address was 03FB hex; in the Model 
III it is 340D hex. Change the sequential 
numbers 251,3 to 13.52 in line 4780. 

The final change is to line 5300. Each de- 
lay constant must be multiplied by a factor 
of 1.143. The resulting line is: 5300 DATA 
703,574,514,254,167,123,58,26,9,1. I could 
not test all the values, of course, but 254 
works perfectly for 300 baud. 

With Formatter working, I was able to get 
a complete dump of the Model III ROMs. 
Then I could tackle the cassette functions 
of T-Bug. 

Since only the cassette functions gave 
me trouble, I located and disassembled the 
cassette control routines in Level II, Model 

III, and T-Bug for comparison. I found that 
the T-Bug routines made no attempt to call 
any ROM routines at all. Instead, all T-Bug 
operations are performed independently, to 
avoid interactions between Basic and 
T-Bug. Only one program can use either the 
keyboard or cassette interface at a time, so 
why not use ROM routines? 

I found that the entry points for all but 
one Level II routine were presen/ed in the 
Model III. The last entry point is the routine 
to turn on the cassette motor. In Level II, 
this is a separate routine, but in the Model 
111, it is incorporated into the routines that 
write or search for the header on tape. Ex- 



ADDRESS 


NEW BYTE 


4644 


12 


4645 


02 


4547 


96 


4648 


02 


4649 


00 


464A 


00 


464B 


00 


464C 


00 


4698 


C3 


4699 


F8 


469A 


01 


46DE 


12 


46DF 


02 


46EB 


CD 


46EC 


87 


46ED 


02 


46EE 


03 


46EF 


FB 


46FO 


46 


473F 


03 


4740 


F8 


4741 


01 


4782 


C3 


4783 


35 


4784 


02 


478C 


03 


478D 


64 


478E 


02 


Table. 1. Required Changes to T-Bug. 



cept for this difference, T-Bug could be run 
on either machine, once modified. 

A fast check of the Model III dump 
showed that the address of the Level II turn- 
on routine was harmless. It contains an 
XOR A instruction (which clears the A 
register), followed by a RET (return from 
subroutine) instruction. In the Model III, this 
amounts to a dummy subroutine call and af- 
fects nothing of any importance. Therefore, 
this call can be left in the Model 111 version 
of T-Bug, and the Level II version will be 
identical. All 1 had to do was locate the 
points in T-Bug where the ROM calls could 
be inserted to replace the original T-Bug 
routines. This was not difficult, and only 28 
bytes need be changed. 

The locations of the changes and the new 
data to be used are shown in Table 1 . For all 
these changes, T-Bug can modify itself 
because all the changes are in the L and P 
routines within T-Bug. The M function still 
works properly in either machine. No inter- 
action occurs while the changes are being 
made. 

The modifications to T-Bug may be made 
on either machine, and the modified pro- 
gram is then transportable to either ma- 
chine. It may be used to save itself on tape 
(use the command P 4380 4824 43A0 name). 
Furthermore, it will work at either 500 baud 
or 1500 baud on the Model III. 

Some Precautions 

Even though T-Bug will now work prop- 



erly on the Model III, there are a few precau- 
tions to take. These are required because 
T-Bug overlaps the input buffer and the 
start of the Basic program buffer. 

The main requirement in the iilodel III is 
that T-Bug not be entered while a Basic pro- 
gram is present, or vice-versa. The moment 
one is loaded, the other will be wiped out. 
By the same token, a longifiput line, even in 
the absence of any Basic program, will 
make inroads into T-Bug. And, the moment 
you define a variable, T-Bug is shot. 

The remaining precaution involves the 
Reset button, in the Model 111, this is a true 
cold-start reset; no pointers or Basic pro- 
gram will be preserved. However, except for , , 
setting a few nulls to Indicate no program in -^ 
the program space, memory is not altered ' 
as it is sized. This means that most ma- 
chine language programs will be un- , 
changed. Unfortunately, this is not true of 
T-Bug; those nulls write over the command 
structure of the program, and the only com- 1 
mand that will still work is R (register disf-'^ 
play). Therefore, T-Bug must be reloaded 
following reset in the Model III. 

The changes in T-Bug are required 
because the Model 111 does not handle cas-. 
sette control in the same way as the Model 
I. Cassette data, both input and output, is 
still performed through port FF. However, 
the motor control function has been dis- 
placed to port EC, along with the clock con- 
trol and the video mode select. Bit turns 
the clock display on or off, bit 1 turns the 
cassette motor on or off, and bit 2 when set 
selects 32 characters per line. Bits 3 and 5 
are preset during initialization, but I have 
not been able to determine what function 
they perform. Memory location 4210 hex 
(16912 decimal) contains a copy of the last 
byte sent to port EC. By changing a bit in 
location 4210 as a direct command, either 
the display format or the clock display may ^ 
be controlled. The Ready routine will always '; 
turn off the cassette motor. ' 

1 was unable to load Microchess into the 
Model III. This program , seems to occupy 
most, if not all, of the housekeeping sectii&n, 
of RAM, and disturbs some pqjnter&6«f<>r^J. 
it can be run. As a result, S^j attempjl to 
load Microchess results In a loss of all edn- 
trol, followed by the cassette query on th* 
screen. 

What Else Can Be Done? 

From what I have learned about the 
Model 111, it seems that any machine lan- 
guage program that resides above address 
43E9 and calls ROM routines (from their 
normal entry points) to control peripheral 
devices will work as well on the Model HI as 
the Level II. 

Programs that attempt to directly access 
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.#17 SOFTWARE 

ULTIMATE SOFTWARE PLAN 

We'll match any advertised price Combine our price protection 

or, eny item that we carry. And if with the availability of full profes- 

you nnd a lower price on what you sional support and our automatic 

bought within 30 days of buying update service and you have the 

It, lust show us the ad and we'll Ultimate Software Plan, 

refund the difference. Its a convenient, uncomplicated, 

Its that simple. logical way to get your software, 

^~7f ^ (New items or new prices) 

^^^/<?J, CP/M users specrty disk systems and lormats MosI formats available 

^J^/fcf MICROSOFT PASCAL 

O "^/ ^ Basic-80 t289/S30 Pascal/MT+ $429/S30 

ARTIFICIAL INTELLIGENCE Basic Compiler .$329/$30 Pascat/Z S349/S30 

Medical(PAS-3) S849'i40 r?'l'^^Q^ 1349/130 ^ Pascal/UCSD 4 i429/S50 

Dental(PAS-3; S849/S40 m?'' " ' *5'''l/I30 ^ Pascal/M $189/120 

ASYST DESIGN Macro-80 1144/130 WORD PROCESSING- 

ProtTimeBillmg $549/540 Edit-80 1 84/S20 WordSearch. . SI 79/150 

^ General Subroutine $269/$40 WuSimp/MuMath ' ' . S224/S25 v?| 'oA"^ ' !oc^''*P 

''Application Utilities S439/S40 MuLisp-80 S 174/120 :.*.., 1259/165 

roMPI FTP niiQ evesTcuc ^^^9"= ^^""^ 5289/145 

rrlatn. ^ORQ.'f:,^ ORGANIC SOFTWARE Spelt Binder 1349/145 

S'er ■ ■-. -..I?^^ ^ "Sootl'l" V-^^4kt lOTHERGOODIES'' 

BCh 1399/145 ^ SSne . 269 30 ^upe'rci,?"" \fi'f^^. 

COMPUTER CONTROL. OSBORNE farae I^sa/stS 

ufl^Isorrr' \?^Xfs Glne?alLedger 1 59/120 b's^^M \?^hf^ 

uiirasortll 1159/125 Acct Rec/AccI Pay J 59/S20 BSTMS 1149/115 

COMPUTER PATHWAYS Payroll w/Cost 1 59/120 Tiny C' 1 89/150 

Pearl (leveli; l 99/125 All 3 1129/160 Tiny C Compiler 1229/$50 

Pearl (level 2] 1299/140 All 3 -i- CBASIC-2 .1199/175 CBASIC-2 1 98'$20 

Pearl (level 3) 1549/150 PEACHTREE' Nevada Cobol 1129/125 

DIGITAL RESEARCH General Ledger 1399/140 MicroStat $224/125 

CP/M22 Acct Receivable $399/140 :f°'I, 1105/115 

NorthStar 1149/125 Accl Payable 1399/140 c.'mu 1449/S50 

TRS--80Modelll{P-t-T)1159/$35 Payroll 1399/140 m d 1449/S40 

MicropolJS $169/125 Inventory 1399/140 a'^ 1229/120 

Cromemco $189/125 Surveyor S399/t40 ?, ,^^ S224/$35 

PL/l-80 $459/135 Property Mgt . 17g&'/S40 cI^^'^qa , , ^ 84/120 

-- BT-80 1179/$30 CPA ClientWrite-up 1799/140 btring/ao (source! $279/lna 

Mac $ 85/116 Mailing Address $349/140 

f^S . - ■■ ■ ! 5S'iP SOFTWARE WORKS 

^2""^ * ^^JV'ri Adapl{CDOStoCP/M) 1 69/lna INFO UNLIMITED 

'S' ,- ■ ■ * 90/115 Rstlor 1 86/lna EasyWriter 1224 

DeSpool 1 50/$10 -„„„„„„,,„ Datadex 1349 

?;"„*; ,„, , KM^t^fr^' 1 97/120 °'^«^ '«^^ '^* 

Ascom $149/115 Worksheet ti77/t5n MICROSOFT 

DMA-DOS 1179/135 W°"^Sheet .1177/120 sortcard (Z 80 CP/M) $259 

CBS .1369/145 STRUCTURED SYSTEMS Fortran 1179 

Formula 1539/14 5 GL or AR or AP or Pay 1599/140 Cobol 1499 

GHAHAM-OORIAN Inventory Control 1599/140 MICROPRO 

General Ledger $729/140 fSoht Mailf^ Wordstar . ,1269 

Acct Receivable $729/140 K%' I^^' V^^Jl^^ MailMerge $ 99 

Acct Payable 1729/140 ^^'^" * 89/520 Wordstar/ Mai I Merge $349 

JobCosting ., 1729/$40 SUPERSOFT SuperSort I 1159 

Payo'l'l 1729/S40 Diagnostic I $49/120 PFR'SOwai "snerruusDc 

Mventoryll. 1729/140 Diagnosticll $84 120 Sc33 1i^q 

Payrol. .. $493/140 DiskDoctor I 84 120 CCADat^Mar I r! 

SSster V^kt-\Z:^T'^'^'^' \\T^, DeL'^0«^ll ' \.f, 

ApartmentMgt 1493/140 fS w/Ratlor 289/I35 ^;!;1?- ' " \\f^ 

Surveying $729/140 other Ip^^ in^ Visidex 1159 

;■ Medical $729/140 Xl„ less 10% Visiplot ii49 

■ Swital $729/140 Ir® Visitrend/Visiplot 1229 

!-■ Mtrnn «D GLor ARor APorPay 1 79/125 Zork 1 34 

.'. S-Bas?c $269/125 "'' " '^^^'"^^ PEACHTREE- 

f-- Se'ector IV : $469/$3S UNICORN General Ledger 1224/140 

MICRO DATA RAdP «!v«iTi:M<! "^ o '"^^ $ 149/$25 Acct Receivable 1224/140 

"''L1P°*™^*®^^77rq^*^^ ^Scribble $149/125 Acct Payable .. $224/140 

vines IvltilAn ^ ^°"' S249/150 Payroll $224/140 

v-DRSorORSorRTL $26E/lto '''^^"^'' *^^'*^^ '^""""^^^ *^24/$40 

MDBS PKG $1295/160 WHITESMITHS OTHER GOODIES' 

MICROPRO " C Compiler $600/130 ^ ^.ff^^^^, H ■ „, $329/150 

WordStar 1319/160 PascaMincI C } $850/145 -^ VU B3 (use w/Visicalc) J 79 

Customization Notes $ 89/$na DATABASE" DafL^actorv "" l]ll 

KST 5i= ISo Els i^X™ , Sg 

ORDERS ONLY-CALL TOLL FREE VISA • MASTERCHARGE 
1-800-854-2003 ext 823 • Calif, 1-800-522-1500 ext 823 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave. Suite 309 • Los Angeles, Ca. 90028 • (213] 666-7677 
Int 1 TELEX 499-0032 BVHL Attn D.scSo,, . USA TELEX 194-634 BVHL Attr, DiscSoft ■ ^440 
TWX 910-321-3597 BVHL Attn: DiscSott 



peripheral devices must be rewritten to ac- 
commodate the changed addressing meth- 
od. If possible, they should use the built-in 
ROM routines, so they can be made trans- 
portable. 

Programs that occupy low memory (4000 
through 42E9) cannot be used at all in the 
Model III. Programs that occupy memory 
from 42E9 through 43E9 might be used, with 
care. 

Programs that use critical software tim- 
ing loops must be modified to account for 
the faster clock of the Model III. Any delay 
constants must be multiplied by a factor of 
1.143 to accomplish this. 

Basic programs with more than 256 bytes 
of free memory may be transported directly 
to the Model III, A Basic program that does 
not meet this criterion must be shortened 
before it can be successfully run on the 
Model III. When shortening a program, re- 
member that memory is allocated dynamic- 
ally during run time to handle GOSUBs, 
For. , .Next loops, parentheses, etc. Thus, 
memory size will be larger when the pro- 
gram halts than while it is running, ■ 



SUPER "COLOR" WRITER 



At last, a full featured, fast word processing system tor Ifie 
TRS.80 (TM) Color Computer & Line Printer VII The Super 
Colo' Writer writes Letters, Memos, Checks. Invoices, 
Essays with page numbers. Addresses Envelopes etc • 
Screen Display Option ■ Key Beep • Block Move • Delete ■ 
Insert • Scroll • Correct • 0uicl( Paging • Word Count • 
Search • And More • 16K Color or 16K Extended Basic • 
Add 32K Super Color Ram for Big Jobs . 
CASSETTE ANOCOMPLETE DOCUMENTATION 149,95 



RAM EXPANSION KITS FROM $19.95 



MEMORY EXPANSION FOR TR&«) MODEL I, III g, 

COLOR COMPUTER 

INCLUDESHAM TEST • PLUGS INSIDE COMPUTER 

Model HIS 1 16Kmemofy upgrade kits 'guaranteed .$19.95 
Super Color Ram-0416 4K to 16K kit complete S19.95 
Super Color Ram 1632: 16Klo32Kkitcomplete . .$7995 
Super Color Ram<M32. 4K to 32K ml complete $99 OO 
Includes instructions • Model i/4K add $4 00 tor dip shunt 



QAME « EDUCATION CASSETTE PACKS 

Modellll • CokjrComputw • ModelULII • 16KRequir8d 
• • • Ultra Ouallly sound and graphics • • • 



COMSAT 3-PAK CASS-$24.95 

Three Super Action Real Time Two Player Games 
Etellar Battle' Galactic Blockade • • • 2-iOCombai 

ADVENTURE 3-PAK CASS-$24.9S 

A Trilogy of Fantasy Adventures • Forsaken Gultch • 
Dazmar, World ot Doom • World Under TheCimeeon Moon 

VEGAS4-PAK CASS-S24,95 

Why My lo Vegas? You'll have it at home' • Keno • 
One Arm Bandit • Casino Craps • Up and Down the River 

CHILDHENS EDUCATION 3-PAK CASS-$24.95 

Give your children a head Starl • Kids math pnmer • 
Adventures in Storyland • Hangman — a tun word game 



(■TRS-60 IS a registered trademark of the Tandy Corp) 



!jpe( ilv coniiniif;! tv[)c • -■ 
MN ri-,i(|.''if.,.nir) ■„ili">t.ii • b"n 
NELSON SOFTWARE SYSTEMS. INC 
P O BOX 19096 • MPLS , MN 55419 
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Ichi'i^kor MO H) 

DEPT,808 

• 612(9270511 



-480 



eisMm 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-SO'" Model 
III, Disk lir" 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




DISK III Single 

drive assy $599.00 
DISK III Two 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS " & ,/ 

Manual 21.90 

External drives 

(3 & 4) 299.00 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

'DISK III single drive assembly includes: one 40 
track 5V4" double density drive, power supply, 
controller, mounting hardware, and applicable 
cables. 



Peripherals 

Epson MX80 
Epson MX80FT 
MicroiineSO 
Centronics 739 
Starwriter25{P) 
RS-232 Model III 
Lexicon Modenn 



$485.00 
600.00 
425.00 
750.00 

1395.00 

75.00 

125.00 



MODEL I/Ill 
Drivew/PS&Enc 

Fully Compatible 
120 day warranty 
Easy installation 
80tkor2sided 
80tk&2sided 



$299 



$419.00 
549.00 



IF YOU DON'T SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 
DISK 111 is a trademark of VR Data Corp. 

Dealership available. To order call loll free-eOO 315-8102 or (215) 461-5300 in PA. 



OTHER PRODUCTS 

TRS-80 Color 

Computer 16K $525.00 

Disk & Other 

Mysteries 22.50 

Basic & Other 

Mysteries 29.95 

The Custom 

TRS-80 29.95 

Superbrain64K 2849.00 

9^/^x11 paper-case 29.95 

Ribbons QUOTE 




VR Data Corporation 
777 Henderson Boulevard 



Folcroft, PA 19032 



V/SA- 



^S»9 List ot Advertlstn on page 354 
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UTILITY 



An Assembly code program that keeps the computer, not the user, 
number crunching. 



Base Conversions 



James Yowell Yelvington 
811 East Will Rogers Drive 
Stillwater, OK 74074 



No doubt there are good reasons why 
the TRS-80 was designed to utilize 
several different number formats. Whatever 
the reasons, this multiplicity would chal- 
lenge even such a polyglot as the lo- 
quacious 'droid See Threepio. And as for 
mere humans, how can we expect to cope? 

Not long after I bought my computer, it 
began to dawn on me that I was doing near- 
ly as much computing for it as il was doing 
for me. This unexpected situation struck me 
as both paradoxical and unfortunate, but 
there seemed little I could do about it. The 
computer was inflexible about its numbers: 
When it wanted decimal, it had to have deci- 
mal; when it wanted split decimal, nothing 
else would do. The case was further compli- 
cated by various utility programs I had 
bought— they refused to speak anything 
but hexadecimal. 

For awhile I endured the situation. I 
learned to translate numbers fairly quickly 
and accurately by using either direct Basic 
commands or a small calculator which I 
kept near the computer. Then I decided to 
wrtte a Basic program to do the conver- 
sions. 

What I really needed was a machine lan- 
guage program. Such a program could be 
stashed in high memory where it would be 
out of the way of Basic and other programs, 
and would be easily accessible. It would not 
interfere with Basic variables, would not 
disappear on system re-initialization, and 
wr 'Id be faster than a Basic program. 

I looked through software ads in various 
computing magazines to see it I could lo- 
cate a suitable program of this kind, but I 
had no success. My choice was to write my 
own. 
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Number Formats 

As a first step in planning the program I 
reviewed the various number formats used 
when computing with the TRS-80. The first, 
simplest, and most obvious is plain deci- 
mal. Numbers such as 21808, -149, and 
17.54 are quite familiar and present no prob- 
lems. 

Another format is exponential notation, 
which is often used for very small or very 
large numbers. While scientists and engi- 
neers feel comfortable with them, most lay- 
men find numbers like - 5.12E -i- 22, 
4.659E-08, -6.253D-12, and 1.109D-K26 
rather peculiar at first sight. They are not 
really very difficult, however. 

The letter indicates the amount of stor- 
age the computer allots for the number, 
which in turn determines the maximum 
number of significant digits. Single- 
precision numbers (E) have up to six signifi- 
cant digits; double-precision (D) have up to 
17. The signed number following the letter 
tells how many places to move the decimal 
point to the right { + ) or to the left (-) in 
order to arrive at the actual value of the 
number. 

The operand of Basic's PEEK function 
(and the first operand of the POKE state- 
ment) is another form. For systems with 16K 
or less of memory, ordinary decimal inte- 
gers are used. For larger systems, however, 
addresses higher than 32767 are represent- 
ed by negative integers which are found by 
subtracting 65536 from the actual, or abso- 
lute, address. Thus, the address following 
32767 is given as - 32768 in the PEEK func- 
tion, and the highest allowable address 
(65535) is given as - 1. 

Split decimals are used primarily when 
POKEing the starting address of a machine- 
language subroutine into reserved memory. 
They are used to set up a call from Basic 
through the USR(n) function. This format 
consists of an ordered pair of decimal 
numbers derived from the absolute form of 
the address. The address Is divided by 256. 



The first number of the ordered pair is the 
remainder; the second number is the inte- 
ger part of the quotient. The address 31279, 
for example, is given as the pair 47 and 122 
(least and most significant bytes, respec- 
tively). 



Computing Hex Numbers 

The hexadecimal, often abbreviated as 
hex, format occurs most commonly as a 
four-digit representation of a two-byte 
memory address. It also may be found as a 
two-digit representation of the contents of 
a single byte in memory or in a register. The 
hex format is commonly used in machine 
language programs. 

To computer hex, the decimal number is 
divided by the largest power of 16 that will 
go into it. The first hex digit is the integer 
part of the quotient. The second digit is 
derived from the remainder, which is divid- 
ed by the next lower power of 16. The se- 
cond hex digit is the integer part of this quo- 
tient. 

The process continues through the final 
division by 16 to the zero power (which 
equals one and never leaves a remainder). 
Hex digits whose values are greater than 
nine are represented by the letters A-F, 
which represent 10-15, respectively. Hex 
numbers are often followed by the letter H 
to distinguish them from decimal numbers. 
The decimal numbers 2857 and 51208, for 
example, are expressed in hexadecimal for- 
mat as B29H and C808H, 

Binary Numbering 

Binary is the most basic and elemental 
language which the computer knows. The 
other numeric formats are simply alterna- 
tive ways of expressing binary information 
for the convenience of human operators. 
Binary numbers appear as strings (often 
rather lengthy) of ones and zeros. 

No matter how hard it is to understand 
binary numbers, there are times when you 



Osborne 

AWAKENS the TRS-80 
and Puts it to Work. 



All too often, computer users who've been used to entertainment programs have trouble 
coming up with Ideas for practical computing. Your computer plays space games well 
enough, but when you have a down to earth problem like the future of an investment or 
federal withholding taxes, can it perform? It con now. 

Osborne/McGraw-Hill introduces Some Common BASIC Programs for the TRS-SO'", This book 
contains 76 short, brilliantly documented programs that you can key directly into with yourTRS-SO'" 
computer. You'll get a lot of math power including personal finance, taxes, and statistics, Ail the 
progams are listed below. 



Future at an Investment 


Angle Conversion Radians to Degrees 


Poisson Distribution 




Future Volue of Regular Deposits (Annuity) 


Angle Conversion Degrees to Rodions 


Normal Distribution 




Regular Deposits 


Coordinate Conversion 


Chi-square Distribution 




Regular Withdrawals from an Investment 


Coordinate Plot 


Chi -square Test 




Initial Investment 


Plot ot Polar Equation 


Student's t-distnbution 




Minimum Investment tor Withdrawals 


Plot ot Functions 


Student's t-distribution Test 




Nominal Interest Rotes on Investments 


Linear Interpolation 


F-distribution 




Effective Interest Rote on Investments 


Curvilinear Interpolation 


Linear Correlation Coefficient 




Earned Interest Table 


Integration Simpson's Rule 


Linear Regression 




Depreciation Rote 


Integration Trapezoidal Rule 


Multiple Linear Regression 




Depteciation Amount 


Integration Gaussian Quadrature 


Nth Order Regression 




Salvage Value 


Derivative 


Geometnc Regression 




Discount CommefCiol Paper 


Roots ot Quadratic Eauattons 


Exponential Regression 




Principal on a Loon 


Real Roots of Polynomials Newton 


System Reliability 




Regular Payment on a Loan 


Roots of Polynominols' Half-lntervoi Search 


Average Grov/th Rate. Future Prelections 


Last Payment on a Loon 


Trig Polynomial 


Federal Withholding Taxes 




Remaining Bolonce on a Loan 


Simultaneous Equations 


Tax Depreciation Schedule 




Term ot a Loan 


Linear Programming 


Check Writer 




Annual Interest Rate on a Loan 


Matrix Addition, Subtraction, Scalar Multiplication 


Recipe Cost 




Mortgage Amortization Table 


Matnx Multiplication 


Map Check 




Greatest Common Denominator 


Motnx Inversion 


Day of the Week 




Pnme Factors ol Integers 


Permutations and Combinations 


Days Between Two Dates 




Area ot a Polygon 


Mann-Whitney U Test 


Anglo to Metnc 




Parts ot a Triangle 


Mean, Variance. Standard Deviation 


Alphabetize 




Analysis ot Two Vectors 


Geometric Mean and Deviation 




Operations on Two Vectors 


Binomial Distnbufion 





Some Common BASIC Programs ed by Lon Poole: 

TRS-aO'^ level II edition - #54-3, $14.99 l^ 
PET/CBM'" edition - #40-3. $14,99 LJ 
Generalized BASIC edition - #06-3. $14.99 ITl 
Atari'" edition - #53-5, 314.99 li 



Make check payable to: OSBORNE/McGraw-Hill 

630 Bancroft Way. Berkeley, CA 94710 Dept. KT1 



^559 



Practical BASIC Programs ed by Lon Poole 
Contains 40 additional programs with a wide 
range of home and business applications. (Gen- 
eralized BASIC edition only) #38-1, S15-99 P 

Phone: (415) 548-2805 
TOLL FREE: 800-227-2895 Outside California 



Nome- 



Address 



City/State/Zip 



Plus n ,75/item 4th class I . Sl,50/item UPS [ i S2-50/item Air Mail I S10,00/item Overseos 
(California Residents add applicable tax,) LJ Please send me your free catalog. 



Total amount enclosed S. 
Signature ^ . 



or charge my Visa Mastercard #. 



Exp Date ., 



.'S0« Ust of AdomttiMn on ptg* 3S4 
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''You can't tell two's 

complement. . . by appearance alone. 

Context reveals the format." 



can't avoid using them. For example, if you 
want to use the cassette port for sound ef- 
fects, you must control ttie status of indi- 
vidual binary digits. These digits affect bits 
within the byte that outputs through the 
port. 

Binary numbers are computed from deci- 
mal by the same method that hex numbers 
are. Of course, division ts by powers of two 
rather than 16. 

A special type of binary is "two's comple- 
ment," which is used internally by the com- 
puter to represent signed integers. Such in- 
tegers are used as operands for various 
Basic and machine language instructions. 
In Basic they are also used for integer vari- 
ables. Machine-language programmers 
often have to deal with this format, though 
Basic programmers generally can avoid it. 
(Knowledge of it does help to explain cer- 
tain Basic operations. To learn more about 
two's-complement numbers, see William 
Barden's TRS-80 Assembly-Language Pro- 
gramming published by Radio Shack.) It's 
worth noting thai you can't tell two's com- 
plement from regular binary or even hex by 
appearance alone. Context reveals the for- 
mat. The binary number 1110 0101 could 
mean 229 (absolute) or - 27 (two's comple- 
ment). 

A further complication of binary is the 
floating-point format used internally by the 
computer to represent single and double- 
precision Basic variables. Conversion to 
floating point is not simple. If you're inter- 
ested in learning more about it, see Wes 
Thielke's article "ROM Routines, ' SO iW/cro- 
computing, Feb. 1980. 

Writing the Program 
This conversion program, called CON- 



VRT, is designed to be short, fast, and con- 
venient- It provides the most frequently 
needed conversions, and many that are less 
common. 

CONVRT displays results clearly, using 
only a small part of the screen so that prior 
conversions can remain on display. 

"No matter what 

outlandish dialect the 

computer speaks, I can 

force it to translate." 



Conversions can be performed one-to- 
one on demand, rather than presenting 
multiple conversions from a single input. As 
far as practical, conversions are available in 
both directions. Direct conversions are not 
provided if two or three conversions can ac- 
complish the same result. 

Specific Conversions 

Decimal to hex and the reverse are in- 
cluded, as are hex to binary and vice versa 
for single bytes. Since my system has over 
16K of memory, CONVRT has absolute-to- 
PEEK and the reverse conversions. Be- 
cause of the difficulty of converting 
decimal integers and floating point num- 
bers to their internal storage formats, CON- 
VRT includes these conversions, but only 
with hex output. 

Where possible I use ROM routines to cut 
down on programming and space require- 
ments. I also employ the RST 48 vector to 
provide a one-byte call to the frequently 
used video display routine at 28A7H in 



2-25 De'ifte ROM routine enliy points and reserved HAM locations. Labels Ml through M9 identity 
arithmetic transfer, conversion, and compulation routines ir> ROM. Labels RM1 through RM8 
identify reserved RAM locations. 

27 30 Set up access to CONVRT through Get. 

31-44 General setup routine 

45-62 Mairvrnenu. Display mam piompi, scan keytioard, jump to main routines. 

' 63-71 Retumvoutine Exil lo Basic ot system monilor. 

72-79 Secondary menu tor B command. Display prompt, scan Keyboard, |ump lo subordinate toutines. 

80-121 Pe'torm byte conveisior) from binary lo hen. 

122-163 Perform byte conversion from liex to binary. 

164-216 Perform decimal lo he« (twobyle} conversion 

216-257 Perform hex to decimal (two-byte) conversion 

258-267 Seconda«y menu lor N command. Display prompl, scan Keyboard, jump to subordinate routirtes 

268-293 Display internal format of integer (in hex). 

294-3'8 Display intetnal format of S'ngle-precision number (in hex). 

319 342 Display internal format Ol double-precision number (in hex). 

343-350 Secondary menu lor P command. Display prompt, scan keyboard, lump to subordinate routines. 

351 365 Perform absolute to PEEK address conversion. 

366-399 Perform PEEK lo absolute address conversion. 

400-453 Various utility subroutines called by mam or secondary routineS- 

454 Reserve stack space. 

455-495 Define messages and parts of messages for display. 

496-496 Reserve memory tor storage. 

Table 1 



ROM. 

For convenience, I use a Disk Basic com- 
mand vector to set up access to the pro- 
gram from Basic through the Get com- 
mand. There is single keystroke access to 
the major conversion routines. There are 
similar exits to Basic and to the system 
monitor. The program occupies 1 160 bytes, 
including a 30-byte internal stack. 

No matter vi/hat outlandish dialect the 
computer speaks, I can now force it to 
translate. 

Setting Up the Program 

To take advantage of CONVRT, you will 
have to assemble it from Program Listing 1 
and record the object file on tape. Before 
assembly you may want to make certain 
changes. As listed, CONVRT loads into the 
top of a 16K Level 11 system, but a change in 
the ORG statement will let you load it 
wherever you like. 

If you have Disk or Level III Basic, you 
may want to delete lines 27-30, which set up 
access to the program by Get. Change the 
operand of the End statement (line 499) 
from Start to ENT2. Enter the program each 
time by the System/entry address method. 

(You may leave lines 27-30 in, however. If 
you always enter the program at ENT2 by 
System/entry address method, the Get 
command vector is undisturbed.) 

Using the Program 

To use CONVRT, first set the memory 
size, then load. If the ORG statement is left 
at 7B78H, the memory size should be 31607 
and the entry address, 31608. 

After using CONVRT. reenter anytime by 
System/entry address. If the Get access 
method is set up for the first entry, reentry 
from Basic can be achieved simply by typ- 
ing "GET." 

After CONVRT is entered, the main 
prompt identifies the program and lists the 
commands available in the main menu. All 
commands are single keystrokes: B, D, H, 
N, P, the Enter key, and the Clear key. 

Commands and Functions 

B— Byte conversion between hex and 
binary. A secondary prompt requests B 
(binary) or H (hex) to identify type of input 
and the direction of conversion. To convert 
a byte of binary to its hex equivalent, press 
B, then enter a string of eight binary digits, 
zeros and ones with no spaces before or be- 
tween them. The hex value will be dis- 
played. To convert a byte of hex to binary, 
press H, then enter two hex digits. The 
binary form, or bit pattern, will be displayed 
(from most significant to least significant 
bit, with intervening spaces for greater 
legibility). After any conversion, you are 



188 • 80 Microcomputing. September 1981 



"The two most important conversions. . . 

are from decimal to hex and vice versa . . . 

TwO'byte integers are easiest." 



returned to the main prompt and menu. 

(Note: If you make an error while entering 
a number anywhere in the program, you can 
backspace to correct it.) 

D— Decimal to hex. Enter a decimal inte- 
ger from to 65535; the hex equivatent is 
displayed (most significant byte first) as 
four hex digits. 

H— Hex to decimal. Enter exactly four 
hex digits (use leading zeros if necessary), 
and the absolute (positive) decimal equiva- 
lent is displayed. 

N— -Number (decimal) to internal format. 
A secondary prompt requests I (integer), S 
(single-precision), or D (double-precision) to 
indicate type of input number. To display 
the internal format of an integer, press I, 
then enter any decimal integer between 
- 32768 and 32767. Two bytes (least signifi- 
cant byte first) are displayed as four hex 
digits. 

To display the internal, floating point for- 
mat of a single-precision decimal number, 
press S, then enter the numt>er. (It can be ex- 
ponential notation.) Four bytes, from least 
to most significant, will be displayed as 



eight hex digits (grouped into fours for 
legibility). To display the internal, floating 
point format of a double-precision number, 
press D, then enter the number. (It may be 
exponential notation.) Eight bytes are dis- 
played as 16 hex digits. They are grouped in 
fours from least to most significant. 

P— PEEK and absolute address. A sec- 
ondary prompt requests A (absolute) or P 
(PEEK) address format to be input. To con- 
vert an absolute address to PEEK format, 
press A, then enter any address from to 
65535. The equivatent PEEK format of the 
address appears on the screen. To convert 
a PEEK address to its absolute equivalent, 
press P, then enter an address value from 
-32768 to 32767. 

ENTER— Return to Basic. To return to 
Basic from the main menu, press Enter. 
This returns you to Basic at 06CCH. This 
command makes it easy to jump back and 
forth between CON VRT for conversions and 
Basic for calculations. 

CLEAR— Return to system monitor. To 
return to the system monitor from the main 
menu, press Clear. You return to the system 
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00081 ;COKVRT 


3.2, J 


YELVINGTON, JUNE 


1980 


0849 




80082 INCH 


EQU 


4911 




e2B2 




08003 SYS 


EQU 


2B2H 




B32A 




08004 PRCH 


EQU 


32 AH 




tiCC 




0880S BAS 


EQU 


6CCH 




0716 




00886 HI 


EQU 


716K 




0994 




00887 H2 


EQU 


994H 




e9A4 




00806 n3 


EQU 


9A4H 




0A7F 




88009 H4 


EQU 


aA7FH 




0A9A 




08810 ns 


EQU 


eA9AH 




BABl 




00011 H6 


EQU 


OABIH 




eE6S 




80012 M7 


EQU 


0E65H 




BEec 




80013 H8 


EQU 


BEeCH 




0FBD 




80014 H9 


EQU 


0FBDH 




1BB3 




08015 INST 


EQU 


1BB3H 




28 A7 




08016 PRST 


EQU 


28A7U 




4e0F 




80017 RHl 


EQU 


4O0FH 




4010 




00018 RH2 


EQU 


4010H 




4eA7 




00019 RH3 


EQU 


40A7[| 




411D 




00020 RM4 


EQU 


411DH 




4121 




00021 RH5 


EQU 


4121H 




4123 




00022 RH6 


EQU 


4123H 




417P 




00023 RH7 


EQU 


417FH 




4180 




00024 RHS 


EQU 


4le0H 




41 ES 




0OO2S INBUF 


EQU 


41ESH 




7B78 




00026 


ORG 


7B78H 




7B7e 


SEC 3 


00027 START 


LD 


A,0C3H 




7B7A 


J27F41 


00028 


LD 


( RH7 ) , A 




7B7D 


21837B 


88029 


LD 


HL,ENT2 




7B8fl 


228041 


00830 


LD 


(RHei.HL 




7B8 3 


ED7 3FD7F 


00031 EHT2 


LD 


{OSP),SP 




7Be7 


FD2Aie4fl 


00032 


LD 


lY, (RH21 




7BeB 


3A0F40 


00033 


LD 


A, (RHl) 




7B8E 


32FF7F 


00034 


LD 


1RV),A 




7B91 


3EC3 


00035 


LD 


A,0C3H 




7B93 


32eF4e 


00036 


LD 


(BHD.A 




7B96 


21A7 2S 


00037 


LD 


HL.PRST 




7B99 


221840 


00038 


LD 


(RM2t,HL 




7B9C 


213C7F 


00039 


LD 


HL, TITLE 




7B9F 


F9 


00040 


LD 


SP.HL 




7BAe 


21Ee41 


00041 


LD 


HL.INBUF 




7BA3 


22A740 


00042 


LD 


(Rn3),HL 




7BA6 


3E1B 


80043 


LD 


A, 27 




7BA8 


CD2Ae3 


00044 


CALL 


PRCH 




7 BAB 


213C7F 


0004 5 HEHU 


LD 


HL, TITLE 




7BAE 


F7 


00046 


RST 


4B 




76AF 


CD4 9ee 


00047 SCSI 


CALL 


INCH 




7BB2 


FEBD 


00048 


CP 


13 




7BB4 


CAD67B 


0004 9 


JP 


Z,RTRN 




7BB7 


FEIF 


00050 


CP 


31 




7BB9 


CAD67B 


00051 


JP 


Z,RTRN 




7 BBC 


Fe42 


00052 


CP 


'B' 


Program continues 



monitor at 02B2H, and can load a machine 
language program or jump with the /entry 
address command to any location. 

These commands and functions can be 
used to make two's-complement and split- 
decimal conversions. 

Two's Complement Conversions 

The most important conversions involv- 
ing the two's-complement format are from 
decimal to hex and vice versa, with two-byte 
and one-byte integers. Two-byte integers 
are easiest. 

Signed decimal integers from - 32768 to 
32767 can be converted to twos-compte- 
ment-hex simply by using the D command. 
Press D, then enter the signed decimal in- 
teger. The correct two's-complement-hex 
format appears with the most significant 
byte first. 

Two-byte hex integers in two's-comple- 
ment format are converted to their signed 
decimal equivalents by a two-step process. 
First press H, then enter the tour-digit hex 
integer. The second step is to press P, then 
A. and then enter the result from the first 
step. The signed-decimal integer is shown 
with the PEEK label. 

Signed-decimal integers from -128 to 
127 may be converted to one-byte 
two's-complement hex. Press D. then enter 
the integer. Ignore the first two hex digits 
shown. The last two are the result. 

One-byte hex Integers in two'scomple- 
ment format are converted to signed deci- 
mal by two different methods. It the first 
hex digit is eight or greater, press H and 
enter two Fs followed by the two-digit hex 
integer. If the first hex digit is seven or less, 
press H and enter two zeros followed by the 
two-digit hex integer. The signed decimal 
equivalent results. 

Split Decimal Conversions 

Split decimal conversions can be done 
with CONVRT by using multiple step opera- 
tions. Some may be easier to do by using 
direct arithmetic commands in Basic, hovif- 
ever. The principal conversions are de- 
scribed below. 

To convert hex to split decimal press H, 
and enter two zeros followed by ihe last two 
hex digits. This yields the first number of 
the split decimal pair, the least significant 
byte. Once again, press H. and enter two 
zeros. This time follow with the first two hex 
digits. This yields the second number, the 
most significant byte. 

To convert split decimal to hex format 
press D and enter the second number of the 
split-decimal pair (most significant byte). 
The last two hex digits displayed are the 
first two of the hex result. Press D again. 
Enter the first number of the split-decimal 
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Don't be misled by more expensive tmitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV'products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little /map/naf/on" 

For fast real time programming it is your lowest 
cost peripheral at S19,95 



Announcing 



< 

CD 
00 
CC 

Hi 

> 




NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC, This low memory routine will add io more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect tor 
you lightware authors and NEW light pen owners 
too! only 114.95 



(COUPON) -■ 



Micro Matrix ^se 

; P-O. Box 938 • Pacifica, CA 94044 

^end foryours NOW: (41 5) 355-4635 

Name . 

Address -.^__^^_^_^_ 

City 

Zip . 



St. 



Photopoint 
I : $19,95 

Pen Basic 
[ 1 $14.95 



Card# 
Ex 
Date _._ 



Money 
CK. Order Visa MC 

r; [1 [i n 
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7BBE 282E 00053 


JR 


Z.BITR 




7BC0 FE4e 80054 


CP 


•H' 




7BC2 CA217D 00055 


JP 


Z,HEXR 




7BC5 FE44 0B056 


CP 


'D' 




7BC7 CflAD7C 0B057 


JP 


Z,DECR 




7BCA FE4E 00058 


CP 


'N' 




7BCC CA7B7D 00059 


JP 


Z,HUKR 




7BCF FE50 00060 


CP 


ipr 




7BD1 CA367E B0051 


JP 


Z,PKR 




7BD4 1BD9 00062 


JR 


SCNl 




7BD6 47 00063 RTHN 


LD 


B,A 




7BD7 3ftFF7F 00064 


LD 


A, (RV) 




7BDA 320P40 00065 


LD 


(RHll ,A 




7BDD FD22104e 00066 


LD 


[R«2) , lY 




7BE1 ED7BFD7F 00067 


LD 


SP, (OSP) 




7BE5 78 00068 


LD 


A,B 




7BE6 FEIF 00069 


CP 


31 




7BE8 CAB202 00070 


JP 


Z.SYS 




7BEB C3CC06 00071 


JP 


BAS 




7BEE 21907F 00072 BITR 


LD 


HL,BTQ 




7BF1 F7 00073 


RST 


48 




7BF2 CD4900 00074 SCN2 


CALL 


INCH 




7BF5 FE42 00075 


CP 


'B' 




7BF7 2806 00076 


JR 


Z,BBR 




7BF9 FE48 0B077 


CP 


'H' 




7BFB 2855 00078 


JH 


Z.HBR 




7BFD 18F3 00079 


JR 


SCN2 




7BFF 21B97F 00080 BBR 


LD 


HL,CT2 




7C02 F7 90081 


RST 


48 




7C03 21697F 00082 


LD 


HL,BN 




7C06 F7 00083 


RST 


48 




7C07 21637F 00084 


LD 


HL,B¥T 




7Caft F7 000B5 


RST 


4B 




7ceB 21E87P 00086 


LD 


HL.VAL 




7C0E F7 00087 


RST 


48 




7C0F CDB31B 00088 


CALL 


INST 




7C12 E5 00089 


PUSH 


HL 




7C13 21887F 00090 


LD 


HL.CTL 




7C16 F7 00091 


RST 


48 




7C17 21697F 00092 


LD 


HL,BN 




7C1A F7 00093 


RST 


48 




7C1B 21637F 00094 


LD 


HL,BYT 




7C1E F7 00095 


RST 


48 




7C1F 21E841 00096 


LD 


HL.INBUF 




7C22 F7 00097 


RST 


48 




7C23 2ieC7F 00098 


LD 


KL.EQ 




7C26 P7 08099 


RST 


48 




7C27 El 00100 


POP 


HL 




7C2e AF 00101 


XOR 


A 




7C29 0608 00102 


LD 


B,e 




7C2B 23 00103 BL0 


INC 


HL 




7C2C CB27 00104 


SLA 


A 




7C2E CB46 00105 


BIT 


0, (KL) 




7C30 2802 00106 


JR 


Z.BLl 




7C32 CBC7 00107 


SET 


0,A 




7C34 10F5 0B10B BLl 


DJNZ 


BL0 




7C36 67 00109 


LD 


H,A 




7C37 CB3F 00110 


SRL 


A 




7C39 CB3F B0111 


SRL 


A 




7C3B CB3F B0112 


SRL 


A 




7C3D CB3F 00113 


SRL 


A 




7C3F CD017F 00114 


CALL 


CVA 




7C42 7C 00115 


LD 


A,H 




7C43 E60F 00116 


AND 


0FH 




7C45 CDai7F 00117 


CALL 


CVA 




7C48 216P7F 00118 


LD 


HL,HX 




7C4B F7 00119 


RST 


48 




7C4C CD1B7F 00120 


CALL 


CR 




7C4P C3AB7B 00121 


JP 


MENU 




7C52 21B97F B0122 HBR 


LD 


HL,CT2 




7C55 F7 00123 


RET 


48 




7C56 216F7F 00124 


LD 


HL.HX 




7C59 F7 00125 


RST 


46 




7C5A 21637F 00126 


LD 


HL.BYT 




7C5D F7 00127 


RST 


48 




7C5E 21E87P 0B128 


LD 


HL.VAL 


L 


7C61 F7 00129 


RST 


48 


^ 


7C62 CDB31B 00130 


CALL 


INST 




7C65 E5 00131 


PUSH 


HL 




7C66 21B87F 00132 


LD 


HL.CTL 




7C69 F7 00133 


RST 


48 




7C6A 216F7F B0134 


LD 


HL.HX 




7C6D F7 00135 


RST 


48 




7C6E 21637F 00136 


LD 


HL,BYT 




7C71 F7 00137 


RST 


48 




7C72 21E841 00138 


LD 


HL.INBUF 




7C75 F7 00139 


RST 


48 




7C76 218C7F 00140 


LD 


HL,EQ 




7C79 F7 00141 


RST 


48 




7C7A El 00142 


POP 


HL 




7C7B 0602 00143 


LD 


B, 2 




7C7D CDEA7E 00144 


CALL 


BFHK 




7C60 DD21Ee41 00145 


LD 


IX,INBUF 




7C84 CDF27E 00146 


CALL 


HXBI 




7C87 4F 00147 


LD 


C,A 




7CB8 060B 00148 


LD 


B,8 




7C8fl CB79 00149 HBl 


BIT 


7,C 




7C8C 2807 BB150 


JR 


Z,HB2 




7C8E 3E31 00151 


LD 


A, 49 




7C90 CD2A03 00152 


CALL 


PRCH 




7C93 1805 0B153 


JR 


HB3 




7C95 3E30 0B154 HB2 


LD 


A, 48 




7C97 CD2A03 00155 


CALL 


PRCH 




7C9fl CB21 00156 KB3 


SLA 


C 




7C9C 3E20 00157 


LD 


A, 32 




7C9E CD2A03 00158 


CALL 


PRCH 




7CA1 10E7 00159 


DJNZ 


HBl 




7CA3 21697F B0160 


LD 


HL,BN 




7CA6 F7 60161 


RST 


48 




7CA7 CD187F 00162 


CALL 


CR 




7CAA C3AB7B 00163 


JP 


MENU 

Program cor}lmijes 
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7 CAD 


2le97F 


00164 DECfi 


LD 


HL,CT2 


7CBe 


F7 


00165 


RST 


48 


7CB1 


21757F 


00166 


LD 


HL,DC 


7CB4 


F7 


00167 


RST 


48 


7CB5 


21Ee7F 


00168 DPR 


LD 


BL.VAL 


7CB8 


F7 


00169 


RST 


48 


7CB9 


CDB31B 


00170 


CALL 


INST 


7CBC 


E5 


00171 


PUSH 


HL 


7CBD 


21887F 


00172 


LD 


HL,CTL 


7cca 


F7 


00173 


RST 


48 


7CC1 


21757F 


00174 


LD 


HL.DC 


7CC4 


3AFC7F 


00175 


LD 


A, (FLG] 


7CC7 


FE50 


00176 


CP 


■ pr 


7CC9 


2004 


00177 


JR 


NZ,DP2 


7CCB 


110600 


00178 


LD 


DE,6 


7CCE 


19 


00179 


ADD 


HL.DE 


7CCF 


F7 


00180 DP2 


RST 


48 


7CD0 


21Ee41 


00131 


LD 


HL,INBUF 


7CD3 


F7 


00182 


RST 


48 


7CD4 


218C7F 


00183 


LD 


HL,EO 


7CD7 


F7 


00184 


RST 


48 


7CD8 


El 


00185 


POP 


HL 


7CD9 


D7 


00186 


RST 


16 


7CDA 


CD6C0E 


00187 


CALL 


H8 


7CDD 


CDB10A 


00188 


CALL 


H6 


7CE0 


CDA4a9 


00189 


CALL 


H3 


7CE3 


068F 


00190 


LD 


B,8FH 


7CE5 


0EFF 


0019! 


LD 


C,0FFH 


7CE7 


I6FE 


00192 


LD 


D,0FEH 


7CE9 


1E00 


00193 


LD 


E,0 


7CEB 


CD1607 


00194 


CALL 


Ml 


7CEE 


CD9409 


00195 


CALL 


M2 


7cf: 


CI 


00196 


POP 


BC 


7CF2 


Dl 


00197 


POP 


DE 


7CF3 


ED532141 


00198 


LD 


[fiM5l ,DE 


7CF7 


ED43234: 


00199 


LD 


[HM6) ,BC 


7CFB 


FE01 


00200 


CP 


1 


7CFD 


200A 


00201 


JR 


NZ,DP3 


7CFF 


06 91 


00202 


LD 


B,91H 


7001 


0E80 


00203 


LD 


C,80H 


7D03 


1600 


00204 


LD 


D,0 


7005 


5A 


00205 


LD 


E,D 


7D06 


CD1607 


00206 


CALL 


Ml 


7D09 


CD7F0A 


00207 DP3 


CALL 


M4 


7D0C 


3AFC7F 


0020B 


LD 


A, (FLG) 


7D0F 


FE50 


00209 


CP 


.p. 


7DI1 


CA577E 


00210 


JP 


Z,PAB2 


7D14 


CDC57E 


00211 


CALL 


HLHX 


7D17 


216F7F 


00212 


LD 


HL,HX 


7D1A 


F7 


00213 


RST 


48 


7D1B 


CD187F 


00214 


CALL 


CR 


7D1E 


C3AB7B 


00215 


JP 


MENU 


7D21 


21897F 


00216 HEXH 


LD 


HL,CT2 


7D24 


F7 


00217 


RST 


48 


7D25 


216F7F 


00218 


LD 


HL,HX 


7D28 


F7 


00219 


RST 


48 


7D29 


21E87F 


00220 


LD 


HL,VAL 


7D2C 


F7 


00221 


PST 


48 


7D2D 


CDB31B 


00222 


CALL 


INST 


7D3fl 


E5 


00223 


PUSH 


HL 


7D31 


21887? 


00224 


LD 


HL.CTL 


7D34 


F7 


00225 


RST 


48 


7D35 


216F7F 


00226 


LD 


HL,HX 


7D38 


F7 


00227 


RST 


48 


7D39 


21E841 


00228 


LD 


HL.INBUF 


7D3C 


F7 


00229 


RST 


48 


7D3D 


218C7F 


00230 


LD 


HL.EQ 


7D4e 


F7 


00231 


RST 


43 


7D41 


0604 


00232 


LD 


B,4 


7D43 


El 


00233 


POP 


HL 


7D44 


CDEA7 E 


00234 


CALL 


BFHX 


7D47 


DD21E841 


00235 


LD 


IXrINBUF 


7D4B 


CDF27E 


00236 


CALL 


HXBI 


7D4e 


67 


00237 


LD 


H,A 


7D4F 


DD23 


00238 


INC 


IX 


7D51 


DD23 


00239 


INC 


IX 


7D53 


CDF27E 


00240 


CALL 


HXBI 


7D56 


6K 


00241 


LD 


L,A 


7D57 


CD9A0A 


00242 


CALL 


MS 


7D5fl 


CD9409 


00243 


CALL 


H2 


7D5D 


FEFF 


00244 


CP 


0FFH 


7D5F 


200C 


00245 


JR 


NZ,HR1 


7D61 


CDBIBA 


00246 


CALL 


M6 


7D64 


0691 


00247 


LD 


B,91H 


7D66 


0E0e 


00248 


LD 


C,0 


7D68 


51 


00249 


LD 


D,C 


7D69 


59 


00250 


LD 


E,C 


7D6A 


CD:607 


00251 


CALL 


Ml 


7D6D 


CDBD0F 


00252 HRl 


CALL 


M9 


7D70 


F7 


00253 


RST 


48 


7D71 


21757F 


00254 


LD 


HL.DC 


7D7 4 


F7 


00255 


fiST 


48 


7D75 


CD1B7F 


00256 


CALL 


CR 


7D78 


C3AB7B 


00257 


JP 


MENU 


7D7B 


21A57F 


00258 NUMR 


LD 


HL,NTQ 


7D7E 


F7 


00259 


RST 


48 


7D7F 


CO4 90 


00260 SCN3 


CALL 


INCH 


7DB2 


FE49 


00261 


CP 


■l' 


7D84 


2eaA 


00262 


JR 


Z,IR 


7D86 


FE53 


263 


CP 


■S' 


7DB8 


2841 


00264 


JR 


Z,SR 


7DaA 


FE44 


00265 


CP 


'D' 


7 Dec 


2874 


00266 


JR 


Z,DR 


7DaE 


IBEF 


00267 


JB 


SCN3 


7D90 


21897F 


00268 IR 


LD 


HL,CT2 


7D93 


F7 


00269 


RST 


48 


7D94 


21D67F 


00270 


LD 


HL.INT 


7D97 


F7 


00271 


RST 


48 


7D9B 


21E87F 


00272 


LD 


HL,VAL 


7D9B 


F7 


0027 3 


RST 


48 


7D9C 


CDB31B 


0027 4 


CALL 


INST 


7D9F 


E5 


00275 


PUSH 


HL 


7DA0 


21887F 


00276 


LD 


HL , CTL 

Program continues 



STOCK MARKET 
SOFTWARE 

B> H & H Trading Company for Mod. I. [I, & III TRS-80®s 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times lops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR TH£ EVIDENCE ! 

FOR MORE INFORMATION OH TO ORDER, CONTACT: 



POST OFFICE BOX 2354S 

PLEASANT HILL. CALIFORNIA 04523 

Telephon« 415/937-1030 



VISA ft MASTERCARD 



L! 



©fiegd T M. of Rodio Shock 



Software. 
For the 80s. 

Pensadyne Computer Services. The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
peopie, the support, the service and the expertise to bring you the 
highest quality products available. 

Pensa-write 1 -- Our BASIC word processing system for the 
owner who requires performance at low cost. Many of the features 
of more expensive word processing systems at a fraction of the cost. 
Comes complete with mailing list capable of handling JOO.names. 
$19.95 (Specify Model I or Model III). 

Pensa-write 2 - A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap aroi:nd, 
unlimited insert and delete, block moves, chaining of files, 20 user 
definable commands, ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs just $79.95. Manual $10.00 Oeductable. (See full page ad 
in Aprif, 1981 80-Mlcrocomputing for a full description). 

Software publishing ~ Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation. TRS-80 Model 1, II. Ill and Colour Computer fully 
supported. Subject material unlimited. 

Now. with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 

Visa and Mastercharge orders welcome. Phone orders welcome 
or write, specifying system configuration, and product desired. 
Please add $1.00 for first class shipping. 

PENSADYNE - Giving you the power to think. 

.^207 



'^^:lv.u,\^ 



COMPUTER SERVICES 
4441 WEST FIRST AVE. VANCOUVER, B.C.. V6R4H9 604-224-3107 



■ See List of Advenis^rs on page 354 
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AT LAST! 

Mass production prices for high qiialily software Buy direct and save 50°c Also 
available for CPM and HDOS 

DATA BASE MANAGER MoO I & III S69, S149 dSK) Mod-ll S199 

Maintain a data base and produce repoils all wilboul user programming Define 
file parameters and lepoit toimals on-iine Key random access, fast mutli-key 
sort, held arithmebcs. audit log, label No tinie-consuming ovfirlays 500 happy 
iiser-sin one year Mod-ll and 48K versions have ovei 50 enhancements including 
40 lields maximum 1DM-Ii^2 is great' - 80-US 

A/R Mod-IS69 Mod-ll S149 Mod-Ill S69 

Handles mvorces. slatements agrng. sales analysrs. credit ct>ecking forms input 
and order entry Unlike other accounts receivable ptograms. ours can tie used by 
doctors, store managers etc 

WORD PROCESSOR S49 

Centeis (usiities indents, and numbers pages Mod-I version features 
upper/lower case witboul hardware modification' File merge option available 

MAILING LIST Mod f & III S59. S79 (48K| Mod-ll S99 

The best' Compare and be selective Includes forms input 5-digit selection code, 
zip code extension sorton any tield and multiple labels Who elseofteisa report 
wiitei and merges with word processor "^ 

INVENTORY Mod I & Iti S89. 5109 i48Kl Mod-ll S149 

Fast key random access Reporls include otdei inlo. performance summary. EOO 
and user-specilied reports Many people have converted to our system' Next to 
impossible to damage the file 

GL A/H. A/P. PAYROLL Mod-ll S129 each 

Inlegiflted accounting package 100* page manual As opposed to Osborne sslow 
binary search and 64 column screen, we usefasl ISAM and 80 columns Dual disk 
and TRSDOS requiied 

L2lfi S59 

A cassette package ot 10 business programs tor Level II 16 K systems Includes 
word processor and data base manager Poker game S19 

Mosi ^lograms are on-line, interactive random-access, bug-tree documented, 
and d'ilivered on disks Mod-I programs require 32K 1 RSDOS We re "I m business 
software — doni let our low price (ool you' Ask lor our free 20-page catalog if 
you re .ttll not convinced Compiled versions are available 



E^ 



MICRO ARCHITECT. INC. ^54 

Dolhan St., Arlington, MA 02174 



ACCEL2 SPACE TRADEOFFS 

Compilea programs run laster Ihan uncompilea programs Dul ttiey are usually Oigget This ts Decause 
compileO slaiemerts MCjpy more space Ihan Ihe BASIC source sialements Ihey replace ACCEL? com- 
piles a selected suoset ol Level li/Disn BASIC aro conitols ine inier preter lo execule urcorrpilefl lines at 
normal irlerpreter speed Tfie uncompiied lines stay exaclly the same size and thus Oo not conitibuie lo 
code growl fi at all 

Table Delow stiows me BASIC suEsel Kanslalea Dy ACCEL2 to machine code Figures lepiesent the 
number ot entra byles needed by each instance ot Itie compiled instfuchon 





INTEGER 


SINGLE 


DOUBLE 


STRING 


Assignment (LET) 


5 


H 


14 


14 


Array Reterence (l-fflm) 


16 


24 


25 


20 


AND or OB 


5 


14 


14 




Compare [^< etc) 


It 


26 


2S 


10 


Ado, SuOTfiO Coficai 


3 


2 


2 


1 


Multiply 1 ' 


5 


2 


2 




OivKiei'') 


5 


2 


2 




Ref'/ence 1 caislant 





6 


to 


7 


FW V wh '.r 


29 








POKl 


7 


19 


19 




Sr --'r KF.-tf 


6 


18 


16 




IF '-iZ^t ^ 


15 


21 


21 


21 


GH ciff.ro5-;b;i liCTO 


12 


18 


18 




Ruewm 










WIPTfl 


-3 


-9 


-9 


-9 


POINT 


3 


9 


9 




PECK 













LEN 








1 


UtDS 








5 


LEfil 








4 


RIG'ITS 








4 


CHRS 








2 


ASC 








7 


CV1 








B 


Flow ri CMilrol 










GOSUBwith RETURN 


i 








GOTO 











All other BASIC 










statements and functions 















Tlie ACCEL2 uset may also seiecliveiy inhiDd compilation ot expressions to lurlher minimise code 
growth TtiisisconlrolledOyemDeading HEM NOEXPRand REM EKPR lines in the uncompiied program lo 
bracket sertormdnce critical sections Programs comoded without use Of tfie REM NOEXPR option typi- 
cally expand to aCicul I 5-2 5 times ine si^e or the ongmal. but since ACCEL2 strips REM statements 
trooi the BASIC program hnal size can sometimes be smaller 

ACCEL 2 Foi 32K TRS 80 Model i iModei in verston sooni Compile-time size 5652 bytes runtime 
size 1536 Bytes, save ro ES/F water disk under fRSDOS NEWDOS. NEWOOS80 

$88 95 -f $2.00 snipping 
TSAVE WtflesACCEL2compilefouIpulloinOependemS¥ST£MtaDe $9.95 + $1.00sbippifig 



Develi^ed/n Britain 
tiy ^ASljin Soitware 

Tt^;sC. TRSDOS tm Radio Shack 



ALLEN GELDER SOFTWARE Masterchatge/Visa 

Box 11721 Mam Post Ofiice CA add 6% 

San Francisco CA9')t0l 
14151387-3131 ^79 

Stnngy/Floppy tm exatron inc NEWDOS tm Apparat 



Ptogram continueO 








7DA3 FT 


88 211 


RST 


4B 


7DA4 21D67K 


BB2T8 


LD 


HL , 1 NT 


7 DAT K7 


002T9 


RST 


48 


7DAB 21EB41 


00280 


LD 


HL.INBUF 


7 DAB F7 


0B2S1 


RST 


48 


7DAC 31EE7F 


00282 


LD 


HL.FQN 


7DAP FT 


80283 


BST 


48 


Toaa El 


e02B4 


POP 


HL 


7DB1 D7 


08285 


RST 


16 


7DB2 CD6C0E 


08286 


CALL 


H8 


7DB5 CD7F9A 


B028T 


CALL 


n4 


7DB8 DD212141 


08288 


LD 


IX,RN5 


7DBC DD&6fl0 


0B289 


LD 


H, <IXf0) 


7DBF DDSEBl 


00290 


LD 


L, IIX-1) 


TDC2 CDCS7F: 


0e;91 


CALL 


HLHX 


TDCS CD187F 


0B292 


CALL 


CR 


7tx:8 C3AB7B 


00293 


JP 


MENU 


7t>CB 2ie97F 


00294 SR 


LD 


liL,CT2 


7DCE F7 


00295 


RST 


48 


7DCF 21DC7F 


00296 


LI3 


HL,SNG 


7DD2 FT 


00297 


BST 


4i! 


TDD3 21E8TF 


00298 


LD 


nL,VrtL 


TDD6 FT 


00299 


RST 


48 


TDD7 CDB31B 


0330U 


CALL 


INST 


7DDA Ei 


88301 


PUSH 


HL 


7DDB 21887F 


0B302 


LD 


HL,CTL 


TDDE F7 


00303 


RST 


48 


7DDF 21DC7F 


80304 


LD 


HL , SNG 


7DE2 F7 


88305 


RST 


48 


7DE3 21EB11 


80306 


LD 


HL, INBUF 


7DE6 r7 


08307 


RST 


48 


7DE7 21EE7F 


0B38B 


LD 


HL.EQN 


7DEA F7 


003B9 


RST 


4B 


7DEB El 


0031B 


POP 


HL 


7 DEC D7 


00311 


RST 


16 


TDED CD6C0E 


00312 


CALL 


m r. 


7DF0 CDB10A 


00313 


CALL 


M6 


TDF3 DD212H1 


B0314 


LD 


IX,RH5 


7DF7 B6B2 


0B315 


LD 


B.2 


7DF9 CDB07E 


00316 


CALL 


BFNP 


7DFC CD1B7F 


08317 


CALL 


CR 


7DFF C3AB7B 


0B318 


JP 


MENU 


7Ea2 2ie97F 


00319 DR 


LD 


HL,CT2 


7EB3 FT 


80320 


RST 


48 


7EB6 Z1E27F 


80321 


LD 


HL,DBL 


7Ei9 F7 


00322 


BST 


48 


7EBA ZIE87P 


00323 


LD 


)!L,VAL 


7EBD P7 


80324 


RST 


48 


TEBE CDB31B 


00325 


CALL 


INST 


7E11 E5 


00326 


PUSH 


HL 


TE12 21B8TF 


00327 


LD 


HL.CTL 


7E15 F7 


00328 


BST 


48 


7E16 21E27F 


08329 


LD 


HL.DBL 


7E19 F7 


0B330 


RST 


48 


7E1A 21EB41 


00331 


LD 


HL.INBUF 


7E1D F7 


0fl332 


RST 


48 


7E1E 21EE7f 


BB333 


LD 


HL , EON 


7E21 F7 


0B334 


RST 


48 


7E22 El 


00335 


POP 


HL 


7E23 D7 


00336 


RST 


16 


7E24 CD6S8E 


BB337 


CALL 


NT 


7E2T DD211D41 88338 


LD 


IX,RH4 


7E2B 0604 


00339 


LD 


B,4 


7E2D CDBB7E 


08348 


CALL 


BFNP 


7E30 CD187F 


00341 


CALL 


CR 


7E33 C3AB7B 


0B342 


JP 


MENU 


7E36 21BE7F 


0B343 PKR 


LD 


HL , ATO 


7E39 F7 


00344 


RST 


48 


7E3A CD4 9aB 


0834 5 SCN4 


CALL 


INCH 


7E3D FE41 


0B346 


CP 


'A' 


7E3F 2886 


B0347 


JR 


Z.PAR 


7E41 FEBB 


80348 


CP 


.p. 


7E43 2825 


0B349 


JR 


Z,PPR 


7E45 18F3 


0B350 


JB 


SCN4 


7E47 21B97F 


0B3S1 PAR 


LD 


HL,CT2 


7E4A F7 


00352 


BST 


48 


7E4B 21TB7F 


00353 


LD 


HL.AB 


7E4E F7 


80354 


RST 


48 


7E4F 3E5fl 


00355 


LD 


A, 'P' 


7E51 32FC7F 


00356 


LD 


IFLG] ,A 


7E54 C3B57C 


80357 


JP 


DPR 


7E57 SEBB 


80358 PAR2 


LD 


A,0 


7E59 32FC7F 


00359 


LD 


(FLG) ,A 


7E5C CDBD0F 


0B36B 


CALL 


H9 


7E5F F7 


00361 


RST 


48 


7E6B 21817F 


00362 


LD 


HL.PK 


7E63 F7 


00363 


RST 


48 


7E64 CD187F 


01364 


CALL 


CB 


7E67 C3AB7B 


0B365 


JP 


MENU 


7E6A 21897F 


BB366 PPR 


LD 


HL,CT2 


7E6D F7 


00367 


BST 


48 


7E6E 21817F 


BB368 


LD 


HL.PK 


7E71 F7 


08369 


RST 


48 


7E72 21E87F 


0B370 


LD 


HL,VAL 


7E7 5 F7 


00371 


RST 


4B 


7E76 CDB31B 


00372 


CALL 


INST 


7E7 9 E5 


88373 


PUSH 


HL 


7E7A 21887F 


80374 


LD 


HL,CTL 


7ETD F7 


00375 


RST 


48 


TE7E 21817F 


00376 


LD 


HL,PK 


7E8] F7 


0037T 


RST 


48 


7E82 21EB41 


00378 


LD 


HL.INBUF 


7E85 F7 


00379 


RST 


48 


7E86 218C7F 


88380 


LD 


HL.EO 


7EB9 F7 


■8361 


RST 


48 


7E8A El 


08382 


POP 


HL 


7E8B D7 


88383 


RST 


16 


7E8C CD6C0E 


88384 


CALL 


MB 


7E8F CDBIBA 


08385 


CALL 


n6 


7E92 Cr)94B9 


80386 


CALL 


M2 


7E95 FEFF 


803B7 


CP 


0FFH 

Program continues 
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PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVELII . . ..-.•-'■^■.■■■ercn; .t ■e'fencequideluriei.e.e^ n RUWj Ah th.jiov.^ 
r-ie rridciine idngjdge u' Basic prixjiamiier lo easily uliii^e ine soptiislicaled 'ouime^^ 
mey contatn Concisely e«piainssel-ups calling seqijences and na'iaDfe passage lof 
numoer conversion ar.lhmelic opB'al'Ons and malhemalicai lunclioos. as weii as 
Keyboard tape and video routines Pa'lUp'esenlsanenli'eivnewcorriposrteproqiaKi 
slmclLire which loads undei tie SYSTEM comfiiand and e«ecu1es in tjolh Basic ,ind 
machine code with tne speed and etiiciencyo' a compnei in addition the 18 chapters 
include a targe tiody ol other inlofmation use'ui 10 li^e programme' inciudinij tape 
tormals RAM useage relocation ol Basic programs USR call expansion creating 
SYSTEM tapes ot you' own programs interlacing ol Bas'c vanaliies drreciiy wilh 
mactiine code a method ol greatly increasing the speed at whicti data elements are 
stored on laoe and special p-ecaulpons to- disk systems iNSiDE LEVEL 11 is a cieany 
otgani.-ed leteience manual i| 'S 'uny typeset and packed *ilh nothing iml uselui 
■nto'niatpan It does nol contain tiueslions Find ansme's ROM dumps Or carloons 

Includes updates for Model III. INSIDE LEVEL II S1S.9S 

SINGLE STEP THROUGH RAM OR ROM 

STtPSO allows yiii. If. 'iiei; th'juiii' ,ir!v B.i>..i ;ir fivRhirie '.inqu'iyf program one 
instruclionalalime and seeihe address heiadecrmai value 2iiog mnemonic, registei 
contents and step count (or eacfi mslruClion Trie top 14 lines ofthe video screen are letl 
unaltered so thai the target program may peilo'm i|s display functions unobstructed 
STfcPBO wn' follow program tiom right mio the ROMs, and is an mvaiuaOieaid in learhihg 
how Ihe ROM routines lunclion Commands include step (Irncel disassemble run in 
step mode at variable step rale display or aiter memory or CPU registers |ump 10 
memory location eiecute a CALL sel tjreakpomts in RAM or ROM tvrile SYSTEM 
taues and relocate to any page in RAM The display may also be routed to your line 
pr.nte' Iiirough |tie device contioi biQCk 'io custom pnnl d'luers are dutomatiCriily 

supported 

Specify Model I or Model Itl. STEPBO 916.95 

TELECOMMUNICATIONS PROGRAM 

This machine language p'og'am ai ows reliable hiqfi speed tiie t'ansiei'i r;et*eeri two 
disk-based computers over modems o' di'CcI ^A.lre it is menu dr ven and extremely 
simple to use Functions include 'eai-lime lerminai mode save RAM butter on disk 
t lans mil disk liie receive binary files eiamme and modilyUART parameters programs 
custom ioQon messages, aulomalic 16-bit checksum verification ot accurate (ransmis 
sion and receplioo and many more user conveniences Supports "ne pnnle's and 
lowercase cnaracteis rt>lti this program you «iii no lonrjei need to convert machine 
language programs to ASCii lor transmission .rnd you wi" krxjv. immediately il Ihe 
transmission was accurate 
Specify Modd I or Model m. TELCOM S39.95 

PROGRAM INDEX FOR DISK BASIC 

Aisemoe an aipraDel..jed index ol you' entire program library trom disk directofies 
Program names and tree space are 'ead autorrialicaiiy ineednol t)e typed in land may 
be alphabetized with a lasl Shell Met?ner sort by disk or program The iist may also lie 
searched 'or any disk program oreitension disksor programs added or deleted and 
the wrwDieiistor any pari sent io the primer Finally Iheitsl ilseH may be stored on disk lor 
luture access and update The t>e5l thing smce suced Dread [January issue ol 80 
Microcomputing! Works with TRSDOS NEWDOS andNEWDOSBO Onednveattd 
13K 'pri..'ed 
Model 1 only. Model III version soon. INDEX S19-95 

4 SPEED OPTIONS FOR YOUR TRS-80 

Trie SK 2 clock nTodiiication anows CPtJ speeds 10 be switched tjetween rwrmai an 
increase Ol bO% Or a 50% -educlion seieclaijJe at any time without interrupting 
e«ecution or crashing the program instructions are also given lor a tOO% increase to 
3 5d MH? The SK 2 may be conliquted by the user to change speed with a toggle 
switct'. O' on software command II will automatically return to normal speed any time a 
disk s active lequiies no change to the operating system and has provisions lor 
adding an LED to indicate when the computer is nol al normal speed It rnounts mside 
the keyboard unit with only 4 necessary connections for the switch option (switch not 
included} and i& easily removed if the computer ever needs service The SK-2 comes 
■'u'ly a'isembied wilh socketed IC s and illustrated msliuctions 
Model I only. SK-2 S24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER . .new iWJwe'iuM,i|>t.' lr.i--,tl-isseml.M." ..nd di-'.Miiii" 
•ty riif TFiS SO Nnw yi.u l. in .issemlwe directly to n>f"io'y ."W imniedi.ilfiydcini.iv v. ■ 
proijram with iiie Unit in single stepping debuiigt.'' Oini-tify swilc'i tiom .isMinin- lu 
debugger and tiack again wilhoul losing TliesiMnci- code lli.-. toalute m.iKCs INSTANT 
ASSEMBLER an oCDIlenl learning looi to- .issemiily i.wBiu.iiie ivotj'.fTwrwin 
INSTANT ASSEMBLER 11. absolutely unique imon.) l,+t)e b.isi.-d .(SM.Tnl Ueis n f.,jl 1 
produces relocatable code rtvjduies that can i.-e unkt.'d wd'i Ihc m.'|i.ih1i.' lil^JKiNd 
LOADER which is supplied in two versions lo" -aiding prpuMms mtu fiirio" '1 n'l >'' mw 
RAM This lets you build long programs wrthbmaimodun-s iNSTANI ASStMBl t H.ii^j^ 
features irnmediate detection ol errors as the sou'cc lOde •- enteu'd .i cumi'-iCI'y 
coded source loimal Hial uses 1 3 as much memoiy .1'- sl.indard sourci' .ind m.H'v 
operational 'ealures including single slrokeentryotDtF Band DlHrti pininjtni utniroiui 
listings aiphalietic listing ol symtioi labic sop.irafo comm,ind-. lor iisting i-mir •^nti^ ••' 
the symbol tabic block move function and ue^ific.iliiin oi Miu'i.e l.tpt- 
iftiSTANT ASSLM8H >^ >! deliugger provides single steppi™) Willi lull ■'"lisli-i t1Kjii,«V-. 
decimal or he< cnlry iil .iddresses loiwaidor l),ick»,,(idnTt'nio'y diMiiiy- rti-.ii'-M*mi-v 
u' ohjecl code in memo'y memoiy dispi.iy in ASCN lomtii md in- ludci I'n.n n' 
(l|j|.imal lo-lim conversion Thesiniile sleppt'' .vn' '.lepiinf ■n-.l'm liiii if iltiii'.i' il 1 
'.isl ralG to any defined address 

INSTANT ASSEMBLER occupies less tu.in 8400 nylt-, oi momi I'y m 1 16K m u.hni.' 
Ihis ivil. ii\ivt' yiiLi rhiiiHih memory 10 write -issembly i.ininMiic |.ri>i]i.)mi- iii iiu iiul 
2000i)ytes Tl"s and .Is module- iinkini] le.-iiijie m.ike INSTANT AbbLMBLLR idtM-l..' 
users wilh only 16K machines The mslruClion manual m.iy Ik; |iuicIi.im'i.1 si>|i,r.ili'iy kij 
$5 which will apply lowards the piir(:iiai;n nl Iho INSTANT A^l^f MHI t H 
Specify Model 1 or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER ; 

IhiSprorirrimi', .lliilli'.llur.'linnl'iiirli itMn ; ; . 1. k ,. -,. '■ ,1 .m' |. ■ 'i , |. ■Mli . Il .n ■ .111.' . irirl 

[Mge length (with lihi- Ict-ds it^eiled bet*. 'en rti.iid-. m iilin (n iii, I i il niij :«..ri]L'n , 
dump prinie' pause control and baud ratesefeclion ln.irtditn«i |i'in1ini|i',rti)ni;tiiiin i 
UK expandable butter .!rea so tiMl the L PRINT or LLlHT loiiim.mdrctii'nM.iintiiilti. flu- 
user while (Hinting is neinrj done Ideal for Seiecl'ic or titficr -.H.w iinntiv-. Aiiu*' 
printing and processing lu run uOnCurrenKy UutiMil miy fa' flirn.tt-d fi' I'ltiic i V»' 
!->^r,lllpr poFl -il" .i imr! r ■' Ihi' vdl"" ' c(-,,i..n 

Specify Model I or Model III. SPOOLER ST6 35 

MACHINE CODE FAST FOURIER TRANSFORM 

1 1 St i>m|>iel.' ;. 1. h 1 ]•' i-i udt- i .i- ■ ■■ ■ i - ■ i . - .i ■ 

assembled lOr t6 32 and 48K m.ictnnc-s a short s.imiiie B-isn, p'ljii'.Hh !■■ n ■_■ - . 
them .i lOK Ba^ic prixjiam wtiich includes sophislic.rted inle' xjlive i|r,(|itnr»i iniftil i 
manipulation and a manual of instructions .ind e-.imiiie'. Ti>e in.n.imn; ■ ir>i; • in- 
subroulioes use vanatiles dedned t>y a supporliOi] B-isic, n'Cwir""' to rrviKi* fl il.i iff'y 
and retrieval e't'emeiy last and easy tor custom impiemt-nl.ilion T'ley per'nim ?OUi 40 
times faster Itian then Basic egu'vaicnl (256 (lOints .n 12 b ■^tJ.mcSI and 'cgm'i' i* ■•- 
than 1550 bytes oi memcy Ilie FFT is useful in .lOrtly/inrj slocli rn.i'ket .inilLinivd'y 
f'ends 1^ -.ve" I' 'n- ■.ccni'-r .nt™'T' ;t-i-.f 

Specify Model I or Model III. FFTASM S49.95 

DUPLICATE SYSTEM TAPES WITH CLOI^ 



Make duplicate LOpius ui -any tape ■/.■ii<-_<-. ■ - 
data lists TheliienarT>e load address enirypomi 



^nd every i^yie li 



.-,,■.-!> M . 
I ASLi le- -Jlj, 



displayed on the video screen Model m version mows cf-iwigmg ■ lOP 'r'-j-.'J)g>t -j. 
Specify Model I or Model til. CLONE.... .S16-95 .. . v<^. .'«'•- 



RAMTEST FOR LEVEL 11 



This machine language program 5 a very it,.,TO n 
AcomiilB(eteslOfeaCtMnOividurfiOilin..46Kr!irtL 
separalc test 'or power une giitches 
Modri I only. RAMTEST.. -..Se.95 



■raityprfol'tAUt:,'. ■ 
Hu^l 14se&«0>. inrnji'., Ai 



EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into the disk version ol Liect'i' ' 1' 
lor ertilling One command Irom DOS Quickly modilies existing liles lo Peni 1 1 ."ii i' 
One disk and :i2K required 
Modal I only. PENPATCH S9.95 



MUMFORD 

MICRO 

SYSTEMS 



OKDtRING: Cumplctt' -.uislricnon i-. Ltu.iirinli-'t'd m .1 liii! lefLind will lit' inddc ,'Mlpruyr.im^ 
.ii..'-.luppc'i-lr)n c<i-.~.t'n<.> Liiik---^ y") Is iiK-ludt'd loi .1 .i') tr.ick frii-niriiifd ino -^ysii'tnl di^k Inckidt! 
>I :'»() tui poM,i.jv,iiuiluit!dlinLj Caliioniia lOMdfut^ add t) --alt'-- ta\ Visa, Mcist^rcharyf <ind ■ 
COD okUs iHCfpicd SPECIFY MODKl. I OR MODEL III. Dfalft inquiries m^'ited 

Box 400-E Summerland. California 93067 (805) 969-4557 



'Sm UsI ol jltfrartiMfS oa pmgt 3M 
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pair (least significant byte). The last two hex 
digits displayed are the last two of the hex 
result. 

Using CONVRT to convert an absolute- 
decimal number to split decimal, press D, 
then enter the number. Next, convert the 
hex result from step one to split-decimal 
format by using the method described 
above. 

To do the conversion in Basic, divide the 
absolute decimal number by 256, taking the 
integer part of the result as the second 
number of the split decimal pair (MSB). 
Then multiply the decimal part of the same 
result by 256 to get the first number of the 
pair (LSB). (If this number has a decimal 
part, then round it off to the nearest 
integer.) 

It takes three steps to convert split 
decimal to absolute-decimal format using 
CONVRT. Convert the split decimal to hex 
format by the method described above. 
Next, press H, and enter the hex result. 

To do the conversion in Basic, multiply 
the second number of the split decimal pair 
(MSB) by 256, then add the first number 
(LSB) to the result. 

General RemarVs 

Keep the following points in mind when 
using CONVRT. Error detection has been 
minimized in order to keep the program 
short. For example, if you enter fewer than 
four hex digits after pressing H, the conver- 
sion is incorrect, but no error message ap- 
pears. Entry of hex and binary is more prone 
to error than entry of decimal values. 
Leading or embedded spaces in hex or 
binary entries lead to errors without warn- 
ing. On the other hand, entry of decimal 
numbers outside allowable ranges will 
cause overflow errors and immediate return 
to Basic. 

All hex and binary results, except those 
produced by the N routine (number to inter- 
nal format), are displayed In the normal 
order of most significant to least signifi- 
cant. Entries should be in this same order. 

The returns to Basic and to the system 
monitor are ftot available within conversion 
routines This means you cannot abandon a 
conversion once you select it. Entry of a 
dummy value lets the conversion proceed, 
then you can use the returns. 

Program Strvcfure 

CONVRT is structured around a main 
menu, which lists the main commands, 
scans the keyboard for them, and, upon 
detecting one, jumps to the appropriate pro- 
gram segment. Each of the five general 
types of conversion is written as a major 
program segment, or main routine, which 
terminates by a return to the main menu. 
Three of the main routines have secondary 
menus which direct execution to subordi- 
ate routines within them. In addition, there 
is an access setup routine, a general setup 
routine, a return routine, and several utility 
subroutines called by one or more of the 
main routines. A running commentary ex- 
plains lines of the program in Table ^.M 



Program cor\tinued 








7E97 2BB9 


00188 


3H 


N7,PPR2 


7E99 0691 


00389 


LD 


B,91H 


7E9B BEBB 


B0390 


LD 


C,0 


7690 51 


BB391 


LD 


D,C 


7E9E 59 


0B392 


LD 


E,C 


7E9F CD16B7 


00393 


CALL 


Ml 


7EA2 CDBD0F 


00394 FPR2 


CALL 


M9 


7EftS F7 


00395 


RST 


48 


7Eft6 217 B7F 


00396 


LD 


HL.AB 


7EA9 F7 


B0397 


RST 


48 


7EAA CD187F 


8B398 


CALL 


CR 


7EAD C3AB7B 


BB399 


JP 


MENU 


7EB0 DD6eBB 


B04B0 BFNP 


LD 


H, UX-t0) 


7EB3 DD6EB1 


BB4B1 


LD 


L, [IX+ll 


7EB6 CDC57E 


00402 


CALL 


HLHX 


7EB9 3E2B 


0B403 


LD 


A, 32 


7EBB CD3Afl3 


004 04 


CALL 


PRCH 


7EBE DD23 


0B4B5 


INC 


IX 


7ECB DD23 


00406 


INC 


IX 


7EC2 IBEC 


B04B7 


DJNZ 


BFNP 


7EC4 C9 


004B8 


RET 




7EC5 7C 


BB409 HLHX 


LD 


A,B 


7EC6 CB3F 


0B410 


SRL 


A 


7EC8 CB3F 


0B411 


ERL 


A 


7ECA CB3r 


B0412 


SRL 


A 


7ECC CB3F 


B0413 


SRL 


A 


7ECE CD017F 


BB414 


CALL 


CVA 


7 EDI 7C 


0B415 


LD 


A,H 


7ED2 E60F 


00416 


AND 


0FH 


7ED4 CDfll.7F 


00417 


CALL 


CVA 


7ED7 7D 


B041B 


LD 


A,L 


7ED8 CB3F 


00419 


SRL 


A 


7 EDA CB3F 


B0420 


SRL 


A 


7EDC CB3F 


B0421 


SRL 


A 


7EDE CB3F 


B04 22 


SRL 


A 


7EEB CD017F 


B0423 


CALL 


CVA 


7EE3 7D 


B04 24 


LD 


A, L 


7EE4 E6BF 


B042S 


AND 


BFH 


7EE6 CDfll7F 


BB4 26 


CALL 


CVA 


7EE9 C9 


004 27 


RET 




7EEA D7 


004 28 BFHX 


RST 


16 


7EEB CDaE7F 


0B429 


CALL 


CVH 


7EEE 77 


0043fl 


LD 


[HL),A 


7EEF aaF9 


004 31 


DJNZ 


BFHX 


7EF1 C9 


00432 


RET 




7EP2 DD7E0B 


00433 HXBI 


LD 


A, (IX*0) 


7EF5 CB27 


0B434 


SLA 


A 


7EF7 CE27 


00435 


SLA 


A 


7EF9 CB27 


00436 


SLA 


A 


7EFB CB27 


00437 


SLA 


A 


7EFD DD8601 


80433 


ADD 


A, ax+11 


7F80 C9 


80439 


BET 




7F8: C63B 


8 84 40 CVA 


ADD 


A,4B 


7FB3 FE3A 


80441 


CP 


58 


7F05 FA0A7F 


00442 


JP 


M.CAl 


7Ffl8 q607 


0B443 


ADD 


A, 7 


7FflA CD2A03 


00444 CAl 


CALL 


PRCH 


7F8D C9 


00445 


RET 




7FBE D63a 


80446 CVH 


SUB 


48 


7Flfl FE0A 


80447 


CP 


IB 


7F12 FA177F 


8B448 


JP 


H,CH1 


7F15 D6B7 


88449 


SUB 


7 


7F17 C9 


BB4 50 CHI 


RET 




7F1B 3EBD 


00451 CH 


LD 


A, 13 


7F1A CD2AB3 


80452 


CALL 


PBCH 


7F1D C9 


00453 


RET 




BBIE 


80454 ENDSTK 


DBFS 


30 


7F3C IDiE 


80455 TITLE 


DEFW 


lElDH 


7F3E 43 


BB456 


DEFM 


'CONVRT: PRESS B/D/H/N/P/ENTER/CLEAB' 


7F62 00 


00457 


DEFB 





7F63 42 


004 58 BYT 


DEFM 


' BYTE ' 


7F68 00 


88459 


DEFB 


B 


7F69 20 


88468 BN 


□ EFM 


' BIN ' 


7F6E 00 


084 61 


DEFB 


B 


7F6F 20 


084 6 2 HX 


defh 


■ HEX ' 


7F74 90 


004 6 3 


DEFB 





7F7 5 20 


BB4 6 4 DC 


DEFM 


■ DEC ■ 


7F7A 00 


BB4e5 


DEFB 





7F7B 20 


B04 6 6 AB 


DEFH 


■ A8S ■ 


7F8B B0 


BB467 


DEFB 





7F81 20 


00468 PK 


DEFM 


■ PEEK ' 


7F87 B0 


00469 


DEFB 





7FS8 IB 


004 7 B CTL 


DEFB 


27 


7Ffl9 IDIE 


00471 CT2 


DEFW 


lElDB 


7FBB BB 


00472 


DEFB 





7FBC 2B 


00473 EQ 


DEFM 


' s ' 


7F8F BB 


00474 


DEFB 


8 


7F90 IDIE 


B0475 BTQ 


DEFW 


lElDH 


7F92 20 


B0476 


DEFM 


' BYTE TYPE? (B/H) ■ 


7FA4 B0 


BB477 


DEFB 





7FA5 IDIE 


0B47B NTQ 


DEFW 


lElDH 


7FA7 20 


BB479 


DEFM 


' NUMBER TYPE? [I/B/D) ' 


7FBD 00 


B84B8 


DEFB 





7FBE IDIE 


B84B1 ATO 


DEFH 


lElDH 


7FCB 20 


004B2 


DEFM 


' ADDRESS TYPE? (A/Pl ' 


7FD5 B0 


BB4e3 


DEFB 


8 


7FD6 20 


BB484 INT 


DEFM 


' INT ' 


7FDB 00 


00485 


DEFB 


8 


7FDC 20 


B0486 SNG 


DEFH 


' SNG ' 


7PE1 B0 


BB487 


DEFB 


B 


7FE2 20 


884 B8 DBL 


DEFM 


' DBL ■ 


7FE7 00 


004B9 


DEFB 




7FE8 56 


B04 90 VAL 


DEFM 


■ VALDE ' 


7FED BB 


BB491 


DEFB 





7FEE 20 


004 92 EQN 


DEFM 


' =■ (LSB' 


7FF5 5E 


B0493 


DEFB 


94 


7FF6 41! 


0B494 


DEFM 


'MSB) ' 


7FFB 0B 


0049S 


DEFB 


e 


7FFC BB 


0B496 FLG 


DEFB 


B 


7FFD BB00 


0B497 OSP 


DEFW 


B 


7FFF 00 


00498 BV 


DEFB 


8 


7B7B 


B0499 


END 


START 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 
which computer to buy? 



Yes . . . then you know what frustration Is. 
Help is on its way. Desktop Computing pre- 
miers this fall. The first and only computer 
magazine written in plain English . Preposter- 
ous? Not at all. It iB^ posslble to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no-risk subscription 
that will give you the kind of understandable, 
useful information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of deskto p computers? Because they have just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amount of 
money. They not only save money, do things 
faster, provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get In on 
the savings and expanded customer services, 
you need information. Desktop Computing will 
bring you that Information. Desktop Com- 
puting will cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system (usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only «17.97. 

totally tax 

deductible. 

CaU toU-fre«: 

(800) ft88-M7S 

or mail Um 

coupon tMlow. 




Here's a look at some of the articles $17.97 will 
bring you: 

•When a small Business Computer 
Arrives. What Happens to the 
Small Business? 
•Letter to Hemingway RE: Word 
Processing 

•Professional & Small Business 
Microcomputers: Buying. Using 
and Fixing a System. 
• Adequate Backup: Protecting the 
Data in Your Computer. 
Wayne Green, the publisher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing— both successful 
computing publications) has gone through both 
the agony and Joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TRS-80's. 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting introducing the Idea of Desktop 
Computing to his staff Wayne said, 

"Our objective is to be the only com- 
puting magazine written In plain 
English." 
So that is what you'll be getting— honesty and 
directness. Desktop Computing will give you all 
the information you need on computers In plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue— October 1981— and get the infor- 
mation you've been needing for only $17.97. 

DesUopCknnpiitiqg 



Relief is here for only $17.97 



D 



VP Q Sign me up as a Charter Subscriber to Deelct^ 
•1^ ^'^ Computing. I will get one year of the only comput- 



ing magazine written In plain English for $ 17.97 (a savings of 60» 
off the newsstand)- My subscription will begin with the prBHiler 

issue- October 1981. 

Your tlroi iBSue wUl be aiTiYlng by mid-October 19B1. 

Canadian 1 yr. only/OS funds $19.97 Foreign 1 yr. only/US funds »29.97 



NAUE 



ADDRESS 
OITY . 



STATE. 



ZIP. 



SIGNATTJKE. 
CAR.D# 



EXPIRE DATE_ 



319CT 



INTERBANK # 



DBsktop Computing 
. eO Pine 9treot PaiBrborough. NH 03468 



>^:i" 
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SOFTWARE 

FOR TRS-80 

OWNERS 



THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80 "* MICROCOMPUTER 

- TRS 80- IS A TRADEMARK Of-" TANDY CORP 

iCQinPlJTHQUICSs 



MONTHLY 

NEWSMAGAZINE 

FOR TRS-80 ■ 

OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE ECU OWING: 

• FINt:AI.C A COMPl.KIK KlNANClAi APF'I ICAFIONS PACKAGK 

• INF-ORMATION SYSTtM Ht-.VIEW 

• STATISTICAI. COMmNATIONS 

• PASCAi 'S IHIANGI F. 

• ASSKMHl Y LANGUAGF FOR BFGINNFKS 

• DISK Fll.fLi, 

• MOD 111 KFVIFW 

• KEYBOARD I MUNI )FH AND I.KiHTING FXPI.AINFI) 

• DOS COMMANDS IN I.FVFI. II 

• PROBABIi MY CURVE GENERATOR 

• CAI GUI AIOH SIMULATIONS 

• IMF MECjABYIF (,AP 

• STOCKS AND BONDS 

• BUDGFF ANAl VSIS (FOR BUSINFSS AND HOMF) 

• NEWDOS «l) REVIEW 

• nUTCHING THE HORSE SYSTEM THAT CAN' I ( OSF 

• A SIMULATED GOLF GAME 

• CONMNUOUS FORM SOURCES 

• TAX SAVER REVIEW 

AND MORE 



ft^^^soBS 



* "^ s^ FINCALC 

VO^ ^^Q^ i ! ^:^ , { > ^^^ uh:CJ A Complete Financial Analysis Package Used 

C^* To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 
O^ And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 
^t^ Savings and Insurance, Percentage Difference Between Two Numbers, 
Amortization Schedule and More 



»t^ 



SEN[) FOR OUR NEW M PAGF SOFTWARE CATALOG IINCI.UDING LIS HNGS OF HUNDREDS OF TRS HO'" PROGRAMS AVAIL ABI E ON 
CASSFriE AND DISKEFTF) SJ Ot) OH FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



* All programs arp siupplipd on i.dsselle (add S3 for Diskette Version - add $5 for modified Mod-ll Version) 

K 
E 



CQinPLITHQMICS! 



^9 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

ONE YEAR SUBSCRIPTION S24 

TWO YEAR SUBSCRIPTION $4H 

SAMPLE Of LATEST ISSUE S 4 

START MY SUBSCRIPTION WITH ISSUE 

("1 .ii.lv 1978 • Hl2 Jiitw 1979 • h24 July 1980 • ^30 Januarv 198D 

NEW SUBSCRIPTION . ... RENEWAI 



CRFDii c:ard number 

SIGNATURE .. 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



NEW!!! 

MOD-II NEWSLETTER 

$1 8/ycar (or IX issues3 



HOUR 
24 ORDER 
LINE 



^ (914) 425-1535 





.EXP DATE 



NAME 



ADDRESS 



CITY_ 



STATE _ 



ZIP 



•" ADD $12/YEAR (CANADA, MEXICO) - ADD $24 YEAR AIR MAIL - OUTSIDE OF USA., CANADA & MEXICO *" 
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H 



CQIYTPLITHQMICS 



N 
C. 



>•• EVERYTHING FOR YOUR TRS-80 ••• 



* TRS-ftO" is » trademark of the Radio Sliacb Division of Tandy Corporation 

* All orders processed within 24-Hours 
* 30~Daii money bock guarantee on alt TRSDOS Software 
*Add $3.00 for shipping in UPS Areas 
*Add $4.00 for COD. or f^ON-UPS Areas 
*Add $5.00 outside U.S.A.. Canada & Mexico 
* We wilt match anij bonafide advertised price 
in an\^ of the Major Computer Magazines 



MOD-II PROGRAMS 



A 

L 
L 

S 
O 

F 
T 
W 
A 
R 
E 

V > 

LISTED 
HERE 

"w ' 

R 
K 
S 

W 
I 

T 
H 

T 
R 
S 
D 
O 
S* 



M) ELECTRIC PENCIL (Micnael Shrayer Soltware) 
Complete word piocessor witfi extensive editing and 
printer tormattmg (ealures $325 {STANDARD 
THSDOS VERSION) S350(DIABLO NECORQUUE 
TRS(JOS VERSION! 

m GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 
INVOICING AND PAYROLL (Small Business Systems 
G'oup) an eitensme business system (or the se'ioi^s 
user can be uspd one module at a time or as a co- 
Ofdmalea system S2?5 per module S1299 tor the 
complete system 

(31 GENERAL LEDGER, ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL 

AND PAYROLL (Compumail a complete user o'l 
ented business system can be useO one module at a 
time or as a coordinated system S140 per module 
J995 toi Ihe complete system 

(«) MOD-II UTILITY PACKAGE [Racet Computes) 
adds important utilities to TRSDOS copy dies 
selectively taster and more accurale tile copying 
repair bad directories displays sorted directory ol 
all tiles on 1 to ■! aish drives SUPERZAP cliange 
disk ID and more i150 

(5) ADVENTURE "l-dB (Scott Adams - Adventure 
International) a series of games lormally only 
available on the large compulers your goal is to work 
your way llirougn a maze ot obstacles in orOer to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams t99 95 

(8) GSF (Racel Computers) Generalized Subroutine 
Facility a series ol super last machine language 
ulililies thai can be called Irom a BASIC program ino 
machine language knowleOge reguireO! sorts 1000 
il^ms in under % seconds allows PEEK angi POKE 
statements move data blocks compress and un- 
compress Oata works under TRSDOS $50 

(7) DSM (Racet Computes) Disk Sort Merge sorts 
and merges large multiple diskette liles on a i to 4 
drive syslem NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type ol sot) 4 disk 
drives worth ol data sorts one complete disk ot 
information in 10 minutes mlormation is provided 10 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS S150 

(8) RSM (Small Syslems Software) a machine 
language monitor and disassembler can be used to 
see anrj modity memory or Disk sectors conrains an 
the commands found on the Modei-1 version plus 
some additional commands for the MOD-II worVs 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY I Racel Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

150 

MOJ BASIC CROSS REFERENCE UTILITY (Racel 
Computes) lists all variables and strings used in a 
program (with the line numbers in whicfi they appear) 
lists all GOTO's and GOSUB's (wilh tlie line num- 
bers in which they appear) searches tor any specilic 
variables or strings iwith the line number in which 
they appear) $50 

(111 DEVELOPMENT PACKAGE I Racel Computes) 
SUPERZAP no see print or change any byte on a 
diskette) Disassembler and MOD-II interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches lor Disk I assemble 
direcllv mlo memory save all or portions o' source 
to disk dynamic debug lacilrty (ZBUG) entended 
editor commands $125 

(II) HARD/SOFT DISK SYSTEM (Racel Computes) 
The soltware essential lo interface any ol ihe popular 
large harO disk Onves completely compalible with 
your eiistmg software and files allows uo to 20 
megabytes of storage (and larger) directory eipanO- 
abie to handle thousands ot files $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November f) 

(1*) HARD DISK DRIVES coming soon (Nov 1') 

(15) H A E COMPUTRONJCS. INC SHARE-A- 
PROGRAM DISKETTE 11 works under TRSDOS a 

collection of programs written by MOD-II owners 
programs include Oata Base management a word 
processor mai) system mortgage calculations 
checkbook register and many others $6 ladd $3 
postage oulside ol the Umted Stales Canada and 
Memco) FREE if you Send us a Oiskette containing 
a program tnat can be addeO to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 
boi ot 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 

BOdisdeltes comes complete with mdei dividers tilt 
plates and adjustable spacing taa 95 
(IB) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORV CONTROL PAYROLL 
BOOKKFEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and iwoOiskettes 1149 95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd I 

the firsi user onenieO EOiior Assembler for the 
MODEL II and was designed lo utilize all Ihe features 
ol the MODEL ii It includes innovative features for 
ease of coding and debugging and complete Oocu- 
mentation (over 120 pages) works under TRSDOS 
1229 00 

(21) BASIC COMPILER (Microsotl) changes your 

source programs mio macfiine language increases 

program eneculion by 3-10 limes $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2 500 names per disk No sorting time is 
required since the file iS automatically sorted by first 
and last name plus Zip Code on input Retrieve by any 
combination ol 19 user cc^des Supports an ) i digit 
aiphaniimerica Zip Supports a message line Comes 
complete with user-orienied documenialion (tOO- 
page manual) Allows lor company name and individ- 
ual of a company and complete phone number (and 
e.lensioni works under TRSDOS $199 00 

(23) INCOME TAX PAC Professional income la« 
package most forms and schedules output to video 
or line prinler automaiic memory storage of all 
information dala can oe loaded from diskette 
changed and edited Duill m error checking $199 95 

(24) COMPUTER GAMES (SBSGl Mean Checker 

Machine 3tar-"'rek ill Concentration TreasureHunt 
Banco Dog Star AdvLVtu'e VA 95 



iCQIYlPJTRQMlCSi 



^^9 



50 N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II that allows MOD-II 
owners to use any of the hundreds of programs 
available unfler CP/M $170 

(2) CP/M HANDBOOK (Sybei) a step-by-step 
guide to CP/M takes the reader ihrough each of Ihe 
CP/M commands numberous sample programs 
practical hints relerence tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL. 
AND PAYROLL (Pearhtree Software) requires CP/M 

and MICROSOF T BASIC professional business 
systems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module 12500 for the complete system 

(*) WORD-STAR The ultimate worO processor a 
menu driven word processing system thai can be used 
with any printer All standard word processing 
commands are included plus many unique com- 
manOs only found on WORD STAR requires CP/M 
$495 

(5) MAIL LIST MERGE An add on package that 

allows the user to send form tetters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CP/W WORD STAR and 
anOy CP M based mail program $150 

(6) SELECTOR Ml (Micro-Ap) complete dala 
management syslem user defined fields and codes 
manages any list defined by Ihe user includes 
additional modules tor simplified inventory control- 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro Ap) the ultimate dala 
management system all feaiures use the SELECTOR 
III plus data file formal conversions full page report 
formatter compulations global search and replace 

hard dish compatible oata teil merging $550 

(8) GLECTOR (Micro-Api adO on paciiage to Ihe 
SELECTOR general ledger Ihal allows the user lo 
dpiine a cuslomiied chart nf .iccounis 1350 

(9) CBASIC-2 a non-mteraclive BASIC used for 
many programs that run under CP/M allows user lo 
make more efficient use ol disk hies eliminates Ihe 
use ol most line number references require on such 
programs as the SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version ol the 
MICROSOFT BASIC lound on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing Ihe variables 
currently in memory) long variable length file 
records WHILE WEND and others can be used with 
the BASIC COMPILER to speed up programs 13-10 
times taster e-eculionf $325 

(111 MASTER TAX (CPAids) professional ta< 
preparation program prepares schedules A, B- C D 
EFGRRPSETC ES and forms 2106 21 '« 2210 
346B 3903 2441 4625. 4726 4797. 4972. ^695 ana 
6521 Printing can be on readily avail abiaprr-pr nied 
continuous forms on overlays or on to'"0u1er 
generated iRS approved forms Maintains riirr"^, story 
(lies inieractive with CP Aids General L edge' 1995 

(12) GENERAL LEDGER II (CPAids) designed lO' 
CPA's stores complete 12 month deta,iBaH'Stury ol 
transactions generates financial stalerr|e"is 
depreciation loan amortiiations. ..|nprr»(j, 'nal 
balances statements of changes in lina'irial»o»iliori. 
and compilation letters includes payton syslBfi wlfi 
automating posting to general leagers.ipfinls 
paytoH register W2 s and payroll checks $4S0 

(13) ELECTRIC PENCIL (Michael Shrayer So'lware) 
Complete word processor wiih extensive editing 

and prinler formatting leatures %71b (Standard 
printer version) $300 (DIABLO NEC or .QUME 
version) ' 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

- (CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

* TRS-SO" h a (rademark of the Radio Shack Oivhion of Tandy Corporation 



joo SUPER i MASTER PAC 100 , 

— qqH^XM* I ^and EDITION jCORgLETIEinrRE^^ 



FOR YOUR TRS-80'" LEVEL II MICROCOMPUTER 



ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 



CHECKBOOK MAINTENANCE 

TIME FOR MONEY TO DOUBLE 

FEDERAL PICA & WITHHOLDING TAX 

COMPUTATIONS 

HOME BUDGET ANALYSIS ^_ 

ANNUITY COMPUTATION .«f tW£99 

UNIT PRICING R\JS»**^ 

CHANGE FROM PURCHASE *^ 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 
li INVENTORY CONTROL 
12 PORTFOLIO VALUE COMPUTATIONS 
13. VALUE OF A SHARE OF STOCK 
M SALES RECORD KEEPING SYSTEM 
15. FUTURE VALUE OF AN INVESTMENT 

16 EFFECTIVE INTEREST RATE (LOAN) 

17 PRESENT VALUE OF A FUTURE AMOUNT 

18 RATE OF RETURN VARIABLE INFLOW 

19 RATE OF RETURN CONSTANT INFLOW 

20 REGULAR WITHDRAWA! FROM INVESTMENT 

21 STRAIGHT LINE DEF'RECIATION 

22 SUM OF DIGITS DEPRECIATION 

23. DECLININCi BALANCE DEPRECIATION 

Zi BREAK EVEN ANALYSIS 

2b SALVAGE VALUE OF INVESTMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 
28. CREDIT CARD FILE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30 VALUE OF HOUSE CONTENTS _-»*J XV. 
3! TEXT EDITOR ■nIfWSO" 

32 MONTHLY CALENDAR IT*'*' 

33 DAY OF WEEK 

34 CASH FLOW VS. DEPRECIATION 

35 COMPLETE MAIL SYSTEM 

36 INTEREST RATE ON A LEASE 



-ristics 



FIHAHCE 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 
3H ANGLO METIC CONVERSION 
39 MEAN. STANDARD DEVIATION, 

MAXIMUM AND MINIMUM 
40. SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 

45 SIMPLE T TEST — — . k ' 

46 CHI SQUARE TEST S I J* 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 
49. POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 
5! MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPLICATION 

64. SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56 LINEAR EQUATION SOLUTIONS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTON'S METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN-DEGREE CONVERSION 

63 NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 

70 CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MXTH 



GRAPHICS 

73 DRAWS BAR GRAPH 
74. DRAWS HISTOGRAM 
75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76. RANDOM SPORTS QUIZ 

77. GOVERNMENT QUIZ 

78. HORSE RACE 

79. MAGIC SQUARE 

80. ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82 UNSCRAMBLE LETTERS 

83 HANGMAN 

84 GAME OF NIM 
85. RUSSIAN ROULETTE 
86 ROULETTE GAME 
87. ONE ARMED BANDIT 
88 HIT THE TARGET 

89. WALKING DRUNK 
90 STATE CAPITAL QUIZ 

91. TICTAC TOE 

92. DICE GAME 

93 LUNAR LANDAR GAME 

94. BIORHVTHM 

95. HORSE SELECTOR (CLASS CALCULATOR 

96. RANDOM DICE ROLL 

97. RANDOM ROULETTE ROLL 

98. RANDOM CARD DEALER 

99. GUESS THE NUMBER 
100. WHITE OUT SCREEN 



GAMBtlH® 



---r;::r.. 



GUARANTEED SATISFACTION 

30 DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



•CQinPLiTHQMlCS! 



'^AATV^^AA' (UH flJ^*^_r;ATCirTS 1^1 



^9 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

PLEASE SEND ME; 

D MASTER PAC 100 CASSETTE VERSION $59.95 

D MASTER PAC 100 DISKETTE VERSION $59.95 

a MASTER PAC 100 (TRS 80 MODEL l[ VERSION) $99.95 



--^> ^ HOUR 

,QB\24 ORDER 
LINE 

(914) 425-1535 



^^^^ NEW TOLL-FREE 

^^ ORDER LINE 

^^^ (OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* All orders processed within 24-Hours 

* 30-Day money back suarantee on alt Software 



CREDIT CARD NUMBER EXP. DATE. 

SIGNATURE 



NAME 



ADDRESS CITY STATE ZIP 

*" ADD U.M FOR SHIPPING IN UPS AREAS • ADD KM FOR C.O.D. OR NON-UPS AREAS • ADD SS.W OUTSIDE U.S.A, CANADA ft MEXICO 
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• • • EVERYTHING FOR YOUR TRS-80 "• • • 

TRS-M> la B Iradrmark of the Radio Shark Division of Tandy Corporallon 

BUSINESS PAC 100 

100 Ready-To-Rim 
Business Programs 




Software 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance Accounts Receivable... .Accounts Payable 



BUSINESS 100 PROGRAM UST 



1 R(JLE78 Interest Apportionment by Rule of the 78's 

2 AHNUl Annuity computaton program 

3 DATE Time between dates 

4 DAVYEAR Day oF >«ar a particular date falb on 

5 LEASEirfT Interest rate on tease 

6 BREAKEW Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depifeciatjon 

10 DEPRDDB Double declining balarvce depreciatior 

1 1 TAXDEP Cash flow vs. depreciation tables 

12 CHECK2 Prints MESS checks along vrilh daily register 

13 CHECKBK] Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortaatiofi taWe 

15 MOLTMOfH Computes time needed for money to double, tripte, 

16 SALVAGE Determines salvage value of an investment 

17 RRVARIN Rale of return on investment with variabJe inflows 

18 RRCOMST Rate of return on investment wrth constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound tnterest) 

21 WAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWITH Equal withdrawals from mvestmeni to leave over 

24 SiMPDISK Simple discount analysis 

25 DATEVAL Equrvaienl & nonequivalent dated values for oWig. 

26 ANMUDEF Present value of defen«d annultjes 

27 MARKUP % Markup analysis for rtems 

28 SIMKFUND Snking fund amorti7«ion program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Sctioles options analysis 

32 STOCVALI E;tpected retum on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BOriDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per sfiare for company 

36 BETAALPH Computes alpha ar>d beta variables fof stock 

37 SHARPEl foitfolk) selection modeli.e, what stocks to hold 

38 OFTWRITE Option writing computations 

39 RTVAL Value of a rtght 

40 EXPVAL Expected value analysis 

41 BAYES B^esian decisions 

42 VALfWMF Value of perfect informatior 

43 VALADIMF Value of additkmal informatkxi 

44 onuTY Derives utility function 

45 SWR-EX Linear programming sokjtkin by simplesi m«hod 
A6 TRANS Trantpoflation method for linear programmers 
47 EOQ Ecorwrnk order quantl^ Inventory rrwdd 

46 QUEUE] Single server queudng {waiting line) mocM 

49 CVP Cost-volumeijrofll analysis 

50 COMDPROF Condtionoi proA Cables 

51 OFTLOSS Opportunity k»sa tables 

52 FQUOQ Fbted quantity economk order quantity modd 

NAME DEsaaFTion 

53 FOEOWSH As above but with shortages permMled 
M FOeOQPB As ^xw« but wHh quantity price breaks 
» QtBJJEJCB CoM-beneft waWrx] Ikw andyrit 

96 NCFANAL liel cash^law analysis for itrriple lns«stment 

57 PROFTC PnoAaMRy IrxicK of a project 

96 CAP! C^x AsMi FV. Model nvi^ at pra^ 



59 WACC Weighted average cost ot capital 

60 COMPBAL True rale on loan with compensating bal. required 

6 1 DISCBAL True rate on discounted kian 

62 MERGANAL Merger analysis compuiaoons 

63 inriRAT FinarKial ratk>s for a firni 

64 MPV rSet present value of project 

65 PRIMDLAS Laspeyres pnce index 

66 PRIMDPA Paasche price index 

67 SEASJND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TVAE>\OV Time series arvilysis moving average trend 

70 FUPRIhF Future price estimation with inflation 

71 MAILPAC MaUing list system 

72 LETWRT Letter writing system-ynks with MAILPAC 

73 SOIiT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Mame label maker 

76 BtlSBUD DOME business bookkeeping system 

77 TIMECLCK Computes weeks total hours from Bmeckxh info 

79 ACCTPAY In memory accounts payable system storage permitted 

79 irWOICE Generate irrvoice on screen and print on pnnter 

80 iHVENT2 In memory inventofy control system 

81 TELDIR Com [xiterized telephone directoiy 

82 TlMtiSAM Time use analysis 

83 ASSIGM Use of assignment algorithm for optimal job assign. 

84 ACCTREC In merrxjry accounts recervaWe system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of toans 

86 PAYMET Computes gross pay required for given net 

87 SELLPR Computes selling pnce tor given after tax amount 

88 ARBCOMP Artsitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZOME Rnds UPS lones from zip code 

91 ENVELOPE Types envelope including retum address 

92 AUTOEXP Automobile expense analysis 

93 IMSFILE Insurance polkry file 

94 PAYROLL2 In n-iemory payroll system 

95 DIL\rHAL Dilution analysis 

96 LOAMAFFD Loan amount a bonower can afiord 

97 REIWTPRCH Purchase price for rental property 

98 SALELEAS Sate-leaseback analysis 

99 RRCOI'WBD investor's rate of retum on convertable boryJ 
100 PORTVAL9 Stock market portfolio storTige-vnliiaiiDn prt^ram 



D CASSETTE VERSION 999 

D DISKETTE VERSION »99 

a TKS-80* MODEL U VERSION •149 



ADD SJ.M FOR SHIPPING IN UPS AREAS 
ADD $4.M FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A. CANADA & MEXICO 

iCQIYIPJTHQMXCSf 



SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



..95 '^^«' TOU-FB-^ 
».95 OROPft.r. 

^HOUR •^ 

^^ UNE 

^9,4)425-1535 
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• » EVERYTHING FOR YOUR TRS-80 ••• 

TRS-ao Is a iradvmark of Ihr Radio Shai k Division of Tandy Corporailon 




•k Alt orders processed within 24-Hour$ 
•k 30-Day money back guarantee on all Software 
■k Add $3.00 for shipping in UPS Areas 
• Add $4.00 for COD. or NON-UPS Areas 
n VJC|V1^VC2C * Add $5.00 outside U.S.A., Canada & Mexico 



COORDINATED 



SMALL BUSINESS 
SYSTEMS GROUP 



SYSTEMS 



wsr 






FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1, S.B.S.G. is a sophislicated Business Software System designed (or the serious businessman. 

2. Each ot the S.B.S.G. Busin«» Moduitt may be purchased separalely.or you may purchase the entire coordinated business system 

3 Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. (ee, the user may upgrade his 
individual modules for the coordinated system) 

4 Foolproof, Slep-By-Step procedures are supplied, planned and documented (or the Fir*l-Tlm« Compulsr User. All programs are self- 
explanatory, telling the user what is required at every step 

5. Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system. 

6. A complete users manual is supplied with each module 

7 Demo Data diskettes are supplied with sample data. 

8 S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail) 

9. First-Time Compuler Owners Note-Instructions are provided for entering stale payroll withholding tables There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data 

1,8. Minimum system requirement is 2-drives lo run any single module 

n. Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL), 

12. Minimum system requirement is 4-drives to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICtNG). 

13 The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual), 

14 The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15 Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING 

16 Memory requirement is 48K for the MODEL-I and 64K for the MODEL-II 

1 7 All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives No data is ever lost during an upgrade There isa standard S.B.S.G. 
charge (or all upgrades 



ACCOUNTS PAYABLE 

The accouij|s payable system receives data concerning purchases from 
suppliers f'u' produces checks in payment of outstanding invoices In 
addition, i: .Voduces cash management reports This system aids in 
tight financial control over all cash disbursements of the business 
Several reports are available and supply information needed (or the 
analysis of payments, expenses, purchases and cash requirements All 
A/P data feeds General Ledger so that data is entered into the system 
lust once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested m many environments since 
then The package has been converted to the TRS-80'" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems) 
CAPABILITIES: 

* menu (ftiven; easy to use, full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice: handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice ». description, buyer, check 
register «, invoice date, age date, amount of invoice, discount (in %). 
freight, tax ($), total payable 

* transaction print and die maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
(or a set of vendors-or-(or specidc vendors 

* program prints your checks: contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* (ully linked to GENERAL LEDGER, each invoice can be distributed 
to as many as (ive (5) dit(erent GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective ot a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales while minimizing losses from bad debts The programs com- 
posing this system were developed 5 years ago. especially lor small 
businesses using the Wang Microcomputer They have been tested in 
many environments since then Each module can be used stand alone 
or can feed General Ledger for a fully integrated system 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready (or billing, 
when ready (or billing, after billing or after paid 

* allows entry of new invoice, credit memo, delsit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction • bitting date 

• customer PC. # • general ledger account number 

• description of P O. • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & tile maintenance procedures insure accuracy 

* customer statements printed; computer statements with your com- 
pay letterhead can be purchased (rom SBSG 

* reports include: (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed Items (paid irwoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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PAYROLL 

Payroll invoices many complex calculations and Ihe production ot 
reports and documents, many of wtiich are required by government 
agencies. It is an ideal candidate (or the computer With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions. The package has been converted to the TRS-BO™ and 
IS now a well documented, op-lme. interactive, micro-compuler system 
with the capabilities ot (or exceeding) many larger systems. 
CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing ot reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 
" holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time jbonus. reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnmgs-to-date are accumulated and added to permanent records. 
taxes are computed and deducted: US income tax. Social Security 
tax, state income tax, other deductions (regular or one time) 

* paychecks are printed, computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for, employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger Each employee's payroll information 
can be distributed to as many as (12] twelve different GL accounts: 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes. class SKU Division. Retail 
Cost Beginning Balance. Period Sate Units. Period Receipts On 
Order. On Hand. ..Minimum Reorder Point Recommended Re- 
order Amount. Vendor Number Period Sale Dollars. YTD Sale 
Units . YTD Sale Dollars 

* Calculated and Displayed Formulas include Gross Margin ($) 
Gross Margin (%| Gross Margin ROI (%). .Average Inventory Retail 
($] Average Inventory Cost ($). Turn-Over (%) 

* Reports Generated include. Master File Listing Class Description 
Listing. Transaction Audit Trail . Minimum Reorder Point by Ven- 
dor. Retail Price List Retail & Cost Price List ..Period Sales Report 

. Year to Date Sales Reporf Stock Status (Screen or printer output) 
..Commission Report (for salesmen and buyers) 

* Transaction Types include . Sales. Vendor Receipts. Vendor 
Orders. .Customer Returns. Vendor Returns Transfer Stock 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R, A/P. Payroll, direct posting) in 
an accurate and timely manner Ma|Or reports include the Income State- 
ment and Balance Sheet and a 'special' report designed by manage- 
ment. The beauty of this General Ledger system is that il is completely 
user formatted. You 'customize ' the account numbers, descriptions, 
and report formats to suit particular business requirements These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then The package 
has been converted to the TRS-80'" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems 
CAPABILITIES: 
« more than 200 chart of accounis can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via 

• direct posting, done by hand, validated against the account file 
before acceptance 

• external posting, generated by A;R, A/P, Payroll or any other 
user source 

* data IS maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include. 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more. 

* user formats reports with the (ollowmg designated as you wish 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels ol totals - fully user designated 

* menu driven, easy to use, full screen prompting and cursor control 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY, STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



PRICING 

ACCOUNTS RECEIVABLE 

ACCOUNTS PAYABLE 

GENERAL LEDGER 

PAYROLL 

INVENTORY 

INVOICING 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE 

COORDINATED AR-AP-GL 

COORDINATED AH-AP-GL with PAYROLL 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL 





MOD-1 
VERSION 

$125 


MOO-tl 
VERSION 

S225 
$225 
$225 

$225 
$275 
$250 
$749 
$675 
$899 
$1299 


MOO-tll 

VERSION 

S199 95 
$199.95 
$199 95 
$199 95 
$199 95 
$199 95 
$599 95 
$599.95 
$799 95 
$1199 95 




$125 




$125 




$125 




$175 




$150 


E 


$449 




$375 




$495 


Nith PAYROLL 


$799 
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• • e EVERYTHING For Your TRS-80* Model I or Model III • • • 



'TRS-80"iS a triidemarK of Tarujy Coip 



REMsoFT. Inc 



All orders processed withm 24 Hours 
• 30-Day money back guarantee 
• Add S3 00 (or shipping in UPS Areas 
• Add S4 00 for C O D or NON-UPS Areas 
• Add $5 00 lo Canada or Mexico 
• Add exact postage to all otfier countries 



Let Your TRS-80^" 
'^- Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80 " 
ASSEMRLY LANGUAGE 

DISK I/O 


REMASSEM-1 

liredof buying book a Iter book on assembly la ngu.iqe prog ramming and 
still not knowing your POP from your PUSH? 

REMSOFT proudly announces a more efficient way kismg your own 
TRS'80"toleain the fundamentals of assembly language programming 
at YOUR pace and at YOUR conveniencu 

Our unique package INTRODUCTION TO TRS-60 ' ASSEMBLY 
PROGRAMMING", wilf provide you wilh tne following 

* Ten 45-,mmute lessons on audio cassettes 

* A drivei program to make your TRS-80" yideo monitor serve as a 
blackboard for the instructor 

* A display program (or each lesson to provide illustration and rein- 
forcement tor what you are hearing 

* A textbook on TRS-80" Assembly Language Programming 

* Step-by-step dissection of complete and useful routines to test 
memory and to gam direct control over the keyboard video moni- 
tor and printer 

* How to access and use powerful routines in your Lpvel II ROM 
T his cpu rse was developed and recorded by Joseph E Will is and is based 
on the successful series of courses he has taught at Mela Technologies 
Corporation the Radio Shack Computer Center, and other locations m 
Northern Ohio The minimum system required isaLevelll t6KRAM 


REMDISK-1 

Your disk sy stem and y ou can really step out with REM'. oi i .Educational 
IVlodule REMDISK-1, a short course ' revealing the details of DISK 1 
PROCRAMMING using assembly language 

Using the same format as our extremely popular introduction to assem- 
bly language programming, this "ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING" course includes 

* Two 4,S-minule lessons on audio cassette 

* A driver program to make your TRS-SO" video monitor serve as a 
blackboard for the instructor 

• A display prog ram for each lesson to provide illustration and rein- 
forcernenl for what you are hearing 

*■ A boo^<lel of comprehensive Ikilly-commented program listings 
illustrating seguentiaMile I'O random-access hie I'O and track 
and secior I/O 

• A diskette with machine-readable source codes tor an programs 
discuss-.'G in both Radio shack EDTASM and IVlacro formats 

♦ Roiitmes to convert from one assembler format to the other 
This course was developed and recorded by Joseph E Willis, for the 
student with experience in assembly language programming it is an 
intermediate-to advanced-level course Minimum hardware reguired is a 
Model 1 i evel II 16K RAM one disk drive system 



•CQIYIPIJTHQMICS; ., 

50 N, PASCACK ROAD 
IPRING VALLEY, NEW YORK 10977 



PLEASE SEND ME: 

DREMASSEM-l (TRS-fiO MODEL I CASSETTE) 
D REMASSEM-1 (TRS-80 MODEL I DISKETTE) 

□ REMASSEM 1 (TRS-80 MODEL IM CASSETTE) 
D REMASSEM-1 (TRS-80 MODEL 111 DISKETTE) 

□ REMDISK-I (TRS-80 MODEL I DISKETTE) 




n 



HOUR 

ORDER ^f; 
LINE 



(914) 425-1535 




S69 g-s 

S74 95 
S74 95 
S79 95 
S29 95 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



□ ReMDISK-1 fTRS-80 MODEL III DISKETTE) S34 95 

CREDIT CARD NUMBER ,' EXP DATE 

SIGNATURE NAME 

ADDRESS 



CITY STATE .. 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE •'• 



ZIP- 
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from uumE wFrmmE 

FOR THE TRS-80 MODEL I AND MODEL lU 




I System Diagnostic 



For Cassette or Disk 



Ej^rv.CompoflentQJ 

IS YOUR COMPUTER WORKING? 



S99.»* 



ROM: 

RAM: 

VIDEO DISPLAV: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



ARE YOU SURE? 

checksum lest 

four separate tests including every address and data value. 

character generator, video RAM, and video signal. 

every key contact tested. 

character test. 

read/writ e/verify data. 

connector laull. data transmission, traming, data loop, baud rale generator. 

dbk controller, drive select and restore, track seek and verity data, re ad/ write/ verify all tracks and 

sectors with or without erasing, sector formatting, disk i^ive timer, disk head cleaner. 



— Individual tests of each device with operator monitoring and intervention. 

— Continuous sysem tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

— One program adapts to any system configuration and hardware. 

— Complete instructions and documentation. 



MON-3 and MON-4 

The TRS-80 Monitor Programs »3 and »4 are powerful utility programs 
enabling you to interact directly with the TRS-SO in Machine Language, 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PACE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable Vou To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE obfecl programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk secton {MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes {MON-3) or Files {MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-) (For Cassette Systems) $>4-9S 
MON-4 CPor Dl*^ Syttems) S44-95 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including control key mapping mto any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
gram. Baud rate and RS-232-C sense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $69.9$ 



MAIUNG LIST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (I.e.. name, address, lip 
code). Labels prmted in 1, 2, or 3 columns, in master list on one line, or on 
video display. 

DUk Version Only $*9>9S 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, enpenses, and monthly bills. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. All output printed on video display or line 
prmter at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49.94 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to sort data from BASIC programs. Data mav be alphabetic (string) 
or numeric (integer only). Works equally well with Level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
BASIC programs. 

Cassette or Disk Version $9-9S 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record =612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-date summaries. Payroll seition keeps record^ of individual 
employees and their paychecks with up to six categories of pavroll de^ », 
ductions. Employee payroll record jnd year-lo-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit -%^' 
your business. 

Disk Version $49-9S 
Cassette Version $X9-9S 
(Cassette Version does not (ontain payroll) 



iCQIYlPJTHQMlCS 



C k'9 



50 N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 






NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



• All orders processed within 24 Hours 
• 30-Day money Back guarantee 
• Add $3 OOfor shippmg in UPS Areas 
• Add $4 00 lor C O D ot NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 
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TUTORIAL 



Write your first program with the help of a flying saucer 



Alternate Course— Part II 



Michael A. Duffin 
1507 East Ave. 
Berwyn IL 60402 



One of the hardest things in 
data processing is writing 
your first program. 

To heip aiieviate this problem 
t gave my class Flying Saucer 
(Program Listing 1) to enter into 
the computer. The intended re- 
sults of this program can be 
seen in Fig. 1. 

Those numbers on the left are 
line numbers, and the computer 
uses them so it knows what line 
to execute first. They may be 
typed into the computer in any 
order, and the computer will 
place them in the correct se- 
quence. If you make a mistake, 
just type the line over again. 

One thing you must remem- 
ber is that when you are finished 
typing on each line you must hit 
the white Enter key. This tells 
the computer that you are fin- 
ished entering a line. If you want 
to make sure that you have 
Wped in all of the lines correctly 
then type LIST into the com- 
puter. This causes the computer 



to list all of the lines with line 
numbers that you have typed in- 
to the computer. When you are 
ready to see your picture, type 
RUN into the computer. Don't 
forget to hit the Enter key after 
you have typed in list or run. 

As far as the instructions 
used in the program, CLS means 
clear the screen. This causes 
the computer to erase every- 
thing that's on the screen, 

PRINT® tells the computerto 
print something at a specified 
spot on the screen. If you look at 
a TRS-80 Video Display Work- 
sheet you will see the numbers 
through 63 at the top of the 
sheet. At the right of the sheet 
are the numbers 63, 127 and so 
on. At the left are the numbers 0, 
64, 128 and so on. 

These numbers are used with 
the PRINT® instruction. The 
number represents the corre- 
sponding positions on the 
screen. The numbers through 
1023 are valid for this instruc- 
tion. The second operand of the 
PRINT® instruction is the 
character or groups of charac- 
ters that you want printed at the 
specified location. If we look at 
line 20 of the program: 

20 PRINT® 158,"()" 

we see that the characters ( ) will 
be printed starting at position 
158, These characters must be 
included in quotes. 

One other point of interest 
about this program concerns 
lines 70, 80 and 90. The starting 
position in lines 20 through 60 



was determined by taking the 
number to the left of the charac- 
ters for that line and then adding 
the number from the top that is 
just above the first character of 
that line. Thus, In line 20, the 



numbers 128-^30 (158) repre- 
sent the starting position. Since 
the computer can add more reli- 
ably than we can, lines 70, 80, 
and 90 let the computer add the 
two numbers to determine the 




Fig. 1 



S REM *** FLYING SAUCER *** 
10 CLEAR 




20 PRINTS 158, " ( ) ■ 
30 PRINTS 221, " ( ) ■ 
40 PRINTg 284, " ( ) ■ 




50 PRINTg 344, "( (( ) ) ) ) " 
60 PRINT@ 384+21, "((((((( 
70 PRINTS 448+18, "( ((({(((((( 
80 PRINTS 576+24, "THIS IS 
90 PRINTS 640+14, "FLYING 


)))))>)))))■ 
A" 

SAUCER" 



5 HEM **• FLYING SAUCER MODIFIED *** 

10 CLS 

20 PRINTfl 158, "() " 

30 PRINTS 221, "( ) " 

40 PRINTS 284, "( )" 

50 PRINTS 344," [ ( ( ( ) ) ) ) " 

60 PRINTS 384+21, -((((((! )})))))" 

70 PRINTS 448+17, ■(((({([(((( )))))))))))" 

80 PRINTS 576+24, "THIS IS A" 

90 PRINTS 639+14, "FLYING SAUCER' 

100 PRINTS 960+30,"! 1" 

110 FOR X=l TO 160 

120 NEXT X 

130 GOTO 100 
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Please call 

(213) 883-8594. 

Our Epson prices 
aresolov\^ 
w^Ve not allowed 

to print them. 



30 
95 
30 
100 
60 
70 



SERIAL iNTERhACE (2K BUFFER) 5 

SERIAL CABLE Male to Male £ 

DOT RESOLUTION GRAPHICS S 

REPLACEMENT RIBBON S 

REPLACEMENT PRINT HEAD^Q J.e'. type) S 

EPSON SERVICE MANUAL ...-....,, S 



EPSON MX-80 $CALL EPSON INTERFACES & OPTIONS 

80 cps/9x9 matrix/Lower case with trsso model i m cable . .. 
true descenders/Bi-directional & trs-so model i Keyboard mierface 
Logic seeking/Adjustable tractor/ rPPLHN™c'fcABLE ... 
Expanded printing/Block graphics/ ieee 488 interface 

Forms control/Cornpressed printing/ serial interface 

Double-strike printing/Correspon- 
dence quality/Emphasized printing 
mode/Standard parallel interface 

EPSON MX-80 F/T $CALL 

Same features as the MX-80 plus Fric- 
tion Feed. Adjustable removable trac- 
tor is standard for ease of handling 
forms and single sheets, 

EPSON MX-100 F/T $CALL 

Same features as the MX-80 & MX-80 
FA but on 1 5V2 inch carriage for print- 
ing 132 columns with standard 10cpi 
font or 232 columns in the com- 
pressed character font. The MX-1 00 is 
complete with Dot Resolution 
Graphics 31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 




We built a reputation on our 
prices and your satisfaction. 

We guaranlee everyihing we sell tor 30 days If aoylhing 
IS wmng, jusi return the item and we'll make it righl. 
And, of course, we'll pay Itie stiipping ctiarges 

We accept Visa and IVIasier Card on all orders COD 
accepted up io $300.00. We also accept school pur- 
chase orders. 

Please add $2.00 lor slandard UPS stiipping and 
handling on orders under 50 pounds, delivered in the 
continenia! U S. Call us for shipping charges on items 
that weigh more than 50 pounds. Foreign, FPO and APO 
orders please add 15% for shipping. California res- 
idents add 6% sales tax. 



^69 



'£«• Llat of AdnrUatn on pago 354 
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JHHt-Jf-tHt i t H Hit i HH f-tf-it - H-H - H- 

*' " *' Ti " It n TT IP TT ft fi n n n tt ft ft 

JHtif-tl-H-iHt-ft- tt-it it - U- 

ft n FT II It n ij PI tt fi ft fT 

tA *t It J J tt U 

TTfTg WWW 

## 

tf"#-tf-ff-tf-ffr 
If M II rr fp JF' 

'rr TT rt ft tt tt tt ft ft ft ft ft' 
j Hf-jf-JHHi -ff- f t ■#-*-#■■#■ 

II II II It It tt tt It It Tf If ft 

H It H ft ft ft 

*=ft= 

ftHH H tiff 

############ 

4t^lMf==tHt'i(==ff- tt ft ft tt tt U ##### 
F/g, 2 



5 CLS 

6 REM *** 
^i PRINT I 
is PRINT i 
20 PRINT ( 
25 PRINT ( 
38 PRINT ( 
35 PRINT ( 
40 PRINT S 
45 PRINT S 
50 PRINT f 
5 5 PRINT ( 
60 PRINT i 
65 PRINT * 
70 PRINT i 



SYHHETBIC DESIGN BY ANDREA BAAB *•* 
86, "xxxxxxxxxxxxxxxxxx" 
153, "xxxxxxxxxxxx" 
220, "xxxxxx" 
286, "xx" 
348, "xxxxxx" 
383+26, "xxxxxxxxxxxx" 

xxxxxxxxxxxxxxxxxx" 

xxxxxxxxxxxx" 

xxxxxx" 



447+23, 
511+26, 
575+29, 
639+31, 
703+29, 
767+26, 
831+23, 



xxxxxx 

'xxxxxxxxxxxx" 
'xxxxxxxxxxxxxxxxxx" 



10 CLS 

20 PRINT@ 280, "XXXXXXX" 

30 PRINT@ 341, "XXXXXXXXXX X' 

40 PRINTS 408, "XXXXXXXXXXXXXXXX" 

50 PRINT? 447+25, "XXXXXXXXXXXXXXXX" 

60 PRINTg 511+25, "XXXX XXXX" 

70 PRINTS 639+22, "THIS IS A DOG" 



Starting position. 

After this brief explanation of 
the program I instructed my stu- 
dents to type the program into 
their machines and run it. Then 
I asked them to modify the pro- 
gram so that the picture on the 
screen matched the picture on 
the worksheet. At this time all 
modifications were accom- 
plished by retyping the line that 
was in error. 

Most of the students had no 
problems with this program ex- 
cept for the fact that a few of 
them weren't very good at typ- 
ing, but then again neither am I. 

Once everyone had complet- 
ed the exercise I gave them the 
following four lines: 

100 PRJNT® 960 + 30,"!!" 
110 FORX=1TO100 



120 NEXT X 
130 GOTO 100 

Along with these lines I gave 
them the following instructions: 

1) Add lines 100 and 130 only 
to the saucer program. 

2) Type RUN 

a)What happens? Why? 
b)What does line 130 do? 
c)How do you stop the pro- 
gram? 

3) Now type in lines 110 and 
120. (The program should now 
consist of lines 10 through 130). 

4) Type RUN 

a)How has the program 
changed? 

5) Change the number 100 in 
line 110 to 1000. 

6) Type RUN 

a)How has the program 
changed? 





5 REM *•* SHIP BY LIHI HODJA *** 

10 CLS 

20 PRINT? 95, "X" 

30 PRINT? 158, "XXX" 

40 PRINT? 221, "X X X" 

50 PRINT? 284, "X X X" 

60 PRINT? 319+28, "X X X" 

70 PRINTS 383+27, "X X X" 

80 PRINT? 447+26, "X X X" 

90 PRINT? 511+25, "XXXXXXXXXXXXXXX" 

100 PRINTS 575+32, "X" 

110 PRINT? 6 3 9+15, "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X" 
120 PRINT? 703+16, "X X" 

130 PRINT? 767+17, "X x" 

140 PRINT? 831+18, "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
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7) ChangethenumberlOOOin 
line 110 to 10. 

8) Type RUN 

a)How has the program 
changed? 

b)What do lines 1 10 and 120 
do? 

c)How does the program 

work? 

For those of you who don't 

have a TRS-80 handy, I'll explain 

the answers to the questions 

above. 

2a. What happens is the fly- 
ing saucer flies up off the 
screen. Then, what seems to 
happen is the characters "!!" 
stay on the screen. 

2b. Line 130 goes back to line 
100 and prints I! again at posi- 
tion 990. 

2c. There are a couple of 
ways the program can be 



stopped. One way of course is to 
turn off or unplug the machine. 
The big disadvantage in doing 
this is that you have to retype 
the entire program into the ma- 
chine so you can answer ques- 
tion number 3. A better method 
of stopping this program or any 
program is to hit the Break key. 

4a. The saucer still flies off 
the screen but it does this at a 
slightly slower rate. This time it 
can also be seen that the char- 
acters !! seem to be blinking. 

6a. By changing the number 
in lines 110 to 1000 the saucer 
flies up off the screen at a much 
slower speed and, yes, this time 
the characters !! are definitely 
blinking. 

8a. This time the saucer flies 
off the screen at a much faster 
rate. 



10 CLS 

20 PRINTS 63+25, "* 

30 PRINTS 127-f25, "t *" 
PRINT? 191+25, "(HiHI*" 

50 PRINTS 255+25,"* *" 

60 PRINT? 319 + 26, "imtl" 

PRINT? 383+28,"! I" 

PRINT9 447+23, "*#*«< 

90 PRINT? 511+23, "» 

100 PRINTg 575+23,"* 

lia PRINT? 639+23, ■» 

120 PRINT? 703+19, ■***# 



##»#l' 



t 

I i' 
• t" 



tttf 



13B PRINT? 767+19, "*•*»•••*•••**•*•*•*♦•»••*••■ 





PROBASIC 



PROBASIC $195.00 

Loader rekxatabiy links user specified modules to save memory. 
Design BASIC to your specifications (now or later). 
Dump feature allows you to save your versions of Basic 
Sample: PROBASIC -P: ACDEFGIM -S:Your file 



Probaslc Includes the following relocatable modules 



PRO - ANGLES 

DEGREES, RADIANS 
ASIN, ACQS, PI # 



PRO-LABELS 

Label branching & testing 
IF LABEL 85 < > Tesf 
THEN MERGE . . . 
85 Test" PRINT Test" 



PRO-DEBUG 

Most brackets optional . . . 
Fix - T M error 
New - DELETE 

TRSTEP, TRVAH PROC, 
INSERT, DIR, INBbC 



PRO-EXTENSIONS 

Dynamicly save variables & 
files during editing, merging, 
linking & deleting. . . . 
New ■ RENUM 
New - MERGE, LINK 



PRO-KEYS 

Redefine key(s) to any string 
from prograrr or keyboard 
Enable/Disable from .key- 
board with CTR'L - i 
Fix - live - keytward 
PROKEY = , PROKEYS 



PRO-WORDS 

UPC$, LWC$, TRIM$, REV$, 
PAUSE, RPT$ FCHR, FSTR, 
FSECTS. CHG$, EVAL, 
CKKEY. FRACT, COMP, 

FQTY,MIN,MAX,EDT$,E#, 
INV$, CNSEC$, 



PRO-MACH 

SVC axcBSS to basic subs 
New - BREAK (Rese!) 
PEEK, PEEK%, ,"EEK$, 
POKE, POKE%, POKES. 
CALL adres (parms). 
CLRTN. EXECUTE. INP, 
OUT 



PRO-EDIT 

Immediate entry keys 

»♦■•♦. ./f1 
New - LIST & EDIT 

ROLLUP, ROLLDN 



PRO - CRT 

Inverse vidio 

CRT, CRTS. SCROLL 



PRO-SORT 

String aray sort routines 
2000 strings in 7-16 sec 
SQRTaSrUSING 1.2...) 



PRO - RLES 

Fix - LOF 
RELOC, OPEN "E" 



PRO-FUNCTIONS 

Multi-line Functions 

MIDS TO 

WAIT for $ reorganizing 

New- HEX$ 

Misc fixes 



PRO - VRS 

Allows 3 letter variables 
Reserved words in variables 
UPCVRS, LWCVRS 
KEYVRS, VARLEN 



PRO-GRAPH 

Draw lines, patterns. C'Oints 
SET. RESET, POINT, 
USING, TO, GRAPH 



Call and we'll send our 'TEST PROGRAM" listing 
PRO-80-SYSTEMS .507 319-266-4262 

319-266-7184 
319-233-6111 



3206 CENTER STREET 
Cedar Falls, la. 50613 



,f S«« Ust of Advmrtlttn on pmg* 354 
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Fig. 7 


5 REM *** 


CHRISTMAS TREE BY CAROL ANN VOJTIK *** 


If) CLS 






2B PRINT? 


157, -X 


• 


30 PBINTe 


191+29 


, "XXX" 


4B PBINTe 


191+64 


♦28, "xxxxx" 


58 PRINTS 


319+27 


, "xxxxxxx" 


60 PRINT? 


383+26 


, "XXXXXXXXX" 


70 PRINT? 


447+30 


,"X" 


80 PRINT? 


511+27 


, "xxxxxxx" 


90 PRINT? 


639+22 


."MERRY CHRISTMAS" 


^ 







Pat Mi 259 705 



ISO? 



DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Powei Lme Spikes. Surges & 

Has^ could be the culprit' — - 

Floppies, printers, memorv & processor olten interact' Our 
patented ISOLATORS eliminale equipmeni mleraclion AND curb 
damaging Power Lirt*> Spikon, Surges an<i Hash 

• ISOLATOR (ISO 1» 3 filter Isolated 3prong sochels; tntegral 
Surpe/Sptke Suppression: 1875 W Maximum load. 1 KviTload any 
socket .52 95 

• ISOLATOR {ISO 2) 2 (liter Isolated 3-prong socket banks (6 
sockets total); integral Spike^Surge Suppression; 1875 W Max 
load. 1 KW either bank jg2 95 

• SUPER ISOLATOR (ISOSJ, similar to ISO 1 except double 
flltenng A Suppression jo* 95 

• ISOLATOR (156-41- similar to ISOl except unit has 6 
indlviduatly filtered sockets «irw qc 

• SUPER ISOLATOR (ISO-ltl similar to IS0.2 except double 
filterino ft Suppression C94q^ 

• CIRCUfT BREAKER, any model (add CB) Add S 8 00 
.CKTBHKR/SWITCH/PILOTKBS) Add Mm 

nFA^i*FR^ MasterCard. Visa. American Express 

utALERS Order Toll Free 1 800-225-«f6 

(except AK. HI. PR & Canada) 



8b. My students easily ascer- 
tained that line 110 somehow 
controls the speed that the 
saucer moves. The relationship 
of line 120 and the actual me- 
chanics of a For... Next loop 
evaded most of them since they 
had never been exposed to a 
For... Next loop before. What 
lines 1 10 and 120 really do Is add 
1. Line 110 starts vi/ith X^ then 
line 120 causes X to be in- 
cremented until X equals the 
number after "to" in line 110. 

8c. Line 10 blanks the screen. 
Lines 20 through 90 build the 
saucer and virrite the message. 



Line 100 causes the characters 

"!!" to be written on the last line 
of the screen. Lines 110 and 120 
cause the saucer to move up 
slower. Line 130 goes bacK to 
line 100 and the instructions 100 
through 130 keep repeating be- 
cause of this. 

By the way, line 130 is an ex- 
ample of an unconditional 
branch. Lines llOand 120 are an 
example of a conditional 
branch. An unconditional 
branch is always executed, (e.g. 
Line 130 always goes back to 
line 100 while the program is ex- 
ecuting). 



10 




9 9 




8 8 


7 


7 


6 


6 


5 


5 


4 


4 


3 


3 


2222222222 


1 \\\/// 


t 


1 ' W// 


1 1 


, , , \/ 


1 1 1 


BLAST 


U 


Fig. 6 




5 REM **• SPACE SHIP BY TONY PUSATERI *** 


10 CLS 




20 PRINT? 31, "IB" 




3B PRINT? 64+29, "9 9" 




40 PRINT? 156, "8 8" 




50 PRINT? 219, "7 7" 




60 PRINT? 283, "6 6" 




70 PRINT? 347, "5 5" 




80 PRINT? 411, "4 4" 




90 PRINT? 475, '3 3" 




1B0 PRINT? 539, "2222222222 


■ 


110 PRINT? 602, "1 <<<>>> 


1" 


120 PRINT? 664, "1 1 <<>> 


1 1" 


130 PRINT? 726, "1 1 1 <> 1 1 1* 1 


140 PRINT? 798, "1111" 




150 PRINT? 862, "1111" 




160 PRINT? 926, "1111" 




170 PRINT? 983, "B LAST 


OFF" 


186 GOTO 180 
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Auto-dial/Auto-answer 

FOR $224.95! 



The Microconnection' can dial t 
phone and answer it too, 
transcribe transmissions 
decode busses, run 
printers, receioe/send 
radio transmissions, 
answer/originate, and 
direct<onnect to the phone 
system. Lots of terminal and 
host software for cassette and 
disk too. That's why iVs a modem 
— and much more. 



^sssss^ 



.nection 



Regular MICROCONriECTlOM" 
prices start at $199.50. 



the rntcropenphera! corporetfon 



^306 



lo order your MICHOCONMtCTIOM, or tor more information, wnte or phone: 2643 151 st PI. M.E.. Redmond. WA 98052 (2061 881-7544 



Combine accurate flight characteristics with t/ie best in animation graphics 
and you'll have Sui>LOGIC'8 

T80-FS1 Flight Simulator 

fortheTRS-SO 



SubL0GICsT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-lhe-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-otls and 
landings' And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's cfiaracteristics- 

OrKe you ve acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy s fuel depot 
while evading enemy fighters. 

Computer and aviation experts call tfie 
T80-FS 1 a marvel of modern technology 
You'll simply call it fantastic! 



Special Features: 

• 3 frame- per- second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80. Level 1 or 2 

• 16K memory 

• Nothing else! 



nly ^ W 




Only 



See your dealer Of order dJrecl For 
direct order, include S1.25 and specify 
UPS or litsl Class mail lllirwis residents 
acM S% sales lax. Visa and Mastercard 
accepted. 








LOGIC 

Communications Corp. 

BoxV.Savoy,IL61874 

(217)359-8482 

Telex: 206995 ^^150 



'Sm UtI of iulvtOfn on paff* 3M 



80 Microcomputing, September 1981 • 209 



A conditional branch only oc- 
curs when certain conditions 
are true (e.g., lines 110 and 120 
cause X to increnr>ent until X 
equals the value following the 
"to " n line 110. When X equals 
this value then the next line is 
executed). 

You're probably wondering 
what caused that saucer to fly 
up off of the screen. Before ex- 
plaining this to my students I 
felt they needed to know a little 
bit about hardware and soft- 
ware. 

Hardware is, basically, the 
physical machine Itself. Soft- 
ware are the programs that are 
put inside the machine. Soft- 
ware can be divided into three 
groups: operating system soft- 
ware, application programs and 
translators. Operating system 
software allows the various 
pieces of hardware to interact 
and allows a programmer to talk 
to the computer. An application 
program is one that performs a 
specific function or group of 
functions. These functions are 
not usually system related and 
they are usually written to per- 
form a job. A translator is the 
software which takes an appli- 
cation program and converts it 
so the machine can understand 
)1. A translator takes what the 
user types in (I.e. the source 
code) and converts it to machine 
code (i.e.. the object code). 

On the TRS-80 when the 
PRINT® instruction is executed 
the cursor is automatically 
placed on the line following the 
one on which the characters 
were printed by the translator. 
(The cursor indicates where you 
are on the screen.) 

When you type something on 
the last line on the screen, the 
operating system automatically 
causes alt of the material on 
that screen to be moved up one 
line when the Enter key is hit 
or if the data typed in extends 
more than the length of one line. 

Line 100 causes a combina- 
tion of both of these to occur. 
The translator prints !! on the 
last line and then attempts to 
place the cursor on the next line. 
The system thinks the data has 
extended to the next line so it 
causes the other material on the 
screen to be moved up one line. 
This makes the saucer seem to 



Program Listing 1 



1 REM 

2 RER 

3 REH 



HIDDEN PICTURES BY CAROL VOJTIK 



5 REH • 

7 REM ************************************* 

10 CLS 

20 PRINT @ 87, "HIDDEN PICTURES" 
30 PRINT " " 



*lh*«**ft***l 



40 



'I WILL DRAW A MAZE" 
"SEE IF YOU CAN FIND:" 



PRINT 
58 PRINT 
60 PRIKT " " 
70 PRINT 'AM ARROM' 
80 PRINT "A BEARS HEAD* 
90 PRINT "A BUG" 
100 PRINT "A DOaC" 
110 PRINT "A SHOVEL" 
120 PRINT "A TEE-PEE' 
130 FOR X=l TO 3000: NEXT 
140 PBIMT -HIT ANY KEY TO CONTINUE" 
15B AS=INKEYS: IF A$="" THEN 150 
1GB CLS 
188 FOB X=15360 TO 15447 



2ae 


POKE X, 166 




216 


NEXT X 




220 


POKE 15448, 


17 5 


230 


POKE 15449, 


182 


240 


POKE 15459, 


190 


2se 


POKE 15451, 


167 


260 


FOR X=15452 


TO 15461 


27 


POKE X, 166 




290 


NEXT X 




310 


POKE 15462, 


196 


320 


POKE 15463, 


167 


330 


POKE 1546 4, 


166 


340 


POKE 15 465, 


182 


3sg 


FOR X=15466 


TO 15495 


360 


POKE X, 166 




370 


NEXT X 




3ea 


POKE 15496, 


167 


390 


POKE 15 497, 


191 


400 


POKE 15498, 


167 


410 


FOR X=15499 


TO 15598 


420 


POKE X, 166 




430 


NEXT X 




440 


POKE 15509, 


17 4 


450 


POKE 15510, 


17 4 


460 


POKE 15511, 


17 4 


479 


POKE 15512, 


191 


480 


POKE 15513, 


191 


485 


POKE 15514 


17 4 


486 


POKE 15515, 


17 4 


490 


FOR X=15516 


TO 15524 


500 


POKE X, 166 




520 


NEXT X 




540 


POKE 15525, 


190 


550 


POKE 15526, 


166 


560 


POKE 15527, 


166 


570 


POKE 15528, 


166 


580 


POKE 15529, 


166 


590 


POKE 15530, 


174 


600 


POKE 15531, 


16« 


610 


FOR X-15532 


TO 15537 



fly away. 

On a microcomputer there are 
two types of memory where 
these programs are found, RAM 
and ROM. Translators are oper- 
ally found in ROM (i.e.. Read Only 
Memory). This means that a pro- 
Memory). This means that a pro- 
grammer can read the material 
in this type of memory, but he or 
she can't change it. Applica- 
tions programs are usually 
stored in RAM (i.e., Random Ac- 
cess Memory). This type of 
memory can be either read by or 
written to by an applications 
program. 

At the conclusion of the 
above exercises I asked my stu- 
dents to make some sort of pic- 
ture on a Video Display Work- 



sheet and then use the PRINT® 
instruction to program their dia- 
grams. Some of the diagrams 
and their associated programs 
are included at the end. 

The last program in this arti- 
cle is called Hidden Pictures, 
written by Carol Vojtik. How- 
ever, as I'm sure you have sur- 
mised, this program was written 
at the end of the class. 

Lifws 150 and 2810 are of spe- 
cial interest and can be used in 
any program. What they do Is 
they each cause the program to 
wait until a key is hit. 

As you can see from Carol's 
two programs, the students 
have come a long way in their 
ability to use the Basic 
language. ■ 



630 POKE X, 182 

649 NEXT X 

650 FOR X=15538 TO 15560 
660 POKE X, 166 

670 NEXT X 

680 POKE 15561, 191 

690 FOB X=15562 TO 15577 

700 POKE X, 166 

71B NEXT X 

720 POKE 15578, 17 5 

739 POKE 15579, 1B2 

740 FOR X=15580 TO 15588 
750 POKE X, 166 

769 NEXT X 

789 POKE 155B9, 183 

799 FOR X=15590 TO 15595 

800 POKE X, 166 
810 NEXT X 

820 POKE 15S96, 174 

839 POKE 15597, 182 

840 FOR X-15598 TO 15601 
850 POKE X, 166 

860 NEXT X 

87B POKE 15602, 17 5 

eae poke iseas, i82 

890 FOR X=15604 TO 15624 

900 POKE X, 166 

910 NEXT X 

920 POKE 15625, i91 

930 FOR X=15626 TO 15667 

949 POKE X, 166 

959 NEXT X 

960 POKE 15668, 167 
970 POKE 15669, 174 
980 POKE 15679, 174 
998 POKE 15671, 17 4 
1BB0 POKE 15672, 182 
1010 FOR X=.15673 TO 15686 
1020 POKE X, 166 

lB3a NEXT X 

1040 POKE 15687, 191 

1950 POKE 15688, 191 

1060 POKE 15689, 191 

1070 POKE 15690, 191 

1060 POKE 15691, 191 

1090 FOR X-15692 TO 15794 

1100 POKE X, 166 

1119 NEXT X 

1120 POKE 15705, 174 
1130 POKE 15706, 167 
1140 POKE 157B7, 17 4 
1150 POKE 15708, 174 
116B POKE 15709, 182 
1170 POKE 15710, 182 
1188 FOR X=15711 TO 1571B 
119B POKE X, 166 

1290 NEXT X 

1219 POKE 15719, 167 

1220 FOR X-15720 TO 15735 
1230 POKE X, 166 

1240 NEXT X 

1259 POKE 15736, 182 

1260 POKE 15737, 167 
1270 FOR X-15738 TO 15769 
1280 POKE X, 166 

1296 NEXT X 

13B0 POKE 15770, 187 

1310 POKE 15771, 166 

1320 POKE 15772, 166 

1330 POKE 15773, 166 

1340 POKE 15774, 166 

1359 POKE 15775, 183 

1360 POKE 15776, 183 
1370 POKE 15777, 17 4 
1380 POKE 15778, 17 4 
1390 POKE 15779, 166 
1400 POKE 15780, 166 

1419 POKE 15781, 166 

1420 POKE 15782, 166 
143B POKE 15783, 166 
144B POKE 15784, 17 5 
1450 POKE 15785 , 182 
1460 FOR X=1S7B6 TO 15796 
1470 POKE X, 166 

1480 NEXT X 

1490 POKE 15797, 167 

1509 POKE 15798, 167 

1510 POKE 15799, 167 
1520 FOR X=15009 TO 15B32 
1530 POKE X, 166 

1540 NEXT X 

1550 POKE 15833, 174 

1569 POKE 15834, 182 

1570 POKE 15835, 17 4 
1580 POKE 15836, 17 4 
1590 POKE 15837 , 167 
160B POKE 15838, 167 
1610 FOR X=15B39 TO 15849 
1620 POKE X, 166 

1630 NEXT X 

Program continiMS 
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1640 


POKE 


15850, 


17 5 


165fl 


FOR X 


=15851 


TO 15859 


1660 


POKE X, 17 4 




167B 


NEXT X 




1660 


POKE 


I5S60, 


167 


16 90 


FOR X 


=15861 


TO 15876 


1710 


POKE 


X, 166 




17 20 


NEXT 


X 




1730 


FOR X 


=15877 


TO 15880 


17-10 


POKE 


X, 17 4 




1750 


NEXT 


X 




1760 


POKE 


15881, 


190 


1770 


POKE 


15882, 


17 4 


17 80 


POKE 


15883, 


167 


17 90 


POKE 


15884, 


167 


1800 


POKE 


15885, 


167 


1810 


POKE 


15886, 


17 5 


1820 


POKE 


15887, 


17 4 


1830 


POKE 


15888, 


182 


1840 


POKE 


15889, 


182 


1850 


FOR X 


=15890 


TO 15941 


1860 


POKE 


X, 166 




1B70 


NEXT 


X 




18B0 


POKE 


15942, 


167 


1890 


POKE 


15943, 


183 


1900 


POKE 


15944, 


17 5 


1910 


POKE 


15945, 


166 


1920 


POKE 


15946, 


17 4 


1930 


FOR X 


=15947 


TO 15953 


1940 


POKE 


X, 166 




1950 


NEXT 


X 




1960 


POKE 


15954, 


17 5 


1970 


FOR X 


=15955 


TO 159BB 


1980 


POKE 


X, 166 




1990 


NEXT 


X 




2000 


POKE 


15981, 


182 


2010 


FOR X 


-15982 


TO 15990 


2020 


POKE 


X, 166 




2030 


NEXT 


X 




2040 


POKE 


15991, 


1B2 


2050 


FOR X 


=15992 


TO 16005 


2060 


POKE 


X, 166 




207 


NEXT 


X 




2080 


POKE 


16006, 


17 4 


2090 


POKE 


16007, 


17 4 


2100 


POKE 


16008, 


167 


2110 


POKE 


16009, 


17 4 


2120 


POKE 


1601B, 


182 


2130 


FOR X=16011 


TO 16016 


2140 


POKE 


X, 166 




2150 


NEXT 


X 




2160 


POKE 


16017 , 


182 


2170 


FOR X=16018 


TO 16042 


2180 


POKE 


X, 166 




2190 


NEXT 


X 




2195 


POKE 


16043, 


17 4 


2200 


POKE 


16044, 


191 


2210 


FOR X=16045 


TO 16053 


2220 


POKE 


X, 174 




2230 


NEXT 


X 




2240 


POKE 


16054, 


183 


2250 


FOR 


IC=16055 


TO 1607 3 


226 


POKE 


X, 166 




227 


NEXT 


X 




2280 


POKE 


16074, 


190 


2290 


POKE 


1607 5, 


167 


2300 


POKE 


16076, 


166 


2310 


POKE 


16077, 


166 


2320 


POKE 


16078, 


182 


2330 


POKE 


16079, 


17 4 


2340 


POKE 


16080, 


167 


2350 


FOR 


X'=16081 


TO 161B8 


2360 


POKE 


X, 166 




2370 


NEXT 


X 




2380 


POKE 


16109 


167 


2390 


FOR 


x=i6iie 


TO 16118 


2400 


POKE 


X, 166 




2410 


NEXT 


X 




2420 


POKE 


16119, 


167 


2430 


FOR 


X=16120 


TO 16142 


2440 


POKE 


X, 166 




2450 


NEXT 


X 




2460 


POKE 


16143 


167 


2470 


POKE 


16144 


IfiT 


2480 POKE 16145 


167 


2490 POKE 16146 


167 


2500 POKE 16147 


17 5 


2510 POKE 16148 


, 17 4 


2520 POKE 16149 


, 17 4 


2530 POKE 16150 


167 


2540 POKE 16151 


17 5 


2550 POKE 16152 


, 190 


2560 POKE 16153 


167 


2570 FOR 


X=16154 TO 16200 


2580 POKE X, 166 


2590 NEXT X 




2600 POKE 16201 


, 182 


2610 FOR 


X=16202 TO 16265 


2620 POKE X, 166 


26 30 NEXT X 




2640 POKE 16266 


, 167 



2650 POKE 16267, 174 

2660 POKE 16266, 174 

2670 POKE 16269, 174 

2680 POKE 16270, 182 

2690 POKE 16271, 182 

2700 POKE 16272, 182 

2710 POKE 16273, 182 

27 20 POKE 1627 4, 17 4 

2738 POKE 16275, 17 4 

2740 POKE 16276, 174 

2750 POKE 16277, 167 

2760 POKE 16278, 167 

2770 FOR X=16279 TO 16285 

2780 POKE X, 166 

27 90 NEXT X 

2600 PRINT 8927, "HIT ANY KEY TO SEE THE RESULTS" 

2810 BS=INKEYS: IF BS=" THEN 2810 

2820 FOB X=15360 TO 15445 

2823 POKE X, 32 

2826 NEXT X 

2830 POKE 15446, 13B 

2840 POKE 15447, 164 

2850 POKE 15448, 169 

2860 POKE 15449, 150 

2870 POKE 15450, 152 

2880 POKE 15451, 129 

2890 FOR X=15452 TO 15461 

2900 POKE X, 32 

2910 NEXT X 

2920 POKE 15462, 152 

2930 POKE 15463, 131 

2940 POKE 15464, 164 

2950 POKE 15465, 144 

2960 FOR X=15466 TO 15495 

2970 POKE X, 32 

2960 NEXT X 

2990 POKE 15496, 131 

3000 POKE 15497, 191 

3010 POKE 15498, 131 

3020 FOR X=15499 TO 15508 

3030 POKE X, 32 

3040 NEXT X 

3050 POKE 15509, 136 

3060 POKE 15510, 140 

3070 POKE 15511, 140 

3080 POKE 15512, 191 

3090 POKE 15513, 191 

3100 POKE 15514, 140 

3110 POKE 15515, 140 

3120 POKE 15516, 132 

3130 FOB X=15517 TO 15524 

3140 POKE X, 32 

3150 NEXT X 

3160 POKE 15525, 154 

3170 POKE 15526, 32 

3172 POKE 15527, 32 

3175 POKE 15528, 32 

3180 POKE 15529. 130 

3190 POKE 15530, 140 

3200 POKE 15531, 164 

3210 FOR X=15532 TO 15537 

3220 POKE X, 176 

3230 NEXT X 

3240 FOR X=15538 TO 15560 

3250 POKE X, 32 

3260 NEXT X 

3270 POKE 15561, 191 

3280 FOR X=15562 TO 15574 

3290 POKE X, 32 

3300 NEXT X 

3305 POKE 15574, 160 

3310 POKE 15575, 134 

3320 POKE 15576, 32 

3330 POKE 15577, 32 

3340 POKE 1SS78, 137 

3350 POKE 15579, 144 

3360 FOR X=15580 TO 15588 

3370 POKE X, 32 

3380 NEXT X 

3390 POKE 155B9, 149 

3400 FOR X=15590 TO 15595 

3410 POKE X, 32 

3420 NEXT X 

3430 POKE 15596, 168 

3440 POKE 15597, 148 

3450 FOR X=15598 TO 156B1 

3460 POKE X, 32 

3470 NEXT X 

3480 POKE 15602, 137 

3490 POKE 15603, 176 

3500 FOR X=15604 TO 15624 

3510 POKE X, 32 

3520 NEXT X 

3530 POKE 15625, 191 

3540 FOR X=15626 TO 15652 

3550 POKE X, 32 

3560 NEXT X 

J570 POKE 15653, 13B 

3560 POKE 15654, 164 



NEWDOS/80 users 

"CHAIN USER/JCL" 

Operate your system like the professionals 

do with DO files. Issue instructions to ll>e 
operator and/or supply commands to tiie 
computer. NEWDOS/80 provides a little 
used 'chain' facility which, when used, 
provides procedure type execution the 
same as big systems. This utility is an 
interactive maintenance progrom which 
allows you to create and maintain single or 
multi-sectioned chain files for use with 
NEWDOS/80. Specify simple command 
words as PAUSE, DISPLAY, COAWENT and 
SECTION or any other DOS or BASIC 
command. Chain files may be built, listed, 
printed and executed. 

* * * 

Program is distributed on diskette for 32K 
or 48K Model I. User Documentation and 
example included. Only $15.95 postpaid. 
CT residents add sales tax. Payment by 
check or money order, ORDER NOW! 



umw Software 

140 Cheney Road 

Marlborough, CT 06447 

Tel. (203) 295 9482 



^479 



■ w - M w vf M >* ><- >e3ejg3t:ac->e->c^ 



Program continues 



FINALLY! 

A Tape-Based 

EDITOR-ASSEMBLER 

For The Model III 

(lONdlNNATOR 's used in conjunction 

with Hadio Shack's Editor/ .Assembler 
1.2 -■ jl (jrovides compaiibihly with (he 
Model III. and also provides numerous 
f'Tihanct^ments. Most importanl is the 
ahililv lo dump assembled programs into 
memory for leslmg, and being able to ri'- 
lurn to CONCINNATOR without maii^ 
saves and loads. Will verify sourc'- 
dumps: supports ISOO baud: displays 
number of bytes left in buffer, and per- 
mits display and modification of memory 
location contents. And more! Yuu'ye 
been waiting, and now it's here: Conci- 
nnatiir, a sophisticated editor/ assembler 
for the Model III. Will also enhance 1.2 
for the Model I TRS-80! J19.95 on tape. 

Ask About Other 
MODEL III SOFTWARE 



li. Ordrrf onrinriBtur: 

Sriidli'm.i »ii!i»- iiiiciirr 
]pj( lt^lii|! i"; |»ci-li)[r lu I ^^. 
jilcirr-5 Wlim >prrifi I iir 
lit Si -SO will hr add") fur 
t.dll. I', ailHi-itluiliafK'u' 
.l^r- liiquirr aljiiu' mlier 
\l,„lrl ill>.>llwafriurr.'nll% 



T,\S. 1806 Ada, Lansing. MI U1910 

Ph. (317) »«7.3:*38 or i«.»-o:i^t 




- K - w - ^ - u^ -^^ -^ ^■"■r X K -H.^ : 



^ Sm Utt of AdnrVstn on pago 3S4 
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!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Wittiout Sorting 

* Delete Records Wittiout Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Lengtfi From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

• Improved Disk Utilization 

- Easier Program Devek>pment 

• Improved Operating Characteristics 

• Reduce or Eliminate Sorting 

- Improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette S90.00 

- PLUS - Fr«e Mailing List Sample Application 

Add 6% Sales Tax for CaHfomla Orders 

TRSflO MODEL I. II, « III SOFTWARE FROM: 

Johnson Associates - or - Telephone Order Line 

P.O.BOX1402M ^85 For Bank Card Sales 

Redding, CA 96001 (916) 221-0740 

WRITE FOR FREE CATALOO 



COMPUTER 

EQUIPMENT 

& SOFTWARE 

BARGAINS 

EVERY MONTH 






Get Your 
rirst Issue FRtlFK 



[THS-W's « SupwObcount Prt^gj] 



BUY, SELL OR TRADE ALL TYPES OF COMPUTER 
EQUIPf^ENT AND SOFTWARE (pre-owned and 
new) among 20,000 readers nationwide. 
FEATURES: 

• Low classified ad rates - 10+ a word 

• Hundreds of ads from individuals 

• Categorized ads so you can find them instantly 

• Large (11 by 14") easy to read pages 

Subscribe now for $10 and receive 13 issues/year 
(one FREE plus 12 regular issues). After receiving 
your first issue if you're not completely satisfied 
you may have a 100% refund and you still keep the 
first issue free. Bank cards accepted. 
BONUS: /y ijou han- something to adtertke (pre- 
oujied or sojitvare) send in a classified ad with your 
-suhseriptiott and we'll run it FREE. 

^ The Nationwiae Marketplace tor Computer Equipment 

S Camf^UTBR SHOPPSR ^2.2 

^ PO BOX 1-27 • TITVJSVtl.LE. Fl J2780 • J05-269-32H 

MasletCard g VISA subscfipl.ons O'.ly, call TOLL FftEE 1400-S2e4050 Sx. 1M 
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3590 FOR X=15655 TO 15667 
360e POKE X, 32 
3610 NEXT X 
362B POKE 15668, 131 
3630 POKE 15669, 140 
3640 POKE 15670, 140 
3650 POKE 15671, 140 
3660 POKE 15672, 176 
3670 FOR X=15673 TO 15686 
3680 POKE X, 32 

36 90 HEXT X 

3700 FOR X-15687 TO 15691 
3710 POKE X, 191 

37 20 NEXT X 

3730 FOR X=15692 TO 15704 

3740 POKE X, 32 

3750 HEXT X 

3760 POKE 15705, 170 

3770 POKE 15706, 131 

3780 POKE 15707, 140 

3790 POKE 15708, 140 

3600 POKE 1S709, 176 

3810 POKE 15710, 176 

3820 FOR X=15711 TO 15718 

3830 POKE X, 32 

3840 NEXT X 

3850 POKE 15719, 165 

3860 FOR X=15720 TO 15735 

3870 POKE X, 32 

3880 NEXT X 

3890 POKE 15736, 176 

3900 POKE 15737, 133 

3910 FOR X-1573B TO 15768 

3920 POKE X, 32 

3930 NEXT X 

3940 POKE 15769, 162 

3950 POKE 15770, 153 

3960 POKE 15771, 132 

3970 POKE 15772, 32 

3973 POKE 15773, 32 

3976 POKE 15774, 32 

3980 POKt 15775, 170 

3990 POKE 15776, 17 9 

4000 POKE 15777, 140 

4010 POKE 15778, 140 

4020 FOR X=.15779 TO 15783 

4030 POKE X, 32 

4040 NEXT X 

4050 POKE 15784, 137 

4060 POKE 15785, 149 

4070 FOR X"15786 TO 15795 

4080 POKE X, 32 

4090 NEXT X 

4100 POKE 15796, 160 

4110 POKE 15797, 135 

4120 POKE 15798, 131 

4130 POKE 15799, 131 

4140 FOR X=15800 TO 15832 

4150 POKE X, 32 

4160 NEXT X 

4170 POKE 15833, 170 

4180 POKE 15834, 176 

4190 POKE 15835, 140 

4200 POKE 15836, 140 

4210 POKE 15837, 131 

4220 POKE 15838, 131 

4230 FOR X=15839 TO 15848 

4240 POKE X, 32 

4250 NEXT X 

4260 POKE 15849, 130 

4270 POKE 15850, 141 

4280 FOR X=15851 TO 15859 

4290 POKE X, 140 

4300 NEXT X 

4310 POKE 15860, 129 

4320 FOR X-15861 TO 15876 

4330 POKE X, 32 

4340 NEXT X 

4350 POKE 15877, 172 

4360 POKE 15678, 140 

4363 POKE 15879, 140 

4366 POKE 15880, 140 

4370 POKE 15881, 152 

4380 POKE 15882, 140 

4390 POKE 15883, 131 

4400 POKE 15884, 131 

4410 POKE 15885, 131 

4420 POKE 15886, 141 

4430 POKE 15887, 140 

4440 POKE 15888, 180 

4450 POKE 15889, 176 

4460 FOR X-15890 TO 15941 

4470 POKE X, 32 

4480 NEXT X 

4490 POKE 15942, 131 

4500 POKE 15943, 179 

4510 POKE 15944, 143 

4520 POKE 15945, 32 

4530 POKE 15946, 140 

4540 FOR X=15947 TO 15953 

4550 POKE X, 32 



4560 NEXT X 

4570 POKE 15954, 169 

4580 FOR X-15955 TO 15979 

4590 POKE X, 32 

4600 NEXT X 

4610 POKE 15980, 160 

4620 POKE 15981, 144 

4630 FOR X=15982 TO 15990 

4640 POKE X, 32 

4650 NEXT X 

4660 POKE 15991, 176 

4670 FOR X-15992 TO 16005 

4680 POKE X, 32 

4690 NEXT X 

4700 POKE 16006, 136 

4710 POKE 16007, 140 

4720 PORE 16008, 131 

4730 POKE 16009, 140 

4740 POKE 16010, 176 

4750 FOR X-16011 TO 16016 

4760 POKE X, 32 

4770 NEXT X 

4780 POKE 16017, 176 

4790 POKE 16018, 134 

4800 FOR X-16019 TO 16042 

4810 POKE X, 32 

4820 NEXT X 

4830 POKE 16043, 174 

4840 POKE 16044, 157 

4850 FOR X«16e45 TO 16053 

4860 POKE X, 140 

4870 NEXT X 

4880 POKE 16054, 179 

4890 FOR X=1605S TO 16073 

4900 POKE X, 32 

4910 NEXT X 

4920 POKE 16074, 152 

4930 POKE 16075, 129 

4940 POKE 16076, 32 

4950 POKE 16077, 32 

4960 POKE 16078, 176 

4970 POKE 1607 9, 140 

4980 POKE 16080. 131 

4990 FOR X-16»ei TO 16107 

5000 POKE X, 32 

5010 NEXT X 

5020 POKE 16108, 130 

5030 PORE 16109, 129 

5040 FOR X-16110 TO 16118 

5050 POKE X, 32 

5060 NEXT X 

5070 POKE 16119, 131 

5080 FOR X=16120 TO 16135 

5090 POKE X, 32 

5100 NEXT X 

5110 POKE 16136, 160 

5120 POKE 16137, 134 

5130 FOR X-=16138 TO 16142 

5140 POKE X, 32 

5150 NEXT X 

5160 FOR X=16143 TO 16146 

5170 POKE X, 131 

5180 NEXT X 

5190 POKE 16147, 140 

5200 POKE 16148, 140 

5210 POKE 16149, 140 

5220 POKE 16150, 131 

5230 POKE 16151, 137 

5240 POKE 16152, 156 

5250 POKE 16153, 129 

5260 FOR X-16154 TO 16199 

5270 POKE X, 32 

5280 NEXT X 

5290 POKE 16200, 137 

5300 POKE 16201, 176 

5310 FOR X=16202 TO 16213 

5320 POKE X, 32 

5330 NEXT X 

5340 POKE 16214, 160 

5350 POKE 16215, 134 

5360 FOR X-16216 TO 16264 

5370 POKE X, 32 

5380 NEXT X 

5390 POKE 16265, 130 

5400 PORE 16266, 131 

5410 POKE 16267, 140 

5420 POKE 16268, 140 

5430 POKE 16269, 140 

5440 FOR X. 16270 TO 16273 

5450 POKE X, 176 

5460 NEXT X 

5470 POKE 16274, 140 

5480 POKE 16275, 140 

5490 POKE 16276, 140 

5500 POKE 16277, 131 

5510 POKE 16278, 129 

5520 FOB Xel6279 TO 16380 

5530 POKE X, 32 

5540 NEXT X 

.5550 PRINT §927, "THATS ITI 

5560 END 



Spelling Errors? Does your TRS-80* wordprocessor need help? 




T.M. 



CAN SPELL rendezvous AND mnemonic AND OVER 38,000 OTHER WORDS 

Now lei your TRS-HO and Proofreader by Soft-Tools eheek your Scripsit*. Electric Pencil, or other documents 
Inr spelling and typographical errors. It has all the features needed to meet your proofreading requirements. 



Checks every single word of even your biggest 

document in under 5 minutes. 
The 38,000 word dictionary is one of the 

largest available. 
Dictionary can be easily extended to add more 

words such as technical terms or names. 



• All unknown words are listed on the screen and 

can be saved on a file for printing. 

• Works with almost any TRS-80 wordprocessor 

including Scripsit and Electric Pencil. 

• Comes with complete and easy to understand 

User's Manual. 



Proof-Edit'", optional interactive corrections feature for Model t/lll 

QKAMMATik 

BEYOND SPELLING CHECKING 



A spelling checker may not be enough! This paragraph 
contains u number of common errors (indicated by 
underlining) that will be discovered by Grammattk that 
would seldom ever be caught by a spelling checker. 
KOr example. Grammatik checks for improper word 
usage as identified by a number of writing style man- 
uals (such as '^eldom everK Grammatik will check for 
the presence of certain words such as jargon or sexist 
(ernis. _il also checks for consistant punctuation, cap- 



itali/Ation. balanced quotation marks and parentheses, 
and and repeated words. In addition, it will produce a 
list of ail unique words found in your document with the 
number of times each was used. Grammatik comes 
with a dictionary of commonly misused phrases and a 
dictionary of sexist terms. It also includes a complete 
set of utilities to build,, sort, and merge phrase and 
iurgon dictionaries of your own. Works with Scripsit. 
lilcclvic Pencil, and other standard TRSDOS text files. 



MODKLl Hequir(.-s.l2K RAM. I disk drive. TRSDOS or NEWDOS. 
MODKLII RcquircsMK KAM. 1 disk drive. TRSDOS 2,0 

(can check 1 2filcsusinK XFKKSYSl 

MODtl. Ill KL'quires.l2K RAM. 1 disk drive. TRSDOS 

Miinuai onK , spfcilv model (refundable! 



Proofreader 
$54.00 

$109,00 

$64.00 

$3.00 



Grammatik 
$49.00 

$99.00 

S59.00 

$5.00 



Proof-Edit 
$30.00 

N/A 

$30.00 

$5.00 



Soft -Tools are professional quality software tools 
developed for the TRS-80 by a Ph.D. in Computer 
Science. Other tools include; 

— SOFT-SCREHN"',a powerful, state of the art 
full screen text editor. Over a year in development. 
Soft-Screen is compatible with all TRS-80 programming 
languages, including BASIC. FORTRAN, MACRO. 
Ralfor, and COBOL. Easy to use. comes with tutorial 
and full documentation, 

— RATFOR. a structured language preprocessor 
for Fortran developed at Bell Labs. Soft-Tools Ratfor 
provides a number of extensions, including "case' and 



"string". Includes complete manual with all the 
information needed to learn and write Ratfor programs, . 
Requires KORTRAN. 



— PP RATFOR. 

Soft -Tools Ratfor. 
Raitor source programs 



a pretty printer for use with 
Auiomaticallv formats and indents 



Ratfor 


PP-Ratfor 


Both 


Soft-ScrMn 


MODEL 1 S49.00 


$30.00 


$74.00 


$69.00 


MODEL II S99.00 


$49.00 


$139.W 


$99.00 


MODEL 111 $59,00 


$34,00 


$84.00 


$75,00 


Manual onlylrefundablel 




$12.00 


$15.00 



MODHl I, lllrL'4uirc4«K. 2 dnvt-s. TRSDOS 
MODEL II requires t>4K. 1 dnvi-, TRSDOS 2.0 
I'Icjsccyli iir urite for niorf deiails. 




Orders sent postpaid by first class mail. 
Terms: Cash, check, money order. VISA, or 
Master Card. NM residents add 4% tax. 
When ordering, specify model, memory size, 
number of dri"es, and operating system. 

* Trademark of Tandy Corporation 



SOFT-TOOLS ^Ai9 
P. O. Box 339 
Dept. M 

Tijeras, NM 87059 
Dealer inquiries invited (505) 281-1634 

Proofreader, Soft-Tools, and Soft-Screen are trademarks of Soft-Tools.^ 




r'5«« Utt of Advtrtltmn on p»g» 354 
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GRAPHICS 



Animate your TRS-80 by packing those strings. 

Picture This 



Dan Keen 

Dave Dischert 

RD 1 Box 432 

State Highway 

Cape May Court House, NJ 

08210 



We have this conception of 
a man who bought the 
first TRS-eO that rolled off the 
production line, took it home, 
spent several minutes with it, 
stumbled onto something that 
isn't in the owner's manual, and 
preceded to write a game called 
"Android Nim" that soon 



became a well known standard 
in the world of microcomputing. 

We're sure things didn't come 
that easy to Leo, but he sure 
makes graphics look easy. He 
proved the TRS-80 is capable of 
a lot more than Radio Shack 
gives it credit for. Smooth, rapid- 
ly executing graphics are possi- 
ble using Basic. 

There have been a few articles 
scratching the surface of this 



II AS-'A" 

2* K-VARPTRIAS) 

)• AD-PEeK(ll*2)*2M*PBBK(K4ll 

40 POKEAD.lSl 

50 PBINTAS 



Program Listing 1. 



technique, but only enough to 
whet our appetites. We will fol- 
low an animated scene from 
start to finish using string pack- 
ing procedures. All you need is a 
Level II machine, with or without 
Disk Basic, with any amount of 
memory. 

What Is Packing? 

This procedure stores ASCII 
characters in the space where a 
string normally goes. The 256 
ASCII characters are actually 
machine code which represents 
letters, numbers, graphics and 
instructions. The Basic interpre- 
ter section of the computer is 
not used— one reason why 
printing with string packing is 



laoi 

»< WT%:&t7e.l7&i;&i7£.U&2fc24,24.L4,24,24,24,24,24,lS4.19L17!.UL19L19L19LlS9.1H149.128.2&24,24.24,24,24.:4,Z4,M,24 

. 24. 24. U& i4L 1S5. 19L 191, 19L 19L 135. 138. i::. 12S 

2K KlflMn048 REfIiX.Pa(£fft«f.X.SXTP 

m f2f**X»«0O0O000H»OHO0OCCG0O0«M«CO«O»0»HO»«* 

2U K-vnPTB(F2l) fIH>EEX(K*2>«256*fEEK<K*lJ 

2U DmU7£a76.17&17&l?S.1^2&24.24.24.24.24,24.24.24,lS4.m. 179, 19L19L19L19L 189.184. 134, 12e.2«.24,24,24,24,24,24,24.24,» 

, 24, 24. 138. 141 ISS, 19L 191, 19L 19L 13S. 138. 137. 128 

Hi FQf)P4T0«8 Cnx P(Kt»*f.X SXTP 

22eBI'*»00000O0»0O00e0OCKMW0000OOOD000O«00»0»COO0r 

222 K'VI«PTS<F3t> IIN4>ED:«C*2>*2564QlC(Kn) 

224 0f<^«76. 17£: IX 17£. IX Ua 2& 24. 24, 34, 24, 24, 24, 24. 24, 184. 19L 179, 191 19L 19L m, 139, 17& I4a U8, 26, 24. 24, 24. 24, 24, 24, 24. 24, 24 

.24,:4 ia,I4Ma5.19Ll9tl9L19Ll35,128.l3L128 

22e FtVF=«T34« lEfBX PWEflHf , x KXIP 

238 F4*=*»D00000O0(»000000000000OO0000000O0e0CO(»«»00O0(X* 

232 K-WKPTR(F4lJ fD>fEB((K>2)*25MCBC(K«l) 

234 «Tffl76. 176. 17& 176, 176, 128. 26. 24, 24, 24. 24. 24, 24, 24. 24. IM, 13L 19L 191, 191, ISL 191, 189. 1B4. 149. 128, 26, 24, 24, 24. 24. 24, 24. 24, 24, 24 

, 24, 24. 138, 143. IBS. 19L 191. 19L m, 135, 13a. lU US 

23£ FW^CHB REKW P«E«»P. K ICXTP 

unas.i>»2 9M 
me ppivmaFii. GosuBiue 
ua niKTiia F2t, asmM 
av mmtLO,n». asmm 

1833 IFL0C4S2T)C»M 

1M»S»1 IF3K2nCM81KL5EmNTIlO.F4l, OOSJBUIS 9K.G0TCI1B28 

liee FQRMTOIS CXTO KH.D~1 RETUBI 



Program Listing 2. 



so swift. 

Packing machine code makes 
graphics faster, conserves 
memory space, eliminates the 
need for USR functions to ac- 
cess the code (which gets tricky 
in Disk Basic since you must 
know an entry address to use it), 
eliminates the need to answer 
the menwry size question (pro- 
grams are not limited to any size 
K), and makes it easy to CLOAD 
from tape since the program is 
in Basic. (Machine-code tapes 
are notorious for their difficult 
loading.) 

Program Listing 1 is the bare 
minimum needed to set up a 
simple packed string. The num- 
ber POKEd in tine 40 can be any- 
thing from zero to 255. The 
graphic code for lighting six 
blocks is 19t. AS can equal any- 
thing; only the length is Impor- 
tant. If you Change tine 40 to 
POKE AD,191 :POKE AD + ,191. 
AS must have two characters, 
AS = -AB'. 

Run Listing 1. Printing AS did 
not display an A, but instead 
acted as if the computer was in- 
structed to print CHRS(191). 
Now list the program and look at 
line 10. It changed! It has t)een 
packed and really is no longer a 
string. It now reads: 10 
AS = "USING". The machine 
code number 191 is there 
though only the Basic word 
which represents that numtwr is 
visible. 

Since AS doesn't really equal 
the word using, just typing In 
"using" won't accomplish the 
same thing. Packjr>g takes up no 
string space at all— the code is 
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POKEd right into the program 
line. So, although there are five 
letters in AS, it does not neces- 
sarily take up five bytes. You can 
add: 5 CLEAR IB, and the pro- 
gram will stiti run. You can de- 
lete lines 20, 30, and 40, save the 
leftover two-line program on 
tape or disk, and always get a 
perfect run when reloaded. 
Once a string is packed, you no 
longer need the POKE state- 
ments. 

Let's create a cartoon. Keep 
in mind these hints: Always be 
sure to put in the characters that 
the string is set equal to quota- 
tion marks. It won't matter in 
Listing 1, but if there were more 
POKES, leaving off the end 
quote would result in destruc- 
tion of the next few lines of the 
program. Also, incorporate 
blanks or spaces (ASCII codes 
32 or 128— both do the same) in- 
to your animated subject to 
erase behind it when moving it 
across the screen. CLS is too 
slow and choppy to get smooth 
movement. 

We will make a fish swim 
across the screen from right to 
left. As he swims, his tail will 
wiggle and he will occasionally 
blink. 

To accomplish this, we will 
create a series of compressed 
strings, each a different varia- 
tion of the fish, then print them 
in sequence, printing and incre- 
menting as we go along. We 



10 OS 

m FlP'DEFKFICFKFIieFEKiaBVUIIGCamBINGUSIiaS^ 

212 K-VniPTnFll)H«:PEE);(K«2)«5e*FEEK<m) 

2W OmWTfc i76, ITS. 176, 17fc m 26- 24, 24, ». 24. 24, 24, 24, 24, IM, 15L 179, 131. 19L 19L 13L 189, 16*^49, m 26. 24, 24, 24- 24. M, M^ 

, 24, 24, 138, 143, 185. 191, 131 191, 19t 13S. 138. m, 12B 

2ae F0RP4T(M8 flEflOX:P«En>«f>.)(.ie(TP 

218 F2l-TlEFI€F(l€FMn£FDimfl(IUSINIX0HTUSIMGUSIH0USI«^^ 

212 K>V(«PTR<F2t):fO>PEDC(K+2}*256rf'EEK(K*l) 

214 WTR176, 176, 176. 176, 176. 128. 26, 24. 24. 24. 24. 24, 24, 24. 24, 184, 131, 179. m, 19L m, 19L 189, 184. 134, 12a 26, 24. 24, 24, 24, 24, 24, 24, 24, 24 

. 24, 24. 13a 143. 185. m, 191 19L 131, 133, 138. 137, 128 

216 nXMUm ISflDX nVDC^.X.ICXTP 

228 F3l=-KnOT€FI«FI«rai0^flMIKaimBIIBBIMWIiaiSINGTtKFl£TB^^ 

222 K:=V«nB(FiI) flD-PEa(tit2)«256«a(K+l) 

224 WTR176, 176, 176, 176, 176. 12a 26. 24, 24. 24, 24, 24. 24, 24. 24. IW, 191 179, m, 191 191 191 189, 176, 148, I2a 26. 24. 24. 24, 24, 24, 24, 24, 24. 24 

. 24. 24. 13a 141 1B&. 191 191 191 191 135. 12a 131 128 

226 FOI)P<<T048:l)EitK:PaCEAIHf,XJEXT? 

238 F4l>-[IEFDEFIIB^I6FCffEM>CL£flWSlNGUSlHGU5INGUSIMiU5IMiiU5ING^^ 

232 IC«V«IPTIKF4«:»«K<Kt2)*256*fEBt(K*l) 

234 DflTtt76. 176. 176. 176, 176. 12a 26, 24, 24, 24, 24. 24, 24, 24, 24, 184. 191 191 191 191 191 191 189, 194, 149. 12a 26, 24. 24. 24. 24, 24, 24, 24. 24. 24 

, 24, 24, 13a 143. 185. 191 191 191 191 135, m. 133, 128 
236 FO(iP^Me:IEfI)X.PaKE»*f.X.KXTP 
1088 CL£ L0=5B2:9H 

iBie PRiMm.aFii, G09jeii88 

1828 FSIHTiLaF2ti GOSUeiUe 
lB38PRIHTILaF3li GOSUBliee 

1835 iFL0<43znecae8 

1848 »9M:IFSlK2DEN18UEL2OTIIfTILaF4t; SOSUBlieeaM: 60701828 
USB F«HTQ15:IEXTeL(K0-l.RETUIH 

Program Listing 3. 



In our animated fish scene, 
we use four variations. Three 
have different shaped tails, to 
give the illusion of swimming, 
and the fourth is the same as the 
first except that the eye is 
closed to simulate a blink. The 
variable SW is used as a switch 
to select between the blinking 
and unblinking variations. 

The four fish are set up in 
lines 200 through 236. It takes a 
few seconds for the machine to 
run these lines. Lines 1000-1 100 
create the action on the screen. 



one graphic block. The fish 
would move forward twice for 
each PRINT @ position. Instead 
of 40 usable frames there would 



be 80. 

We hope this takes some of 
the mystery out of the string 
packing process.! 



"We will follow an animated 

scene from start to finish 

using string packing procedures." 



avoid the CLS command since it 
causes the action to look rough. 
Instead, a space is added to the 
tail (actually two spaces, one 
underneath the other since the 
fish is two lines tall) so that the 
trailing blanks are printed along 
with the fish. You don't see the 
blanks, but their effect Is to 
erase any characters left on the 
screen from the last printing. 
This trick brings us closer to real 
cartoon action. 

Note the use of ASCII codes 
26 and 24 to downshift and 
backspace. Any size object can 
be stored in one string using 
these codes. 



Program Listing 2 is the pro- 
gram as you must type it in. 

Program Listing 3 is the pro- 
gram after you run it once. As 
stated earlier, once the program 
is run, you can delete lines 202, 
204, 206, and so forth (all the 
POKE, VARPTR, and data state- 
ments). The program can then 
be saved or CSAVEd and will run 
correctly. No one will ever know 
your original program was twice 
as long. 

It is possible to refine the fish 
movement further. Rather than 
incrementing a character space 
at a time, several variations of 
the fish could advance the fish 




EMMANUEL B. GARCIA, JR. 
& ASSOCIATES 

203 N WABASH 

CHICAGO, ILLINOIS 60601 

PHONE (312) 782-9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

. Dealer of quality software and hardware — 
we sell only the best, proven items. 

. SponsorofCHICATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News." monthly 
publication for TRS-80 users. 
■ ■ Send for sample issue ■ ■ 

- Sponsor of the FORUfyl-80 of Chicago, a 
24-hour computerized bulletin board. 

. Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

. Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G, & Associates Is NOT affiliated with Tandy Cotporalion or Radio Shack, 
'TRS-80 IS » If fldnmarho' Tandy Cofpoiaiwn 
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Ever wanted 
to Hr-things to your TRS-80 
Iha! . ^adio Shack said couldn't be done? 
How about reverse video, high-resolution 
graphics, a high-speed clock, and audible 
keystrokes? 

Noi inough? How about turning an 
8-track into a mass storage device, making 
music, controlling a synthesiser, individual 
reverse characters, and a real-time clock? 

If the thought of using a screwdriver gives 
you the shivers then you can turn to the 
software section. Learn how to make 
BASIC programs auto-execute, reset 
memory size, pack program lines with 
machine code, and generate sound effects. 

The Custom TRS-80 and Other Mysteries 
is packed with page after page of practical 
information, and tested software. Get a 
copy and turn your TRS-80 into a 
supercomputer! Available from your local 
IJG dealer for only $29.95. 




C - 



1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 
TRS-80 is a trademark of Tandy 




BASIC 

is not nearly 

as slow as most programmers think 

BASIC Faster and Better shows you 
how to supercharge your BASIC, with 
300 pages of fast, functions and subroutines. 
You won't find any trivial poorly designed 
'check- book- balancing' programs in this 
book - it's packed with useful programs. 

Tutorial for the beginner, instructive for 
the advanced, and invaluable for the 
professional, this book doesn't just talk . . . 
it shows how! All routines are also 
available on disk, so that you can save hours 
of keyboarding and debugging. 

The #1 disk BFBDEM contains all the 
demonstration programs, and #2 BFBLIB 
has all the library functions. 

BASIC Faster & Better is $29.95, 
and the two program disks are $19.95 each. 

Get the book and/or disks direct from 
IJG, or your local IJG dealer. 



>^2T 



1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 

TRS-80 is a trademark of Tandy 




'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 



OTHKI^ 



i> 






fj^li 



132 pages 
$22.50 
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Now available at 
selected DALTON 
bookstores 



312 pages 
$29.95 



Get them at your local IJG dealer! 



'It has twelve thousand one-liners 

in it, and every one is great!' 

- Dennis Kitsz. Phone orders (714) 946-5805 

TKS-SII is a irLidt'iiiiirkur l»iiih. Mit ro-od i- imdi'miirk ••( Mi< ro-iifi. 




TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Wriien 
by Harvard Pennington it has nyire than 
130 pages of easy to read, entertMting and 
immensely useful information ^ind out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions . . . the list goes onl 

Many readers hjave saved days of work 
by recovering files that had been unread- 
able. Now in its foprth updatgd printmg, 
TRS-80 Disk and Other Mysteries "as 
been getting rave reviews in several mag- 
azines. Yours for only ^22.50 (plus $1.50 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and O^er 

Mysteries is the complete gaide to ygur 
Level II ROMs. With over sev^n thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
n ROMs available. ^ 

Exploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $2.00 shipping, CA residents 
add $1.80 sales tax). 

IJG Computer Services, .'■ 37 
1260 West Foothill B^yd., 
Z'^. Upland, CA 91786 j, 

Please send me a copy of TRS-80 Disk 
and Other Mysteries for $22.50 plus $1.50 
shipping. D 

Please send me a copy of Microsoft BA- 
SIC Decoded and Other lilysteries for 
$29.95 plus $2.00 shipping. D 
Please send me a copy of- The Custom 
TRS-80 and Other.Mysteries for $29.95 
plus $2.00 shipping. D 
OK, send me all .three IJG books for 
$82.40 plus $5.00 shipping. D 
Overseas add $8.00 per book airmaiL 

Name 




Address 

City 

State Zip 

Charge my: 

n MasterCard Interbank Code , 

□ Vjsa Expiration Date 

Card No 

D Check enclosed for 

D Ship COD ($2.00 extra) 
Signature 
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COIsJIfeTRUCTION 



Cassette loading may seem square to you 
but your computer likes it that way. 



The Wave Shaper 



R.B. Shreve 

2842 Winthrop Rd. 

Shaker Heights, OH 44120 



Few would argue the desir- 
ability of a backup file for ir- 
replacable data, or backup 
copies of programs represent- 
ing ttie investment of many 
hours of lime or substantial 
sums of money. Cassettes are 
less expensive backup.flles than 
floppies. There is widespread 
misunderstanding, however, of 
wnat makes the volume control 
setting on a CTR so critical 
when loading files and disagree- 
ment on the easiest way to en- 
sure good loads. 

In "No More TRS-80 Cassette 
Woes" by Paul Goetz and David 
Miller (73 Magazine, September, 
1979, p. 96), the authors point 
out that it is not the amplitude of 
the pulses put out by the cas- 
sette recorder that cause 
loading problems, but their 
duration. I have verified this by 
monitoring the output of several 
recorders with an oscilloscope 
under conditions producing 



good and bad loads. The wave 
shapes differ from Miller and 
Goetz' illustrations, probably 
due to different audio circuit 
characteristics, but the results 
were consistent with their con- 
clusions. 

Fig. 1 shows the output 
waveform of a CTR-80 recorder 
when loading a tape made on 



the same recorder with my 
TRS-80. Fig. 1a is the wave with 
a volume control setting be- 
tween four and six, which gave a 
satisfactory load. Fig. lb is with 
a setting above eight, which did 
not. Obviously, if you want to 
add an oscilloscope to your pe- 
ripheral equipment, you could 
get a good load every time. You 




DATA 
PULSE 



000^ S8C H 



fig. la. Satisfactory Load Setting 
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Fig. lb. Unsatisfactory Load Setting 
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Fig. 1c. Wave-shaping Device Output 
Fig. 1. Output Wave forms of CTR-80 Recorder 



can buy a lot of disks for the 
price of a good 'scope, however. 

Why go to the trouble of in- 
stalling a monitor? Goetz and 
Miller have the right idea; modify 
your recorder's output before it 
gels to the computer. 

Digital equipment doesn't like 
sloping wave shapes that rise 
and fall gradually (measured in 
terms of time as a computer 
sees it), but thrives on short 
pulses with sharp edges and 
square corners. Let's give our 
TRS-80 what it wants. The E-Z 
Loader described by Goetz and 
Miller does it very well, but it is 
more complex than necessary. 
My device converts the CTR-80 
output to the waveform shown 
in Fig. 1c no matter whether it 
looks like Fig. la or Fig. lb com- 
ing out of the recorder, and it is 
easier to assemble and less ex- 
pensive. 

An Inexpensive Wave-shaping 
Device 

Here's the parts list, with 
prices; 



1-SN74121 Monostable Multi- 

vibralot IC 
V2N2222 NPN Transistor 
2-Mylat capacitors: 0.1 and 

.01 mfd (20« each) 
5-one tounti watt 5% Hesis- 



$.35 
.25 
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tors: two at 1K, 1 each 




2.2K, 4.7K, and lOKohms: 




(5« each) 


.25 


1-Silicon Diode, sucti as 




1N914 or 1N4148 


.10 


Total Cost; 


S1.35 



REGULATOR 



The unit requires a five-volt 
power source, and draw/s pulses 
that probably exceed 50ma. 
vi/hen connected to the TRS-80. 
If you want to install it inside the 
cassette recorder and power it 
from the recorder, you will need 
a voltage regulator. The one 
shown in the circuit diagram 
uses the following parts; 



1-LM340T-5 Regulator 


$ 1.25 


1- tOOOmtd 16V. Electro- 




lytic Capacitct 


.54 


1 200m Id 16V. Electrolyt- 




ic Capacitor 


.23 



S2.02 

The entire unit, including 
regulator, can be assembled on 
a one-inch by three-inch piece of 
perforated board, and located in 
the recorder battery, compart- 
ment. I added a miniature plug 
that fits the recorder ear jack, 
and a matching jack to take the 
plug on the wire to the com- 
puter. This avoids rewiring the 
existing jack, which is hard to 
get at, and permits the recorder 
to operate normally if I want to 
use it for something besides 
computer tapes. 

The circuit is shown in Fig. 2, 
Layout is not critical; arrange 
the parts to fit your mounting 
board and the space. You can 
use an IC socket if you wish; it is 
easier than making soldered 
connections to the IC pins. You 
could make a PC board if you 
want to be fancy. 

Operation 

The secret is the SN74121. 
This is an IC that might have 
been designed just for this pur- 
pose. It has three inputs, two of 
which (pins 3 and 4) are de- 
signed to be triggered by square 
waves. The third, pin 5, can be 
triggered by a slow-rising wave 
shape like our cassette output. 
Whichever input triggers it, it 
will output a single square pulse 
at pin 6, Pulse duration is in- 
dependent of anything that hap- 
pens after it is triggered, and is 
determined by the timing resis- 
tor and capacitor connected to 
pins 10 and 11. 

According to the manufac- 




Fig. 2. Circuit 



turer's data sheet for an 
SN74121, the values shown in 
Fig. 2 should produce a pulse of 
approximately 32 microseconds 
duration, whether the triggering 
wave looks like Fig. la or lb. In 
other words, the setting of the 
recorder volume control is disre- 
garded as long as it is high 
enough to trigger the IC. 

Actual pulse duration will 
vary from this figure, depending 
on how close the components 
you use come to the design val- 
ues. This is no problem; the tape 
should load satisfactorily with 
any pulse up to 150 microsec- 
onds. The voltage divider and 
transistor in the output circuit 
limit the pulse amplitude to ap- 
proximately 2V while providing 
enough current for the low im- 
pedance load of the TRS-80 in- 
put. The resistor from pin 5 to 
ground returns the device input 
to ground potential after it is 
triggered and the diode protects 
it against any negative voltage 
that might occur by accident. 

Installation in the CTR-80 

Installation is easy in the bat- 
tery compartment of your re- 
corder: 

• Remove the back of the 
recorder, by removing the three 



RED WIRE 



Phillips-head screws, one in the 
bottom of the battery compart- 
ment, and one at each corner 
opposite the battery, 

• Drill a hole In the side of the 

back cover next to the battery 
compartment, of a size to mount 
the new output jack, and on the 
same side of the recorder as the 
other inputs and outputs. Drill 
another small hole alongside 
the first for the wire that will 
connect to the input plug. 



tions will be made, hig. ^.§hows 
part of the foil layout of the 
CTR-80 circuit board. The Phil- 
lips-head screw on the left will 
help you identify the ground 
bus. The two brown wires and 
one red wire at the top will help 
locate the -t- 6V point — the 
small pad to which the red wire 
and one brown wire connect. 
Run leads from these points to 
the battery compartment and 
connect them to the wave 
shaper. Connect its output to 
the output jack. Run the wire for 
the input plug through its hole 
and connect it, 

• While you have the back off 
the recorder, you may want to 
solder another silicon diode 
such as a rectifier diode or 
1N914 across the points where 
the shielded wire to the drive 
motor is connected tothecircuit 
board. This has nothing to do 
with the installation of the wave- 
shaping device, but is good pro- 
tection against voltage spikes 
generated when the motor is 
stopped. These spikes can put a 
glitch in the middle of a tape if 



"Goetz and Miller have the right 
idea; modify your recorder's 
output before it gets to the computer. 



SHIELDED WIRE 
TO MOTOR 




• Mount the jack. 1 made it 
easier by cutting away some of 
the thin plastic wall of the bat- 
tery compartment on which the 
contact springs are mounted, 
using a small pair of diagonal 
cutting pliers. If you do this, first 
trimoffortape up any loose bat- 
tery wiring. 

• Locate the points on the 
recorder circuit board at which 
the +6V and ground connec- 



CONNECT 6V+ LEAD HERE 



TWO BROWN WIRES 
CONNECTED HERE 



DIODE HERE 



CONNECT GROUND LEAD 
TO THIS FOIL 



Fig. 3. Foil Layout— CTR-80 Circuit Board 



the computer stops the record- 
er, as it may when saving data 
under program control, 

• Reinstall the back of the 
recorder, 

• Put a small piece of sponge 
rubber or other padding in the 
bottom of the battery compart- 
ment, rest the wave shaper on it, 
and reinstall the battery com- 
partment'cover. The padding on 
the cover will hold the device in 
place. 

That should do it. Connect the 
recorder to your TRS-80 and try 
loading a cassette with the level 
control set at six or higher. It 
should load on the first try. Note 
that this device will not load 
tapes saved on TRS-80s with 
modified speeds. No one in the 
Cleveland area has had any pro- 
blems in either construction or 
operation to my knowledge. If 
you do, drop me a line.H 
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TECHNIQUE 



Why don't you do it in machine language? 



High Speed Sorts 



Richard R. Robson 

13 Stilwell 

Fort Leavenworth, KS 66027 



It all started when my friend 
Phil told me the sort in his 
mailing list program took for- 
ever to complete. He hated to 
add any records to his files 
because the Add program auto- 
matically called up the Sort pro- 
gram, resulting in endless hours 
of a churning and gurgling Basic 
sort. 

In any sort, swapping string 
variables is a fact of life. In a 
TRS-80 Level 11 Basic sort, exten- 
sive string swapping is nothing 
but trouble. 



Look at the simple version of 
a sort of the array TG${ ) in Pro- 
gram Listing 1. Each time a 
TG$(n) or SVE$ is assigned a 
new value, Level II Basic 
searches for the next available 
chunk of string storage space to 
store the new value. The previ- 
ous value of the string variable 
remains in its ofiginat location 
in memory, and the pointer for 
TG${n) is updated to point to the 
newly found chunk of storage 
space containing the latest 
value. This can't go on forever; 
this spendthrift method soon 
leads to an out-of-string-space 
condition. 

When this occurs, Level II 
calls the garbage collector 
routine. This routine causes all 
normal processing to stop while 
it goes through string space, 
collecting the space occupied 
by superceded values of string 
variables. Having done this, it 
then reorganizes the string 
space so all the current values 
of string variables are neatly 



lined up from the top of avail- 
able memory downward. At the 
same time, it updates all the in- 
ternal pointers to these values. 
During all this, the resident pro- 
gram watches from the side- 
lines. 

In a sort of any size, the com- 
puter could call the garbage col- 
lector several times during each 
pass through an array, but there 
is a better way. Machine code is 
the answer. 

Sorting Out Sorts 

The usual approach to sorting 
involves moving or switching 
blocks of data. The approach 
taken here leaves the string un- 
disturbed in memory. But how 
do you resequence the data if 
you never touch it? Simple: You 
don't rearrange the data in the 
TRS-80's memory; you merely re- 
arrange the internal pointers to 
the data. 

When you ask Level II (or Disk 
Basic) for VARPTR(TG$(1)), you 
get an answer which represents 
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the memory location where 
TG$(1) is stored. If that memory 
location is abbreviated as M, 
then M-3 (read as "M minus 
three") contains the length of 
TG$(0}, and M+3 contains the 
length of TG$(2) 

M + 1 and M + 2 point, respec- 
tively, to the LSB (least signifi- 
cant bit) and MSB (most signifi- 
cant bit) of the memory address 
where the actual value of TG$(1) 
is stored. Similarly, M-2 and 
M ~ 1 contain the LSB and MSB 
of the location where data is 
stored for TG$(0). Table 1 il- 
lustrates this concept and in- 
dicates that, given VARPTR 
(TG$(1$)), we can tell a machine 
code program all it needs to 
know about the TG$( ) array. 

Let's say that while our sort is 
going through the TG$() array, it 
is looking at TG$(1) and TG$(2). 
Tablet tells us that their respec- 
tive lengths are at M and M-(-3 
■and thai their data can be found 
at the addresses whose LSB 
and MSB are found at M + 1, 



Given: M = VARPTR(TG$(1)) 


THen. 




Memory Local ion 


Conlents 


M-11 


"3" signifying Siring 


Variable 




M-10 


"G'(of 'TG'') 


M-9 


"T-r "] 


M-8 


who knows? 


M-7&M-6 


who knows 


M-5 


LSB of $ of eiemenls in TGS ( ) 


M-4 


MSB of $ of eien^ems in TGS ( ) 


M-3 


LEN( TGt{0) ) 


M-2 


LSB of address of TG$(0) data 


M-1 


MSB of address of TGJ(0) data 


M 


LEN( TGRl) 1 


M + 1 


LSB of address of TG$(1) data 


M42 


MSB of address o( TG$(1) data 


H+3 


LENI TGJ(2) ) 


M't'4 


LSB of address o) TGS(2) dala 


M+ 


MSB of address ot TGS<2) dala 


M + 3*n -3 


LEN( TG$(n) ) 


M + 3-n -2 


LSB of address ot TG$(n] data 


M+3-n -1 


MSB ot address of TG$(n) data 


Table 1 VARPTR Structure 



M + 2 and M + 4,M + 5. With 
those addresses and lengths, 
we can compare each byte of 
TG$(1) with the corresponding 
byte of TG${2) and continue to 
do so until we hit a not equal 
condition, the end of the shorter 
of the two strings, or the simul- 
taneous end where the lengths 
are equal. 

There are three possible out- 
comes. First, the unequal case: 
Assuming that our desired se- 
quence is ascending {low values 
to high values), if TG$(1) is 
greater in value then TG$(2), we 
want to switch the two strings to 
establish an ascending se- 
quence. If this is not the case, 
leave well enough alone; they 
are already in ascending se- 
quence. 

The second case occurs when 
both strings arethe same length 
and are exactly equal in value. 
Don't worry; ascending se- 
quence exists whenever TG$(1) 
is less than or equal to TG$(2). 

The third case occurs when 
we comparethetwo strings byte 
for byte, and continue to get an 
equal condition. Suddenly we 
reach the end of the shorter of 
the two strings. The shorter of 
the two strings is really the less- 
than string and it should be 
switched or not, determined as 
was the first case. 

A sort in machine code can 
buzz along at a pretty good 
clip, but it is still quite cumber- 



some when it has to move large, 
variable length blocks of data. 

Look closely at Table 1. Why 
not switch the pointers instead 
of switching the data to which 
they point? That way, you move 
only three bytes at a time and 
you don't have to emulate the 
garbage collector to accommo- 
date switching variable length 
blocks. More importantly, by 
rearranging the pointer for 
TG${ ), you make things much 
nicer for yourself when you 
return to the Basic program 
once the sort is done. On return, 
TG$(1) will contain the data with 
the lowest values and TG$(n) will 
have the string with the highest 
values. To list those strings in 
ascending sequence, dump 
them out one at a time with a 
simple For. . . Next loop. If you 
want descending instead of 
ascending sequence, dump the 
array with the following code: 



FORM = {highest subscript) T0 1 STEP -1 

PRINT TGKN) 

NEXTN 



A Calling Program 

Program Listing 2 is a sample 
calling program written for any 
16K to 48K, disk or tape system. 
Lines 20 through 110 contain the 
decimal values of the machine- 
code sort program's instruc- 
tions. Lines 130 and 140 de- 
termine what size system you 



have and compute a starting 
point for the sort program. In 
line 150, a dummy string is set 
up which in effect reserves 255 
bytes at the top of memory into 
which the sort program is 
POKEd by line 160. This string 
(ZZ$) must never again be re- 
ferred to in the Basic program 
to protect it from the garbage 
collector. Line 160 computes a 
hash total (T) of the decimal 
values. If you keyed in lines 
20-110 correctly, the total of all 
190 numbers would be 18,217. 
Lines 180 through 200 check 
this and, if you made a mistake, 
allow you to check your work 
and make necessary correc- 
tions. 

Lines 230-250 determine 
whether your system is a tape or 
a disk system and set up the 
proper USR interface. Once you 
are sure your data lines are cor- 
rect, you can delete lines 170- 
220, 

The rest of the program sets 
up a test array, prints it in its 
original sequence, sorts it using 
the call at line 390, and then 
prints the sorted results in 
ascending and descending se- 
quence. Lines 510-550 let you 
enter 18 values and sort them. 
The actual sort takes place 
quickly with little delay between 
the dump of the unsorted array 
and the dump after the sort (less 
than one second). 

The key to this speed is the 
machine-code sort routine. Pro- 
gram Listing 3 is an Assem- 



bly listing of this relocatable 
program. The first part receives 
the value of VARPTR(TG$(1)) 
passed by the calling Basic pro- 
gram and saves it in Start, Five 
is then subtracted to get the 
M-5 pointer to the number of ar- 
ray elements. The element 
count is reduced by two (once 
because we don't use TG$(0) 
and once because the bubble 
sort stops short of the last 
element— (TG${n)). The adjusted 
element count is then stored in 
ELEMS. The last part of the 
paragraph stores LEN(TG$(0)) in 
TGNOTG for later reference. 

Once the housekeeping is 
done, the program gets down to 
business in Sort. First it sets up 
the IX index register to contain 
VARPTR(TG$(1)). It also loads lY 
with the adjusted element count 
and initializes the switch flag 

to zero, 

in DOTAG, the program loads 

HL with the address of byte 1 of 
the second of the two strings 
and loads DE with byte 1 of the 
first of the two strings to be 
compared. The B and C regis- 
ters are loaded with the lengths 
of the two strings. To illustrate 
this, assume we are comparing 
TG$(1) and TG$(2). The register 
would contain LEN(TG$(1)) and 
DE would point to byte 1 of 
TG$(1). Similarly, B contains 
LEN(TG${2)) and HL points to 
byte 1 of TG$(2). 

In EXAMIN, we compare the 
two strings byte for byte. We 
come back to EXAMIN again 



IB ' FIGURE 1 - BASIC SORT 

2e • 

30 CLEAR leee 

40 DATA SMITH, BAKER, ABLE, JONES, M.HOTHL, KILO, GEORGE, ZULU, CABIN 
5B DATA DOG, FOX-TERRIER, FOXTERRIER.SMITHA, WERE, KHJKI,XYZ, ABC 
6B T-IB: DIM TGS(T) 

7a LPRINT, 'FIGURE 1 - PROGRAM OUTPUT i TIMING USING BASIC STRING 
EORT':LPHINT' 
" :LPR1NT, "BEFORE SORTING" .TIMES 
BB FOR N = 1 TO Ti READ TGSIN): LPRINT TGSIN): MEXTO 
98 ' 

100 LPRINT, "BEGIN SORTING' , TIMES 
IIB GOSUBIGB: HEM PERFORM SORT IN BASIC 
12fl LPBIKT,"END SORTING*, TIMES 
130 FOR N = 1 TO T:LPRINT TGSINl: NEXT N; REM FRIHT SORTED ARR^Y 

141 END 

ISe • SORT ROUTINE 

160 ' (IN BASIC) ,■ 

17 FLAG - 

180 FOR N - 1 TO T-1 

190 IF TGSIN) > TGS(N+1) THEN GOSUE 230: REM SWITCH BOiJTINE 

200 NEXT tJ 

210 IF FLAG <> e THEN GOTO 170: REM LOOP TIL NO SWITCHES HADE 

220 RETURN: REM FINALLY PASSED THRU ARRAY WITH NO SWITCHES 

230 ' ROUTINE TO SWITCH VALUES 

240 FLAG = 1:REM SET FLAG TO INDICATE AT LEAST I SWITCH MADE 

250 SVES - TGS(N): REM SAVE TGS(N) 

260 TGSIN) - TGS(N+11: REM MOVE N-fl TO N 

270 TGS(N*1) » SVES: REM MOVE N TO N« 1 VIA SVES 

280 REM NOTE STRING VARIABLES ASSIGNED NPW V 

ALUES 

290 RETURN 



Program Listing 1 
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and again until we arrive at one 
of the three outcomes dis- 
cussed earlier. \1 the two strings 
are already in the proper se- 
quence, the program falls into 
Next, where it increments the 
IX register to point to the next 
VARPTR and checks to see if we 
have reached the next to last 
VA .PTR. If not, we loop back to 
DOTAG; otherwise, the program 
checks to see if we made any 
switches along the way, and if 
so, goes back to Sort. 

The program returns to Basic 
only after it has made a com- 
plete pass through the array 
without performing a single 
switch (flag = 0). 

The next busiest section of 
the program is Switch. Here 
the program physically switches 
the length/LSB/MSB triads 
when the compar'' :>ns in EX- 
AMIN dictate a re^ angement 
of the sequence. Upon exit from 
this section Flag is set equal to 
one, indicating a switch has 
been made. The data (strings) 
are never switched— only the 
pointers are switched, requiring 



movement of two sets of three 
bytes each. 

Tag Sorts 

One often wants to sort a 
large file, for instance, a mailing 
list. The sort is usually keyed on 
one small field out of a record 
that could exceed 100 charac- 
ters in length. Phil's mailing list, 
tor example, had a couple hun- 
dred records, each 85 charac- 
ters long; but his sort key was 
only six bytes long. 

If Phil tried to read all those 
records into memory to sort 
them on the six byte keys, it 
would be a tight fit and a very 
k)ng sort. I nstead, he could easi- 
ly fit the six byte keys into 
memory and sort on them. Once 
he sorted the array of keys, they 
would t>e in sequence. 

As he reads in the records 
from his disks, he uses a record 
number (RN) uniquely associat- 
ed with each record. This record 
number can be converted into 
two ASCII (American Standard 
Code for Information Inter- 
change) bytes by the following 



code: 

MSB = INT(RN/2S6) 

LSB = RN - (256- MSB) 

KEYS = CHRVLSB) + CHR$(MSB) 

In Disk BASIC: KEYS = MKrS(RN) 

While saving the desired field 
(for example, FLD$) in the array, 
Phil saves the record key as well 
by concatenating the six-byte 
field with the two-byte tag: 

TGJ(N) = FLOS + KEYS 

After the TG$( ) array is 
sorted, each element in the ar- 
ray will be in ascending se- 
quence and will carry the tag 
with it to its parent record out on 
the disk. The array element can 
then be broken out back into the 
field component and the tag 
component: 

FLDS = LEFrSfrG$(N),LEN(TG$<NH-2) 

KEYS = RIGHT$n"G$(N|,2) 

RN = ASC(LEFT$(KEY$,1)) 

RN = RN + 256-ASC(RIGHT$(KEY$,1)) 

In Dtsk BASIC: RN = CVI{KEYS) 

The tag sort technique can 
also be used in another fashion. 
Assume an in-memory informa- 



tion system used the following 
arrays for name (NM$( )), phone 
(PH$( )), and street (S$( )), and we 
wanted to display the data in 
phone-number sequence. If we 
did a regular sort on PH$( ), the 
phone numbers would be in se- 
quence but the rest of the data 
would not. 

For example, before the sort, 
NM$(1) = ADAMS,PH$(1) = 999 - 
9999, NM$(n) = ZULU, and 
PH$(n) = 111 -111. After the 
sort, PH$(1) would be 111-111, 
PH$(n) would be 999-9999; 
NM$(1) would remain ADAMS 
and NM$(n), ZULU. But now 
ADAMS has ZULU'S phone num- 
ber and vice versa. The tag sort 
would fix that. Examine the 
following code: 

FOR I = 1 TO n 

MSB = INT(I(256|:LSB = I - 256.MSB 

TG$(() - PHJ(I) + CHR$(LEB1 + 

CHRSfMSB) 

NEXT I 

(call son on TG$( ) ) 

FOR I = 1 TO fi 

KEYS = RIGHTS (PHS(I),2) 

KEY = ASC(LEFr$(KEY$.1}) 

KEY = KEY + 256.ASC(RIGHTS 

(KEY$,1B 

PRINT NM$(KEY).PHS<KEY), SS(KEY) 

NEXT I 



IF YOUR PERSONAL COMPUTER \)/£R£ STOLEN TODAY . . 

Would you know the best way to insure its recovery and apprehend the guilty party? 

We can help' Register your serial numbers with The Registry Service In the event of theft, simply 
notify us by.phone or mail We immediately will notify the law enforcement agencies and computer 
dealers Jn'your area and provide them with a list of your serial numbers and a reward offer 

With y.ur registration, you will receive free of charg e the first years membership in World Associa- 
tion of Computer Owners (Memberships in W A C are normally J15 00 per year ) 

Along *ith a ii! oo check or money order, please include an itemized list of each piece of equip- 
ment *ith accompanying senal numbers 



P Box 905, Waco. Texas ?6ro3 



MODEL 



PATCHES 



'k Scripsit and/or Visicalc $15.00 if ST80D 



$15.00 



Works if vou have already backed 
up twice 

Unlimited backups of your original 



Patches your Model I ST80D 
program to work on the Model III 



No programming or technical knowledge required. 
it Apparats NEWDOS 80 Only $149.95 (Specify Model 1 or iii) 



All orders shipped 

within ten days. 

Visa or Master Charge accepted 




A^ I-. e: s 



FA'X'Jl.XMC ^,43 

316-665-3611 526 East 4tti Hutchlnson, Ks. S7501 
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NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: BaseO upon sianOardi^ed meltioOs 
ot properly analysis useO Ihroughoul \he real 
esiate industry Generates a 3 paqe report coniam 
inq an annual properly operating slatemenl and a 
comprehensive 10 year casfi flow analysis Con 
tarns IRS lai table to proiecl aller-lai income 
slream and investors 1 B R 

• Handles S dltte'enl rKBItVHIS Ol lai LleO-HiatiOn 

■ Mflnoies up lo 3 loans & 3 rJ^tle'eni [ype loan^ 

• MiQhiy inie'active tormal perrri.K 'S^'^silivily Arulysis 
" Dis*i tries crealei3 ^or pernurienl storage ol fl*La 

Mrnrmur" syslem reQuireme"ts 32h f1*M I cjr-ve ar»[J 
prrnief Sold wilh rrrlormal've 78 [rage user s manual covet 
Lng basic a^D^cts r^t rncorrre prtrrperi^ rnvesioiefri ^ 50 
data ivorksneei^ 



Moaei 1 & 


1 on casspnp lui easy iransler 








JI^JOO 


Mooel II 


orrB rncriorshelle 


jifl^on 


MuOel 11 


Versron availaliie m MBA&IC 






running unrJerCP'M 


1 165 00 



MAINDEX: An easy-to-use program lo a<e you in 
the indeiing ot your liles on disk Cant find thai 
program you wrole lasl monlh'' Put you' computer 
10 worki Find any ptogiam o' data lile in your sys- 
tem in seconds 
. fl Mair> inOei ot all youi oirier Oisi" s flrreiio'ies 
' Aiprial^^trjes i^st o' tries ar-rJ gives vou r^ames. giars 

used r3aies«rri'en uacks ana trie asKripiions 
■ Sorts Fries by name O'sh and categories 

• File descriptions can be searched to'trev words 

• Pirnis drsh labels witn dtsh name and tile names 

• Uses all itie advanced and eairemeiy tasr tile ma'^rpu 
talion caDabilitiesol Apparat tnc s ^EWDOS^ 

Hegunes Le»et tt 4SK 5 disk ar.-p and ivEwDOSjBO on 
cassfrite tor easy tianster lo Orsk s?o 9S 

►^5 



r 




DEf>T EM. PO BOX 591.NOVATO. CA 94M7 



Program Listing 2 



FIGURE : - SAMPLE PROCRAM TO LOAD t CALL A/L SOR 

31 AUG ee 



1 REM 
T 

2 ■ 

3 • 

le CLEMtliB8:CLSiPRlKT-WAIT...SETTIMG UP SORT A/L PROGRAM" 

2fl DATA2«5, 127, IB, 34, <2, 65,17,2^1, 255,25,229, III, 225, 221, lie, I, 2 

21,]a2,l,43 

3« DATA4J,14,4B,6!),221.126,2,5<,44.65,*2,42,65,229.221,225,<2,4» 

,6 5,229 

4B DATA25 J, 225, 62, B,5B, 39, 65, 221, 118,4,221, 112, 5, 221, 94, 1,221, as 

,2,221 

SB DATA7fl, B. 221. 7B, 3. Sa, 44, S5, 254, 8,46, 14, 12«, 254, 1,56, 2,5,5,121 

ee DATA254, 3, 56, 2, 11, 11, 2fi, 198,0, 48, 4, 56, IB, 46, 39, 19, 35, 5, 13, 121 

7B DATA254,e,4B, 7, 126,254, 8,48,25,32, 211, 253, 41, 251, 229, 193, 121, 

35,221,35 

80 DATA22 1,35, 128,177, 32, 177, 5S,1», 65, 254, 8, 32, 153, 281, 229, 21 3, 2 

21,229,225,17 

98 DATA29, 65, 1,1, 8,237,176, 221, 229, 289, 1.3, 8,237, 176, 31, 29, 65,1, 

3 

18B DATAO, 217, 176, 62, 1, 58, 39. 65, 289, 225, 24, 195, 7fl, 7 3, 7 S, 7 3, 8 3, 7 2 

,76,68 

118 DATA9, 6 5, 44,48,68. 6 9,41,2 28,2,8 

128 ■ 

13B TM-PEEK 116598 I » 256 'PEEK (16599 )!lFTt!>32767THENTB«TK-65S16 

146 T«»TK-19e!REH TM-(TOP-MEH) - (SUE OP A/L PROGRAM) - START P 

OINT FOB PROGBAH 

158 ZIS-STRlNGS(255,fl) sBEM SET UP DUMMY STRING TO HOLD PROGRAM 

166 rORI*8T0189!REACi J:POKE Cm* 1 1 , JiT-TtJ i NEXTI 

178 REM LINE ABOVE POKES PROGRAM AMD COMPUTES 'HASH" TOTAL 

171 ■ 

172 REM LINES IBBTHBU 286 CAN BE DELETED DHCE YOU HAVE THE DATA 
COBBECTLV TYPED 

171 ' 

1B8 L-lBiHEM KEXT LINE CHECKS HASH TOTAL, IF WRONG, DISPLAYS EAC 

H DATA LIME FOR BECOHCILIATIOK — DELETE ONCE DATA ARE OK 

185 ' 

198 1FT0182I7 TKE'J PRINT'EBROH IN DATA. . .CHECK DATA STATEMENTS' 

: RESTORE: FORI -eT0189STEP28!L-L+ia[PRlNT'DATALlUE'iLtFORJ-BT019!R 

EADK:PRINTUSINC*llt ■ jK; : NEXTJtREADK:PRI«TUSII*G*»II " jRi I(IPCT'<E 

MTER> FOR NEXT LINE* ;K:KEXTI iSTOP 

195 ■ 

288 PRIBTTMjREM JDST FOB DEBUGGING, THIS LINE CAN BE DELETED 

265 ■ 

266 REM LINES 216-228 ABE NICE TO HAVE, BUT CAN BE DELETED 

267 • 

216 TS-PEEK(16599) :REM FIND OUT TYPE SYSTEM 16,32 OR 4BK 

22B IFTS>191 THEN TSS-- 4eK * ELSE IF TS > 127 THEN TSS-" 12K * 

ELSL If TS ■. 129 THEN TSS- " 16K * 

218 BB-PEEK116549) :REM BB IS MSB OF BEGINNING BASIC ADDRESS ASSU 

MED TO BE 66 FOR TAPE SYSTEM 

235 ■ 



LINE 186 IS JUST SHOHBIE 



236 REM THE PRINT STATEMENTS ON LINES 240 & 250 CAN BE DELETED, 

TOO 

248 IF BB066 THEN DEFUSBl'TMt PRIST" HOW SET UP FOR" ;TSS; "DISK S 

YSTEM'S USBl" 

258 IfB8-66 THEN POKE16526 ,65 : POKE16527 , PEEK I 165991 : PRINT"N0M SE 

T OP FOR'iTSSi'TAPE SYSTEN'S USR" 

268 ■ 

278 REM THIS IS END OF MODULE TO SET UP THE SORT PROGRAM 

2B6 REM FOR ANY SUE SYSTEM, TAPE OR DISK 

296 ■ 

160 'TEST DATA GOODIES FOLLOW 

328 DATASMITH, BAKER, ABLE, JONES, H, HOTEL, KILO, GEORGE, JULU, CABIN, DC 

G.FOX-TERRIER,FOKTERRIEB,SMITHA,HERE.nHJKI,XYI,ABC 

338 A-leiDIMTGS(A) ;BEM SET UP TEST ARRAY 

146 FORI'lTO A 

358 READTGS(I) 

368 FRIHTTG$(I) 

378 HEXTI 

375 • 

376 REM 

377 • 

188 IFBB066 THEN PB1HT"BEGIBN1NG SORT AT "jTlHES 

382 ■ 

383 • 

184 REM LIME 398 IS THE ACTUAL SORT CALL 

385 REM (NOTE IT USES BB TO DETERMINE IF 

386 REM SYSTEM IS TAPE OB DI3X AND ASSUMES 

187 REM SORT ARRAY IS TCS(N) ) 

188 ■ 
399 ' 

396 IF&B*66TKENX-USR(VARPTB(TGS(!n 1 ELSE X-USBI (VARPTR (TGS ( 1 ) H 
iREM UEBl FOR DISK. USR FOB TAPE 
191 • 

392 ■ 

393 ' 

395 HEM LINE 468 IS HOBE SHOWBIZ 

396 ' 

486 IFBB066 THEN PBIKT'ENDING SOBT AT "(TIMES 

416 REM DISPLAV ARRAY IN ASCENDING ORDER 

426 FORI'lTOA 

418 PRIHTTGS(t) 

448 NEXTI 

458 1HPUT"<ENTER> FOR DESCENDING ORDER'jI 

468 REM HOW IN DESCENDING ORDER 

478 FOR I • A TO 1 STEP -1 

488 PRINT TCSII) 

496 NEXTI 

495 • 

586 REM ROLL YOUR OWN SOBT ARRAY 

516 IHPUT*<ENTER> TO INPUT 18 NEW STRINGS t SOBT"lI 

526 FORI>lT0la 

518 PRIMT'ENTEB STRING •'jIjiINPUT TGS ( 1 ) 

546 NEXT 1 

558 GOTO 398 

568 END 




Radio /haek 



DEALER 




TRS-80 DISCOUNT 



D NO OUT-OF-STATE TAX 
n NO SHIPPING COSTS 



TRS-80 
MODEL II 64K 



$3500 



PACKS ENOUGH DATA HANDLING POWER FOB 
MANY SMALL BUSINESSES 




TRS-80 MODEL III 

32K-2 DISKS 

$2100 

NEW PERSONAL COMPUTER . 
REAL-TIME CLOCK. SHARPER 
CRT IMAGES AND FASTER 
LOADING CASSETTES 




TRS-80 COLOR 

COMPUTER OR VIDEO 



$339 



each 



CERTIFIED CHECKS 
CASHIERS CHECKS 
OR CREDIT CARDS 



A LOW COST, COLOR COMPUTER FOR PERSONAL BUSINESS OR ENTERTAINMENT 



PERRY OIL & GAS INC. ■'" 

137 NORTH MAIN STREET. PERRY. MICH, 48872 

PHONE (517) 625-4161 1 •800-248-3823 

WARRANTIES HONORED BY ALL RADIO SHACKS • "TM. TANDY CORP , 
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Radio Shack Dealer #R491 
MODEL III 

LEVEL III BASIC 
26-1062 




$825.00 



WE ACCEPT CHECK, MONEY ORDER, OR PHONE ORDERS WITH VISA OR MASTER 
CHARGE, SHIPPING COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, 
PRINTERS PERIPHERALS, AND SOFTWARE— YOU NAME IT, WE'VE GOT IT 
WHITE OR CALL FOR OUR COMPLETE PRICE LIST 

C 4 S ELECTRONICS, LTD 32 EAST MAIN ST MILAN. MICH, 48160 
^145 (313) 439-1 508 (313) 439-1 400 



C a S ELECTRONICS MART IS AN AUTHORIZED RADIO SHACK DEALER •491 



THE BIGGEST NAME IN LTTTLE COMPUTERS^ 

TRS-80 Model 0— Your Best Buy 
In a Business Microcomputer 




UP 
TO 

15% 



I 



on 

TRS-80'computers, 
software and peripherals 

Similar values on oil mefchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply 

701 W. Broadway -- P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 ^ 

Form F48 Provided ^ 

Standard Warranty in Effect 
THE NATIONWIDE SUPERMARKET OF SOUND* 



^137 



m 



One potential problem with 
the tag sort is that it adds two 
bytes to the target string and 
could lead to a bad sequence in 
the case of strings of unequal 
lengths. To visualize this, take 
the case where TG$(255) = ABC 
and TG${256) = ABCD. The con- 
catenated strings {in ASCII deci- 
mal) would be: 



65 66 67 255 ('■ABC' + KEYS of 255) 
65 66 67 68 1 1 ('■ABCD+ KEYS of 156) 



Comparing the two strings, 
the sort program finds equality 
through the first three bytes but 
calls for a switch upon examin- 
ing byte four of each string (255 
is greater than 68). The result 
places ABCD before ABC, a bad 
sequence. 

Refer again to Listing 3 and 
the paragraphs labeled CHTAG, 
ADJB and ADJC. These para- 
graphs adjust the lengths over 
which the byte-for-byte compari- 
sons are to be made, to avoid 
comparing tag bytes with data 
bytes. These adjustments are 
made only if the calling program 
had previously assigned some 
value to TG$(0). If TG${0) is left 
unused, as a null string (zero 
length), then the respective 



lengths are not adjusted. To 
enable a tag sort as opposed to 
a normal sort, we must intialize 
TG${0) to some dummy value. 

Out of Sorts 

For those who couldn't care 
less how it works, this sort 
technique can be implemented 
with the code shown in Program 
Listing 2, lines 20-160 and lines 
230-250. The actual sort call 
(assuming the target array is 
TG$( )) can be placed anywhere 
in the Basic program and is one 
of the following two calls (de- 
pending upon whether the sys- 
tem is a tape or disk system): 

X = USR(VARPTR(TG$(1))) Tape system 
X = USR1(VARPTR(TG$(1))) . . . Disk system 

I have a homebrew mailing 
list program with around 120 
records on the disk. I often sort 
it on fields ranging in size from 
15 to 25 bytes. Not counting the 
time it takes to read in the fields 
from the disk or to access and 
print the records after I have 
done the tag sort, the sort itself 
takes about five seconds. Unfor- 
tunately, I can't give you any 
comparative times for a pure 
Basic sort on my files— I don't 
have the time.H 



Program Listing 3 



00e2e 



FIGURE 3...USR ROUTINE 
SORT UTILITY (TAGSRT/SRC L TAGSRT/OB 



80130 
ING ARRAY TG$[H) 

Bei4e 

G CONCATENATED 

80160 
BE ASSIGNED 

Bana 



80110 iRELOCATABLE VERSION (30 AUG 90) 
80120 ;GIVEN5: 



(1) BASIC CALLING PROG WANTS TO SORT STR 



CALLING VIA ■X»USR1(VARPTH(TGS11)) ) *. 

12) IF SORT IE A TAGSORT (WITH 2-BYTE Tfl 



TO EACH ARRAY ELEMENT), THEN TGS{0) MUST 
SOME VALUE, OTHERWISE TGS(8) MUST BE NULL 



EAREtANCED SO 
ENCE. 



08198 ;0H RETURN: 

00200 : POINTERS IN ARRAY TC5(H) WILL HAVE BEEN t) 

08218 .-THAT THE ARRAY IS ORDERED IN ASCENDING SEQU 

08228 ,- 

88221 [PROGRAM MAY BE LOADED INITIALLY TO 32808-32 

80222 jTHEN RELOCATED TO WHEREVER USER DESIRES 
00223 lUSING PEEK6P0KE 
08224 ; 

4127H rUSE ARITH WK AREA OF 

411DH 

; *D1D WE SWITCH* FLAG: 1^ 

8080 .-HOLDS I OF ELEMENTS (H 



1127 


00230 




ORG 


ROM/RAM 








411D 


00240 


SAVE 


EQU 


4127 00 


002BO 


FLAG 


DEFB 


YES, 2-NO 








4128 0080 


00260 


ELENS 


DEFW 



INUS 1) IN ARRAY 

412A 0080 00270 START DEFW 

412C 00 08288 TGNOTG DEFB 

A TAGSORT 
flA7F 80298 GETARG EQU 

ARPTR ARGUMENT TO HL 

08295 ORG 



0008 .-HOLDS VARPTB ITGS(l)) 
.-O-NO TAGSORT, >0 MEANS DO 



0A7FH ;HOM ROUTINE TO PASS V 



7D00 

7D00 CD7F0A 

7DB3 222A41 

GS(1)) 

7D06 IIFBFF 

7DB9 19 

LEMENTS 

7D0A Eb 



32000 jCAN BE ANYWHERE 
00296 [INITIAL LOCATION OF PROGRAM; RELOCATABLE 
00300 BEGIN CALL GETARG ;GET POINTER INTO HL 



(START). HL ; (START1'VABPTR(T 



00320 
80330 



LD 


DE,-5 




ADD 


HL,DE 


fPOlNT TO 1 OF ARRAY E 


PUSH 


HL 


program continues 
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program continued 








TDBB DDEl 


aB35B 




POP 


IX 


TDBD DD6EBa 


aB3ee 




LD 


L,(IX*fl) iGET i OF ARRAY ELE 


ME NTS 










7D10 DD6601 


aB37B 




LD 


H.dXtl) 


7D13 2B 


00380 




DEC 


HL ;LESS 1 (FOR TGSlBIl 


7D14 2B 


00390 




DEC 


HL jLESS 1 FOR SORT 


7D15 222841 


B04B0 




LD 


(ELEMSl.HL iSET t OF ARRAY E 


LEMS LESS 2 










7D19 DD7Efl2 


00410 




LD 


A,(IX+21 jGET LEN(TGS(0)) 


7D1B 322C41 


B042B 




LD 


(TGNOTG) ,A iSRVE IT 


7D1E 2A2A4I 


aB43B 


SORT 


LD 


HL, (START) ;GET lET VARPTR I 


NTO IX 










7D21 E5 


0B44B 




PUSH 


HL 


7D22 DDEl 


aB4Ba 




POP 


IX 


7D24 2A2841 


08460 




LD 


HL,(ELEKS) 


7D27 E5 


00470 




PUSH 


HL 


7028 FDEl 


0B480 




POP 


lY jt OF ELEHS IN lY 


7D2A 3Eee 


00490 




LD 


A,0 


7D2C 322741 


00500 




LD 


(FLAG), A 


7D2F DD6Ea4 


0B510 


DOTAG 


LD 


L,(IX+4) iPOINTEH TO NtI 


7D32 DD66B5 


aB520 




LD 


H,(IX+5) 


7D35 ODSEBl 


aB53B 




LD 


E, (IX+1) ;POINTER TO N 


7D3B DD5602 


a0540 




LD 


D, (lXt21 


7D3B DD4Eea 


B0550 




LD 


C,(IX) ILEN(TGS(N)) 


7D3E DD4eB3 


00560 




LD 


B,(IX*3] ;LEN(TG$(N+1)) 


7D41 3R2C41 


08570 


CHKTAG 


LD 


A, (TGNOTGI ;CHECK IF TAGSORT 


TD44 FEB0 


00580 




CP 





7D4e 2SaE 


00590 




JR 


Z, EXAHIN ;NOT A TAGSORT 




0BeBB 


;TAGE0BT, SO 


MUST ADJUST BSC BY -2 


7D48 78 


B061B 


ADJB 


LO 


A,B 


7D49 FEB3 


00620 




CP 


3 ;B MUST BE >= 3 BYTES 


7D4B 3802 
IT 


0063B 




JR 


CAOJC ;IF NOT, DCW'T ADJUST 


7D4D B5 


00640 




DEC 


B ;ELSE B=B-2 


7D4E 05 


BBSSB 




DEC 


B 


7D4F 79 


00660 


ADJC 


LD 


A,C lEAME BUSINESS WITH C 


7D50 FEa3 


00670 




CP 


3 


7D52 38B2 


00680 




JR 


CEXAMIN 


7D54 BD 


006 90 




DEC 


C 


7D55 BD 


007 BB 




DEC 


C 




B0710 




jRETURN WITH B&C ADJUSTED BY -2 IF T 1 


AG SORT 












007 20 




;ELSE 


RETURN WITH BSC UNTOUCHED. 


7D56 lA 


BB7 30 


EXAHIN 


LD 


A, (DEI 


7D57 BE 


B074B 




CP 


(HL) 


7D58 BB 


B07SB 




NOP i 


(NOP'JUST FOR DEBUGGING) 


7D59 28B4 


B076B 




JR 


2, AGN 


7D5B 3812 


0B77B 


LT 


JR 


CNEXT ;IF N>-N+l THEN NEXT 


TAG 










7D5D 3B27 


0780 


GT 


JR 


NC, SWITCH ;N<N4l 


7D5F 13 


00790 


AGN 


INC 


DE jHERE, BOTH ARE ' SO FAR. 


7D6B 23 
RS 


00791 




INC 


HL TlNCREMENTING BOTH POINTE 


7D6I B5 


00800 
00S10 




DEC 


B ;DEC LEN1TGS(N*1) ) 


7D62 BD 


0820 




DEC 


C iDEC LENfTGSINl) 


7D63 79 


0033B 




LD 


A,C 


7D64 FEB0 


0BB40 




CP 


f AT END OF TGS IN) 7 


7D66 2807 


00SS0 




JR 


Z.NEXT J YES, THEN SEQ IS OK 


7D68 78 


B0e6B 




LD 


A,B jNO: 


7D69 FEBB 


80870 




CP 


[AT END OF TGS(N+1)? 


7D6B 2819 


008 8 




JR 


Z, SWITCH ;YES, THEN OUT OF S 


EQ 


008 90 






J BECAUSE TG51N) IS LONGER AN 


D BOTH 


00900 






;KERE = UP TO LEN<TGS (N+1) ) . 


7D6D 28E7 


00910 




JR 


NZ.EXAMIN 


7D6F FD2B 


00920 


NEXT 


DEC 


lY j# OF ELEMS 


7D7i FDE5 


00930 




PUSH 


IV 


7D73 CI 


00940 




POP 


BC 


7D74 DD23 

TR 

7D76 DD23 


0B950 




INC 


IX ;STEP IX REG TO NEXT VARP 


00960 




INC 


IX 


7D7e DD23 


00970 




INC 


IX 


7D7A 78 


00980 




LD 


A,B [CHECK TO SEE IF AT END 


OF ARRAY 










7D7B Bl 


00990 




OR 


C 


7D7C 20B1 
7D7E 3A27 41 


01B0B 




JR 


NZ, DOTAG iHOT AT END OF ARRA 


01010 




LO 


A, (FLAG) jg END, CHECK IF WE 


HAVE SWITCHED 








7DB1 FEBB 


01020 




CP 


B 


7DB3 2B99 


01030 




JR 


NE,SORT ;WE HAD SWITCHED... M 


AKE ANOTHER 


PASS 








7D85 C9 


01040 




RET ; 


FULL PASS WITH NO SWITCHES. ., BA 


CK TO BASIC 












01100 


;ROUTINE TO SWITCH NTH AND N+ITH ELEMENTS | 


7DB6 E5 


01110 


SWITCH 


PUSH 


HL (POINTS TO VARPTR TS(N) 


7087 D5 


01120 




PUSH 


DE 


7088 DDES 


01130 




PUSH 


IX ;-'> VARPTR (TGS (N) ) 


7D8A El 


01140 




POP 


HL ; = -> VARPTRITGS(N) ) 


7D8B IHD41 


01150 




LD 


DE.SAVE 


7D8E Biasea 


0116B 




LD 


BC,3 .-SIZE OF VARPTR 




0117B 




;VARPTR IS: 




01180 




; (11 STRING LENGTH 




01190 




;(2) LSB OF ADDRESS OF STRING 




01200 




; (3) MSB • ■ ■ ■ 


7091 EDBB 


01210 




LOIR 


JMOVE VAHPTR(N) TO 3-BYTE SA 


VE AREA 












01220 




;NOW 


HL --> VARPTR TS(N+11 


7D93 DDE5 


0123B 




PUSH 


IX ) = = > VARPTR(TGS(N) ) 


7095 Dl 


0124B 




POP 


DE ;AND DE "> VARPTR TS (Nl 


7096 Bie3B0 


01250 




LD 


BC,3 


7099 EDBB 


B126 




LDIR 


[MOVE VARPTB(N+1)T0 VARPTR(N) 


7D9B 211D41 


01270 




LD 


HL.SAVE 




01280 




;DE ALREADY '^> VARPTR TS(N+1) | 


7D9E 0103B0 


01290 




LD 


BC,3 


7DA1 EDBB 


01300 




LDIR 


[MOVE SAVEDIVARPTRITGS(N) ) ) TO 


VARPTR(TGS(NH1 1 








7DA3 3E01 


01310 




LD 


A,l [TURN "SWITCH" FLAG CM 


7DA5 322741 


01320 




LD 


(FLAG) ,A 


7Dfi8 01 


01330 




POP 


DE 


7DA9 El 


01340 




POP 


HL 


7DAA 18C3 


01350 




JR 


NEXT 


7DAC 46 


01360 


EOJ 


□ EPH 


'FINISH' 


49 4E 49 53 48 








BSBB 


0137B 




END 




aSBBB TOTAL 


ERRORS 










SCRIPLUS 



Scriplus is a modification to Scrlpsit''' which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change ^>£|3 2ir->cJl^<zl print 
change no- o-f characters per inch 
or underline in mid— line! 



All in accordance with the capabilities of your printer. 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3} "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carnage return 
to empty the text buffer. 

5) The user can get an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7} Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — *24.95 

(specify) 



~ DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

■ 11500 STEMMONS EXPRESSWAY, SUITE 104 HMH 
DALLAS, TEXAS 75229 *g^ 

PHONE (214) 484-2976 ^^^. 

TRS80tScr»«itK( MICRONET 70130,203 ^27 Pr>c»Do«»a1lrKlud( 



(fademwlisol landi Cmp. 



Poitajt 



80 Microcomputing, September 1981 • 22S 



TECHNIQUE 



Where one will learn from another. 



Erudite Arrays 



George Barnes, Ph.D. 
Nevada Department 
of Education 
400 West King Street 
Capitol Complex 
Carson City, NV 89710 



Many of the statistical appli- 
cations I have for my Level 
I TRS-80 require multiple arrays 
cind matrices. To handle these 
applications, I developed a sim- 
ple system for using the one ar- 
ray in Level I as a series of ar- 
rays or as a multidimensional 
matrix. Basically, I use various 
portions of the one available ar- 
ray for different purposes. 

Multiple Arrays 

If you need to set up two ar- 
rays, and can set an upper limit 
X as the number of Items in one 
of the arrays, then one array can 
take the form A{l) and the other 
array can take the form A(X + 1). 
Tlie variable I identifies the item 



in either array with which you 
are concerned. This system can 
be expanded to produce the ef- 
fect of any number of arrays. For 
example, if four arrays of X 
length are desired, they could be 
designated A(l), A(X+I), 
A<2 X X -(- 1), A(3 X X -(- 1), where (1) 
representsthe number of the en- 
try in any array. 

If you want to use arrays with 
different lengths within the 
same program, you should alter 
this system slightly. For exam- 
ple. If you want three arrays 
which include 10, 100 and 500 
numbers, your designations 
might be A(l), A(10-H) and 
A(10+100-^l). . 

Matrices 

As you can see, multiple ar- 
rays are fairly simple, but what 
do you do If you need to set up a 
matrix? You basically do the 
same thing to set up a matrix 
that you do to set up arrays, only 
you do It more times. To set up 
an (X, Y) matrix with X values of 1 
through A and Y values of 1 
through B, you need B arrays of 
1 through A. Any cell (X,Y) in 



such an array can be designated 
A(X -(- Y X A). 

To visualize this more clearly 
look at the 3 by 4 matrix In Table 
1. Notice that in the one array 
available, the array Y= 1, X= 1 
to 3 sits on top of the array Y = 2, 
X= 1 to 3, which sits on top of 



the array Y = 3. X=1 to 3. You 
will also notice that the array po- 
sitions A(0) through A(3) are not 
used. For programs which don't 
come close to using your com- 
puter's memory capacity, it 
won't be necessary to correct 
this. When it Is necessary to 





X attributes (A = 3) 




Y attributes 
(B = 4) 




X=1 


X = 2 


X = 3 




Y = l 


A(X + Y-A)=: 
A(1 +1-3)^ 
A(4) 


A(X + Y-A) = 
A{2+1-3) = 
A(5) 


A(X + Y-A) = 
A(3+ r3) = 
A{6) 


Y^2 


A(X + Y'A) = 
A(1 -h2-3)^ 
A(7) 


A(X + Y*A) = 
A(2 + 2-3)^ 
A(8) 


A(X + Y*A)^ 
A(3 + 2'3) = 
A(9) 


Y-3 


A(X + Y-A} = 
A(1+3-3) = 
A(10) 


A(X + Y-A) = 
A(2 + 3-3)^ 
A(11) 


A(X-t-Y-A)^ 
A(3-f3*3) = 
A(12) 


Y^4 


A(X + Y-A)- 
A(l-f 4*3) = 
A(13) 


A(X + Y*A)^ 
A(2 + 4*3) = 
A(14) 


A(X + Y'A) = 
A(3 -1-4*3} = 
A(15) 




Table 1 
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conserve memory, cells in an 
P(.Y) matrix can be designated 
A(X + YxA-A-1). 

Many statistical applications 
require three or four dimension- 
al matrices. To create these you 
can expand upon the two-dimen- 
sional matrix designations just 
described. For example, any cell 
(X, Y, Z) in a three-dimensional 
matrix can be designated A(X -k 
AxY + AxBxZ). and any cell 
(X, Y, Z, W) in a four-dimension- 
al matrix can be designated 
A(X-fAxY + AxBxZ-fAx 
B X C X W), where the maximum 
values of X, Y and Zare A, B and 
C. If memory space is at a premi- 
um, positions in three and four 
dimensional matrices can be 
written asA(X-t-AxY-fAxBx 
Z-A-1) and A(X + AxY-(-Ax 
BxZ-t-AxJBxCxW-A-l). 

htatrix Subroutines 

As you can see, the expres- 
sions which represent matrix 
positions are sometimes rather 
long, and they can eat up memo- 
ry space fast if they are repeated 
many times in a program. The 



solution to this problem is to 
tiandle them with a subroutine. 
First set the dimensions of your 
matrix, and identify a particular 
cell's coordinates using the 
fotlowing variables. 



Numbof ot dimwi- amensions Cell 
a i ons in matri x of matrix ' Coordinates 

2 A ~n<rv 

3 A, B X, Y, Z 

4 ^B.C X,Y,Z,W 

'Ona less Ihan tlw total number of dimen- 
gions is all that nwds to be set. 

Use the command GOSUB 
10000 to obtain a value H such 
that A{H) which represents the 
ceil which you have Identified 
with cell coordinates. 

Fbr two dimenstonal matrices: 
10000 H = X + YxA-A-1 RET. 

Rir llifBs dimensional ntatrices: 
1000 H = X + AxY + AxBxZ-A-1 : 

tCT. 

For lour dimenaiofial matrices 

10000 H = X + AxY + AxBx2 + AxB 
xCxW-A~1 RET. 

The subroutines which do this 
task are marvelously short, as 
you can see, and they give the 
Level I TRS-80 tremendous power 
for statistical applications.! 



P&T CP/M®2 Supports 
Hard Disk Storage 

for the TRS-80 Model II 

P&T CP/M 2 now supports two popular hard 
disk subsystems for the Mod II; thus you can 
combine all the features of the best CP/M for 
the Mod II with the speed and capacity of the 
hard disk drives. 

Cameo Electronics 

• uses mature cartridge disk technology for 
maximum reliability 

• supports up to 4 drives 

• removable cartridges make backup and 
data transfer fast and easy 



Corvus System 

support for 10 and 20 Mbyte drives 
special mirror utility allows backup 

logical drive 

supports up to 4 drives 



by 




^273 

Price: $250 (FOB Goleta) for PiT CP/M 2-hard 
dtsk version {CA residents add 6% sales tax) 



^i;--^^ PICKLES & TROUT 

1 ROU 1 PC BOX 1206 GOLETA. CA 931 16. (805) 685-4641 



KA\/i:OKOi: lAAKES IT ACROSS! 




. . TmCH ONX OnHATIWO RVTBK TOUrOTXBBI 
A VITAL WAT TO PHOTBOT TOUm BOrTWAXB 

zwxtTUVT rom thx runnuii 



The KM imM. itJigiM^e runs on more dUTsrant Oper- 
■Un^ Systems wA more dlSBrrcit-slZM] compuwrs Uikn 
■j^V cHher aumlir lanfua^ For Btulars. it runs on NCR 
and Tl mlnicompulars and. in Uii rrucro Held. or. lh« 
CP/W, UP/U", TR3D0S>, OASIS', UOAfllS'.and UNIX' 
(CWYX varston) Operating Systems to mention only 
a tsw 

Until now. aerlous bualneas scAware oT Uia scope &nd 
QaxtbUlty seen In the mlnloomputer world has not been 
avulable on microe KM.nBM. now allows tranafBr of 
sucti software with a mliuimim at fusa 

We have parudpaud in mxti a muuto micro tranafer 
of a major Mt of genarai tM^tnaM sonware viaing KA 
caHlaathetran>larmaebaaum.ofcourM Runnln^on 
llUraUy thousands ctf mbiUxmipuWrs. these re&ned. 
anhanoed.and proven software pacltajM cover A-'R A-T. 
0,'L. PTl. Ordar Entry (with Invoicing and Inveniory 
Control) as wall asSalae An&lyais The paokatee define a 
new level of achievement fbr featuree and tlexjblllty m 
mlcrc applications acAware and offer top quaJIIy at a 
reasonable pnoe 

R>r immediate information, call 71 4'S4A- 1928 fbr your 
complete product descriptions Be aure to circle no 
indicated tnlow 

. . JLU8 AIJ. TXB aU>, TAMOIAM rAVOKITSi that 

we ccntir.ue to offer, s\]Ch as 

On^tml i»is In aw -Client Accounting iCPA Wnte-up; 
TVS' I Financial Modsllnj System : 
NAD' (Name and Address System) 



-R£AP(Iteal Estate AoquiaitiDr. Pmgrams j 

PUG (Property Uana^emer.t ^-steTn ' 

MLS* 'Multiple iJStlnc ^tem) 

Haattb 0«ra— APH' .Automated Patient History) 

Ifcrd rtoetmXnt «Bd lyaUm left w ar e— Maffc Wand* 

(380RT 
CBASICZ'O 




and Cyber neti OB unique TRS 80'. Model H CP^'U offering 
hl^ performance, hard dislt support and CP'U com 
patibillty 
Traaawrto at: 

1 -ftysn McFariatm Corp. a— D(<lt«l Rtssaroh. inc . 3- Tamty 
Corp. 4 -Pha« Onu Syiumn Inc. 9 Bai: Ttolflphoiw LAborucr 
l« Inc. 6— Amancan B\.fii.'iflfiE Svstfi.Tife Inc 7— Slrjctur«i^ 
t^:#:iwOroiip. Ijic, 6— CVtwriwJcs Inc , ft— PiftchtrfleSj^w»j-B, 
Inc. 10— Compiler SysieniB Ir 



C?" 



(714l&48'ig22 



C V ■ I R NiC T I C .• 

8041 NEWMAN AVE.. SUITE ZOS 
HUNTINGTON BEACH, CA 92647 



^Sm UsI Of Advartfawa m papc 3S4 
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UTILITY 



These utilities do more than aid Level I to Level II conversions. 



Split and Splice 



Dr. Stephen Milts 
404 Wilson Avenue 
Kinston, NC 26501 



As programs grow, so do 
management and debug- 
ging problems, and soon the 
programmer is feeling the lack 
of text manipulation options in 
the Level I format. For instance, 
suppose you are 8K into a pro- 
gram and have worked out a IK 
subroutine useful elsewhere. Or 
suppose you're having trouble 
with lines 1000-1100, and every- 
thing else above and below 
these tines is a nuisance to the 
debugging operation. Or sup- 
pose you're on the verge of go- 
ing to Level 11, and you have 
some very long programs to con- 
vert. Will there be enough RAM 
to load your Level I program 
along with the conversion tape 
program? 

What do you do? Just delete 
part of the programs in question 
and work with or CSAVE the 
rest. To do this in Level I, type 
the number of the lines you want 
to delete with no spaces or pro- 



gram material following the 
number, and the lines are de- 
leted from the program text. The 
method is simple, but it soon be- 
comes very tedious. 

It was ultimately the conver- 
sion question which led me to 
write Split, a program which cut 
my long Basic programs into 
pieces which could be convert- 
ed separately and merged again 
into a Level II program. But Split 
is equally serviceable for the 
other problems I mentioned, 
since its function is simply to 
split a program in two, saving 
the discarded portion to 



memory. CLOAD Split on top of 
it— a process which lakes only 
seven seconds. Then enter a 
breakpoint line number, and 
specify whether you want the 
lower lines saved on tape or 
tossed into the bit bucket. If you 
want to save It, Split will turn on 
the cassette and CSAVE every- 
thing below the breakpoint line. 
Afterward, your program list will 
contain only the breakpoint line 
and those above it, which you 
can rework, CSAVE or split fur- 
ther. This utility makes life 
easier for the ambitious Level I 
programmer. You can make sep- 



"You can make separate 

recordings of subroutines and 

program variants without hesitation." 



cassette (if you so desire) and 
leaving the remaining lines in 
the computer. 

Split is simple to use. Just put 
the Split cassette in the recorder 
with the Basic program that 
requires surgery already in 



arate recordings of subroutines 
and program variants without 
hesitation. 

The perfect companion for 
Split is Splice. Once you have 
your Basic programs broken 
down into modules for editing 



and debugging, you'll want to be 
able to reassemble Ihem. Splice 
modifies Level I's CLOAD opera- 
tion, so your loaded program 
does not cancel the one previ- 
ously in memory. You can merge 
Basic programs with a touch of 
the Enter key and return to Basic 
control by pressing Break. The 
newly loaded programs are 
stacked end-to-end sequential- 
ly- 

The catch, as you may have 
guessed, is that Split and Splice 
cannot be written in Level I 
Basic. Level I is absolutely intol- 
erant of system self-modifica- 
tions like these. You will need 
T-Bug or an appropriate 
editor/assembler tape to pro- 
duce your own copies. With 
T-Bug, you could produce Split 
and Splice tapes just by punch- 
ing in the values from the list- 
ings provided. However, I shall 
be doing more than just explain- 
ing the workings of Split and 
Splice. 

I'll discuss general tech- 
niques for using machine lan- 
guage programs to complement 
and facilitate Level I Basic. If 
you're writing long programs in 
Level I and have a hobbyist's in- 
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terest In computing, assembly 
language Is probably the next 
frontier for you to conquer. I'll 
assume that the reader knows 
some of the principles of assem- 
bly or machine language pro- 
grams, although I won't be pre- 
supposing sophisticated practi- 
cal experience or knowledge of 
TRS-80 hardware and Level I 
ROM. 

The Trouble with Level I 

To understand how Split and 
Splice work. It helps to know 
how Level I Basic programs are 
managed in your computer. 
Level II stores its Basic state- 
ments In a condensed, one-byte 
code. With one exception, Level 
I Basic is stored exactly as you 
see it in the List. Each line is a 
string of ASCII alphanumeric 
characters. Each line ends with 
the decimal value 13 (OD hexa- 
decimal), which signifies the 
Enter key and operates like the 
carriage return of a typewriter, 
resetting your display to the 
next line. 

The one exception is an im- 
portant one — the line number It- 
self. It is not stored as you type 
it or as it is displayed but is con- 
verted to Its hexadecimal equiv- 
alent. Every line number Is a 
signed, two-byte number. The 
largest number that can be rep- 
resented this way {in 15 bits, 
plus one sign bit) is decimal 
32767, which is why this is the 
largest number you can use for 
a Basic line. (Incidentally, the 
space which Is automatically in- 
serted between the number and 
the program statement is not 
stored; it is a consequence of 
how Level I ROM handles output 
conversions.) 

This difference between Level 
I and Level II should explain the 
relative slowness of Level 1 exe- 
cution; for in Level I, the text you 
typed In must be decoded every 
time it is executed, while in 
Level II it Is partially decoded in 
the storage format. It also ex- 
plains why the merging tech- 
nique discussed in "APPEND 
It!" (February 1980, 80 Micro- 
computing) cannot be applied to 
Level I- 

Level I programs are always 
stored In RAM beginning at ad- 
dress 4200H or 16896 decimal. 
The section of memory dedi- 



cated to the video display ends 
at 3FFFH or 16383. What about 
those 513 bytes in between? 
Basic does use the area beiow 
4200H for some of its opera- 
tions, but the text of the pro- 
gram itself never goes there. 
When a program is not running, 
though, most of the space be- 
tween video memory and the 
Basic text is free. There are two 
good reasons why our assembly 
language programs ought to go 
In this area. One Is that Split and 
Splice are then operable with 
any size memory and any pro- 
gram length, since this area is 
protected. 

However, there are seven ad- 
dresses In this area which 
should be respected, since they 
are concerned with the com- 
puter's general housekeeping 
requirements. The first six are 
actually three two-byte codes, 
occupying 4068H-406DH. 
4068H contains the address of 
the current position of the video 
cursor. Next, at 406AH, the com- 
puter stores the address of the 
end of available memory; this Is 
7FFFH for a 16K system and 
4FFFH for 4K. The value Is ap- 
parently determined when the 
computer powers up, and Is not 
recalculated after a reset or 
01 C9H reentry, so If you change 
this address, Level I ROM won't 
be able to determine how much 
RAM is available (of course, one 
could deliberately lower this 
value to protect a high-core 
machine language program). 
406CH contains the address of 
the last byte plus one of the resi- 
dent Basic program. 

After you type New, this ad- 
dress has the value 4200H, just 
the way it was before anything 
was loaded. The program text is 
still there, but ROM loses track 
of It when 406CH Is reset. Split 
and Splice Involve deliberate 
manipulation of the value stored 
at 406CH. Finally, 4090H con- 
tains a one-byte reference code 
to keep the status of output port 
OFFH in order. This port controls 
cassette operation, and the 
64-character mode of the video 
display. 

I mentioned a second reason 
for storing our programs below 
4200H. This concerns one of the 
obstacles facing any assembly 
language programming for a 




BASIC/S 3.0 (MOD I/Ill) $39.95 

A Basic compiler for the Mod l/lll 48K Disk System. BASIC/ 
S compiles a subset of TRS-80<^' Basic into 260 machine 
code. The machine code can then be run as a /CMD file, 
most of the features and built in functions of Level II are 
implemented, along with sequential and random disk l/o, 
(including LRL/256). Allows variables, reals, and strings. 
This a programmer's compiler. Not intended to compile 
"off the shelf" software, but will compile code written or 
modified along it parameters. No royalty fee to pay! Many 
basic programs you are using today can be compiled. 
Supports all Mod I and Mod III operating systems. 

QSD UTILITY DISK #1 FOR 
LDOS® (MOD I) 69.95 

Increase the speed and power of LDOS! Contains: 

LZAP/CMD — Uses resident disk driver of LDOS and thus 
enjoys Its flexibility & device independence. It will 
auto configure Itself to drive capacity. LZAP will 
support any number of drives from 0-7, any cyliner 
count up to 255 and any sector number to 255. It 
supports both single and double denlty automatical- 
ly! Various drive sizes and densities can be inter- 
mixed and LZAP will page between them without 
error. The ultimate ZAP routine for the ultimate 
system. Many more features including a "help" 
command for beginners to assembly code. 

RESIDELD/CMD — Allows you to SYSGEN system over- 
lays for increased speed and free space on disk, plus 
more! 
CLONE/CMD CHANGE/CMD DCAL/CMD 
VDISK/CMD STAT/CMD BINHEX/CMD 

And by Kim Watt . . . 

LCOPY/CMD — Mass file transfer package. Fast and 
versatile! 

LPURGE/CMD — Allows you to selectively purge by class, 
list, ext, etc. Contains over 20 features. A 'mini 
super-utility!" 

RECOVER/CMD — A "smart" recover routine for "killed" 
files. 

DVORAK/CMD — the famous DVORAK keyboard layout. 

EXTRA SPECIAL DELIVERY 
(l/lll) $179.00 

Machine Language program to maintain your mailing list, 
print labels, and merge data from your mail list into a letter 
created by Scripsit® or Electric Pencil^. 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ^hhi 
DALLAS, TEXAS 75229 WW 

PHONE (214) 484-2976 i^^m 

m-MlScmmHr. MICRONET 70130,203 ^n ^lc. Dmi Noimcw. 

Iri*enurtlilir»nilyCi>rp. '^""I« 
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Level I computer: You must load 
something In addresses 41FEH 
and 41FFH. the two bytes imme- 
diately before the start of Basic, 
As long as two bytes must go 
there, we might as well assem- 
ble the whole code below 420OH. 
Split and Splice have been tai- 
lored to fit snugly between 
4090H and 4200H. 

Level i does not have a Sys- 
tem format. The only way of get- 
ting non-Basic programs into 
the computer and running them 
is via tape, and it is important for 
the Level I user to know how this 
Is done. When you type CLOAD 
and the TRS-80 goes Into Its In- 
put routine, a value is stored at 
the two bytes just below 4200H. 
This value is the address to 
which the program counter will 
go when the CLOAD is com- 
pleted. Normally, with a Basic 
program, this is an address In 
ROM (more about it later). But. if 
you CLOAD a tape which inputs 
a different value to this address, 
you can take control away from 
ROM. This is exactly what T-Bug 
and the System tape of Radio 
Shack's Editor/Assembler do; 
they overwrite the stored ROM 
address with the desired RAM 
address— the starting address 
of the machine language code. 

There are two more special 
problems before Split and 
Splice can work. First, we can't 
put Split in the desired area be- 
cause T-BuQ, or the System 
tape, is already there. If you try 
to produce a copy of Split using 
T-Bug, you'll be changing T-Bug 
itself, and the System tape con- 
tains the 500-baud input pro- 
gram necessary to get an as- 
sembled program into Level I. 
The solution is, of course, to as- 
semble at a higher address, 
transfer the program down and 
produce a 250-baud tape for 
future use. For this purpose we 
have a subroutine, applicable 
not only to Split but to any as- 
sembly language program for 
producing a second-generation 
program that can be loaded and 
run without messing around 
with the T-Bug or System tape. 

The second problem is impor- 
tant for programs like Split, 
which interact with Basic. We 
have to place the program's 
starting address at 41FEH. So it 
would seem we have to write a 
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program ending at 41FFH and 
insert the required two-byte 
value in the last two locations. 
But unfortunately, Level I ROM's 
CLOAD technique prevents us 
from doing that. When a tape is 
CLOADed, the actual storage is 
one byte longer than the pro- 
gram Itself. The last byte record- 
ed by CSAVE is a checksum 
byte and when the computer fin- 
ishes loading, it compares its 
tally of the input with the one 
claimed by the tape to deter- 
mine if everything loaded cor- 
rectly. If they don't tally, you get 
that all too familiar What? 
message after the load. 

Unfortunately, ROM doesn't 
Just look at the checksum; it 
stores It right after the end of 
the program. So if we simply as- 
sembled our start address word 
to go into 41FEH-41FFH. the 
checksum would automatically 
get POKEd into 4200H — which 
contains the low-order byte of 
our Basic program's first line 
number. 

We could, of course, require 
inputting the Basic program 
after Split, but that would make 
Split very inconvenient to use. A 
better solution is to incorporate 
the checksum into the program 
Itself. We formally end the pro- 
gram at 41FEH, which will con- 
tain the low-order byte of our 
two-byte address, and let the 
checksum byte fall in 41FFH — 
making sure that the checksum 
equals the high-order byte of our 
starting address. This little feat 
is also handled by our block- 
transfer and dump subroutine. 
In fact, the editor/assembler 
makes it so easy that we can do 
it without ever knowing what the 
actual values are! 

Split 

You can either duplicate the 
assembly code with an edi- 
tor/assembler or just key in the 
machine language opcodes us- 
ing T-Bug. Split (like Splice) is 
tailored to 255 bytes tor reada- 
bility to make it easy to compare 
its assembly location (from 
4A00H) to its final working loca- 
tion (4100H). Note that Split it- 
self ends at 4AFEH; the lines 
from 4AFF are the subroutine 
for producing the final product. 
If you use the editor/assembler, 
assemble Split, load your 
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You've Got 

TOTAL ACCESS 



© 



( spedaibinflin TRSSO ■) 



Rose 



© 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've Cot 

• DHk Drives 

TA400 ( 40-T ) S289 

TA 800 ( 80-T ) S419 

TA400 Flippy S519 

TABOO Flippy 5439 

All with Silver case and 
power supply 

• CABLES 

2-DrIve §25.95 

4-Drlve $33.95 

Extender cable $14.95 

* BARE DRIVES 

TA400B $259 

TA800B SS89 

TA400B Flippy §289 

TA800B Flippy 5409 

• EPSON PRINTERS 

MX70 §379.00 

MX80 §475.00 

MX80 F/T §589.00 

Parallel Cables S29.95 

• OPERATINC SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS §129.95 

NEWDOS/80 5129.95 

DOSPLUS 3.3, 3.3D 589.95 

* IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drtve Case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
S25 

90 day warranty on drives. Add SS.OO fretorit per 
drtve In Cont. US. UPS COO chanje $1.40. There Is 
also a 1S dav rvsB trial on ta drives, if not conv 
pleteiv saosfled ill refund vour monev ( less shlp- 
plno t. rti take exception to improow use or 
mtsnarKmng, 

* USERS CROUPS 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 • COMPUTES 
•COMPUTERS 

26-1061 Mod III, LI. 4IC §595 

26-1062 Mod III, Ltl, 16K §850 

26-1063 Mod III, 32K/2 DISk/RS232 

§2150 

26-4002 Mod It, 64K. §3300 

26-3001 Color computer, 4K. . . S330 
26-3002 color computer. 16K. . §510 
26-3501 Pocket computer $212 

* DISK EXPANSION. MOD II 

26-4160 One Disk S977 

26-4162 Three Disk $1998 

LOBO drive units also available. 



• PERIPHERALS 

26-1 1 40 0K Exp. I nterf ace §255 

26-1141 16K Exp. interface §305 

26-1142 32K Exp. interface §355 

26-1172 D.C. Modem II S135 

26-1206 CTR-80 Recorder §51 

26-5503 P.C. interface §42 

• PRINTERS 

26-1165 Line Printer V $1581 

26-1166 Line Printer vi $986 

26-1158 Daisy Wheel ii $1694* 

■ LIMITED AVAiLABItiTV 



The complete line of Radio Shack 
products is available through ta 
with standard RS limited warran- 
ty, call me for price and delivery. 
Just cause you don't see it, don t 
mean we ain't got It. 

ROSE 



• SOFTWARE 

we have Adventure. Big 5, circle J, 
Med Systems. SBSC. snapp, Radio 
Shack and much more. Call or write. 
DOrrNOWi 



ROSE'S 
SPECIAL 
OF THE 
MONTH 

• PRINTERS • 

EPSON MX70. .. $369.00 

EPSON MX80. .. $475.00 

STARWRITER 45cps 
DAISYWHEEL.. $1795.00 

Parallel cable for TRS80 
for any of the 

above $29.95 

YOU can't live 

without a bunch 

of these! 



Roses T-SHIRTS 

With any order of $1,000.00 or 
more, lit send you one of my 

"MINI-FLOPPY" T-ShlrtSf 

REAL TIME 
CLOCK-CALENDER 

T-Timer© ... $89.95 

DRIVE TABS 

Disk drives need Identltyi No more 
■ that drive ! Make em be somebody 
- call em 0. 1. 2 and 3. They II never 
forget yal 
set of 4 54.50 

set of 2 52.75 



ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll free at 
1-800-527-5582iTexas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or r-^r- 
vlce use the Texas line, you can pay 
by VISA or mastercard, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship CODs 
cash, certified check or monev 
order only). Rose will take American 
money in Just about any form. Add 
freight (UPS where possible) on a 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the moneyi 



TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214-234-1770 

■ TRS80 & Radio snack are trademarks of 

Tandy Corp. 

: copvrignt i98i total access ^g 



TO ACC / 23 
TOACCl/21 



^ S»9 Utt of Adv»itl»»n on pag* 354 
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500-baud version with the Sys- 
tem tape and hit the stash key. If 

you produce it using T-Bug, after 
you've typed in the v^hole code 
and double-checked it, type J 
4AFF. Either way, the CRT 
should read Ready Cassette, 
which means that the block- 
transfer and the checksum ad- 
justment are complete, and the 
computer is ready to save your 
program to cassette. 

Insert a blank cassette and 
Enter, and a copy will be record- 
ed. The Ready Cassette mes- 
sage will return when the copy 
has been made, and you can 
make as many as you like. You'll 
probably want to make a whole 



string of them, since this elimin- 
ates the constant rewinding and 
leader delay. Exit the recording 
loop by pressing the Break key. 
If you understand assembly 
language, you can follow the 
workings of Split in the 
mnemonics and notes of Pro- 
gram Listing 1. Remember that 
the assembly has to be modified 
for the post-transfer location. 
For that purpose, I have defined 
the label DIP for the displace- 
ment the program receives by 
transfer. DIF is used to adjust 
other assembly addresses for 
JP, CALL and some internal LD 
instructions, while relative 
jumps (JR) are calculated cor- 



rectly without the displacement 
value. 

Lines 150-380 are video dis- 
play and cassette operation 
subroutines. Initially, Split loops 
through a keyboard input ROM 
routine, waiting for the value of 
ODH, the Enter key. It restarts if 
Clear is pressed— a necessary 
safeguard since Clear automati- 
cally functions when ROM's key 
scan routine Is used. It is useful 
to know something about the 
operation of the routine at 
0B40H in ROM, since the prime 
or alternate registers contain 
some useful information. The 
active (non-prime) A register 
contains the input byte, or zero 




BUCKS 

Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

26-4161 2 Drive Exp 1559.00 

26-4162 3 Drive Exp 2099.00 

264530 Seripsit II 259.00 

264512 Profye II 159.00 

264511 Visicalc II 259.00 

264501 Gen Ledger 179.00 

264506 Mail List 72.00 26-1162 1st Drive 




MODEL III 

26-1061 4KI 

26-1062 16K III .... 
26-1063 32K III 
W/2 Drives, RS 232 



; 599.00 
. 859.00 

2225.00 
. 765.00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics (List $ 985) $ 795.00 

IDS 4600 9 wire printhead, graphics (List 10941 886.00 

IDS 560G 9 wire, wide carriage, graphics. . . (List 1394) 1129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-U42 32K Exp. Interface 469.00 

26-1145 RS232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

28-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 9V2 Line Printer VII .... $ 360.00 

26-1166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1798.00 

26-1165 Line Printer V 1710.00 

26-1401 Cable 36.00 



Color Computer 4K $353 

26-3001 4K $353.00 

26-3002 16K Ext. Basic 533 oo 

26-3009 Joysticks 22 50 

26-3010 Color Video 353OO 

26-1206 Recorder 54.OO 

All prices are subject to change without notice. Freight, handUng, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3% surcharge. 



Vern Street Products 114 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 

918-747-9333 
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if nothing is entered during the 
scan. The B' register contains 
the ASCII code for the character 
pressed, a value which may or 
may not equal that in A, depend- 
ing on the nature of the charac- 
ter and whether or not Shift is 
depressed. The D'E' register pair 
has the value of the keyboard 
address line of the key pressed. 
For our purposes, the important 
detail is that H'L' contains the 
cursor location. 

After Enter is hit, the key scan 
loop falls through to line 480, 
which converts the string of nu- 
merals typed in and displayed 
into a hexadecimal, 16-bit num- 
ber. It scans video memory 
backward from the cursor loca- 
tion to find the string and con- 
verts it directly from memory, 
using the H'L' pair, so there Is no 
need to fetch the cursor location 
out of 4068H. This calculation 
aborts if it produces overflow, a 
negative number or encounters 
a non-numeric input. In other 
words, It must get a number tje- 
tween one and 32767 to pass to 
the next stage. If successful, be- 
ginning at line 940, Split search- 
es the resident Basic program 
for the correct line. This Is easy 
since the byte ODH will only oc- 
cur at the end of a line. The pro- 
gram scans the Basic text, com- 
paring the two bytes after an 
ODH with the calculated num- 
ber. It will not take the first line 
of Basic (hence the start at 
4202H in line 950) and does not 
scan quite to the end of the pro- 
gram (which is fetched from 
406CH) to avoid reading the final 
carriage return and a coinciden- 
tal match with the garbage bits 
that follow It. If the search falls, 
the program restarts. 

When the program gets the 
address of the chosen line of 
Basic, the subroutine CTON is 
called. This asks If the lines be- 
low the breakpoint are to be 
saved on tape. In this case, the 
input comes not from ROM's key 
scan routine, but Is taken direct- 
ly from keyboard addressing. If 
Enter is pressed, the program 
goes to ROM's turn-on-cassette 
routine at 0FE9H. Note this Is 
done by a JP rather than a Call. 
This causes the program 
counter to return to line 1180 di- 
rectly after the ROM routine 
ends. If Break or Clear is press- 
ed, the program restarts, allow- 



ing you to change your break- 
point. If one of the vertical arrow 
keys is pressed, the cassette is 
not turned on, and the value 
three is stored at 41A6H. 41A6H 
is where the displacement value 
of the relative jump at line 1220 
is located. As Split is recorded, 
this value is zero, which means 
line 1220 does nothing. If the 
value is changed to three, the 
CSAVE Call at line 1230 is skip- 
ped over. 

Finally, everything from the 
breakpoint to the end of the 
Basic program is block-moved 
down to 4200H. Radio Shack's 
published reentry point for Level 
I Is 01C9H. So what's this 
OEECH in line 1360? Well, that's 
a branching point that ROM 
goes to after a CLOAD. For our 
program, it is necessary to store 
the new end-of-program address 
at 406CH. Reentering Basic at 
this address gets this done for 
us automatically. After this is 
done, ROM evaluates the Z-flag 
following the checksum test 



and goes to 01C9H If everything 
is okay. Since there Is a test 
here, lines 1320-1340 of Split 
prepare for it by checking the 
last byte transferred, which 
should be the final carriage re- 
turn of the Basic program. If it 
isn't, it reflects something seri- 
ously wrong, and you'll get the 
old What? message. But this is 
one case In which you're not 
likely to see it pop up. 

Lines 1470 and 1480, by the 
way, self-test your Split to make 
sure it loaded correctly. If not, 
control goes to ROM address 
08C9H (the old What? again). 
The resident Basic program will 
not be messed up by the bad 
CLOAD (unless the addresses 
were misread, but that will pro- 
bably hang up the computer and 
require a reset), and the end-of- 
program marker will not be 
changed. 

The ADJ subroutine (lines 
1630 to the end) accomplishes 
the relocation of Split and the 
checksum adjustment. Note 



that the stack pointer is initially 
reassigned out of the way; 

otherwise, the transfer will 
crash into the stack defined by 
Basic. During the transfer, every 
byte moved is subtracted from 
the accumulator to calculate to 
checksum adjustment. Why 
subtract? The checksum is 
something of a misnomer for the 
final byte of a Basic tape dump. 
The final byte stored on tape is 
not the sum of the bytes of the 
program, but the two's comple- 
ment negation of the sum. The 
CLOAD routine test Is not per- 
formed by a CP instruction be- 
tween the value read and the 
value reached during the load. 
Rather, the checksum byte is ad- 
ded to the rest. This should give 
a final total of zero if everything 
went right. Hence we keep a run- 
ning subtract of the bytes as 
they are moved. 

Finally, the value 41H is sub- 
tracted from that result. 41 H is 
the checksum byte we want at 
41FFH— the high byte of Split's 



starting address. This value is 
then POKEd into a convenient 
unused zero byte in the trans- 
ferred Split, and Split is ready to 
be CSAVEd by a call to the ROM 
routine. The Break key will get 
you out of the CSAVE loop, and 
the Enter key will keep making 
copies of Split. 

Splice 

Splice is the other side of the 
editing coin. It, too. loads into 
the safe zone below 4200H. You 
can CLOAD it with your com- 
puter's memory empty, but 
since Splice is made with the 
same checksum adjusted meth- 
od as Split, you can also begin 
with your first Basic program al- 
ready in memory. Splice is not a 
one-shot program like Split; it 
loops continuously until you 
Break, so you can merge as 
many programs as you want- 
Splice is very useful for reas- 
sembling programs debugged in 
modules and getting complex 
blocks of data statements ap- 





Program Listing 1 \ 


4A55 3»DB 
4AS7 6F 


00671 

00680 


JB 
LD 


NC, START [INPUT 
L,A [STORE t 








4A5e 2fi00 


006 90 


LD 


H,0 [CLEAR HI REG 








4A5A 7 9 


00700 


LD 


A,C ;CCT DECIMAL CT 




00010 


1 SPLIT 


4A5B 0C 


00710 


INC 


C ;AND BUMP IT 




B0020 


(LEVEL I BASIC EDITING UTILITY 


4A5C D5 


00720 


PUSH 


DE [SAVE CURRENT SUM 




BBB30 


|BI STEPHEN HILLS 


4A5D B7 


00730 SHIFT 


OS 


A [13 IT 0T 




BBBtB 


1 


4A5E 2B11 


itHt 


JR 


I, DOHE 




BBB5B 


[SHORT DTILITY TO DIVIDE A LEVEL I BASIC 


4A60 29 


00750 


ADD 


HL.HL [DOUBLE 1 




BBB60 


iPROGRAM AT A SELECTED LIKE NUMBER 


4A61 3BC4 


00760 


JB 


C. START [CHECK OVERFLOW 




00070 


[LINES BELOW BREARPOIHT ARE SAVED TO 


4A63 E5 


00770 


PUSH 


ML [TRANSFER TO 




BBBBB 


[CASSETTE, AMD COUTBOL IS BETUBHED TO 


4A64 Dl 


007 80 


POP 


DE [ANOTHER REG 




B0B9f 


(BASIC BONITOK HITH UPPER LINES, 


4Afi5 29 


007 90 


ADD 


HL.BL jDOUBLE RESULT 




BIKB 


[THIS EDTASM VERSION ASSEMBLES AT 4AB0M 


4AG6 3SBF 


■ ■800 


JB 


C, START [CHECE OVEBFiflW 




00110 


jTRARSFERS TO 4100)1 AND GENERATES A 


4A68 29 


00810 


ADD 


HL,HL [AGAIN FOB 




BBlZt 


[250 BAUD LEVEL I LOADABLE COPY 


4A69 3SBC 


00021 


JR 


C, START [TIMES 8 


4ABB 


00130 


ORG 4A00H 


4A6B 19 


00630 


ADD 


HL.DE [HL - 10 TIMES 1 


0900 


0014B DIP 


DEFL STACK-41FEH [DISPLACEMENT 


4A6C 38B9 


00840 


JR 


C, START [OVERFLOW? 


4100 


001SB WRITE 


DEFL S-DIF 


4A6E 3D 


0BB5B 


DEC 


A 


4AB0 46 


00160 HHRITE 


LD B,{HL) jGET BYTE CT 


4A6F 2 BEG 


BBB60 


JR 


NZ, SHIFT 


4A01 D5 


B0170 


PUSH DE ;SAVE DE 


4AT1 Dl 


00B7B DONE 


POP 


DE [RESTORE SUM 


4AI2 23 


00169 


IMC HL [BUHP VIDEO PTK 


4A72 19 


008S0 


ADD 


HL,DE iSUH ADDRESS 


4AI3 7E 


00190 


LD A,(HL) [GET CHARACTER 


4A73 38B2 


00890 


JH 


C, START [OVERFLOW? 


4AI4 D7 


0S200 


RST 10H [LEVEL 1 DISPLAY 


4A7 5 EB 


00900 


EH 


DE,HL [PUT SUM IN DE 


4AI5 IIFB 


00210 


DJHI EII(RlTE+2 


4A76 lacF 


00910 


JR 


BUMP ;G0 FOR NEHT DIGIT 


4AI7 3EfD 


■ IZZI 


LD A,0DU [FOR CAR RET 


4 AT 8 CBTC 


00920 BREAK 


BIT 


7,H [IS t NEGATIVE? 


4A(9 DT 


■ ■230 


RST I^B [HBBH DOHE 


4ATA 20AB 


■ 1930 


JR 


NI, START [CANCEL IF SO 


4AIA Dl 


00240 


POP DE 


4A7C 2A6C40 


00940 


u> 


RL,l*B6CK) [END OF PROG 


4A0B C9 


00250 


RET 


4A7F B10242 


00950 


LD 


BC.4202H (BASIC TEXT 


41BC 


0026 B CTON 


DEFL S-DIF 


4A82 C5 


00960 


PUSH 


BC [HERE AFTER LINE t 


4ABC 21CB41 


0027e 


LD HL.CSKS jCASSETTE 


4A83 ED42 


00970 


SBC 


HL,BC ,-GET BYTE CT 


4A0F CD004] 


00280 


CALL WRITE [DISPLAY IT 


4Aa5 E5 


B09B0 


PUSH 


HL [AND MOVE IT 


4A12 3A4B3e 


00290 PAUSE 


LD A,|3e40B) [KEYSCAH 


4Aa6 CI 


00990 


POP 


BC jTO BC 


4A1S ESIF 


BS300 


AND IFH [FORGET UPPER BITS 


4Aa7 El 


B1000 


POP 


HL [START ADR IN HL 


4A17 28F9 


■■31« 


JB Z, PAUSE 


4ABB (B 


01010 


DEC 


BC [FORGET CHECKSUM 


4A19 IF 


••32a 


BRA (SEE IF ENTER 


4Ae9 BB 


0102* CMPR 


DEC 


BC (AND CAR RET 


4A1A DAE 91 F 


■•131 


JP C,>FE9H [FINISH IN BOM 


4AaA 0B 


01030 


DEC 


BC [ADJUST COONT 


4A1D EGI3 


•■34* 


AND 3 [BREAK OH CLEAR? 


4A8B 23 


01040 


INC 


HL [AFTER TEST ADJUSTMENT 


4A1F 2aa6 


B*3S« 


JR HI, START [ABORT IF SO 


4 ABC 3EID 


11050 


LD 


A, 13 [END OF LINE INDICATOR 


4A21 3EB3 


003e^ 


LO A, 3 [RELATIVE JUMP I 


4ABE im\ 


01060 


CPIR 


[RESTART I^ LINE NOT 


4A23 32AS41 


00370 


LD (41A6H),A (LOAD USECAS+1 


4A90 2B95 


01070 


JR 


NI, START [FOUND 


4A2e C9 


B03B0 


RET 


4A92 7E 


BIBB0 


LD 


A, (HL) [GET LOW ADB 


4127 


08390 LGTAKT 


DEFL 5-DIF 


4A93 23 


b1B90 


INC 


HL (POINTS TO HI-BYTE 


4A27 310*4 2 


00400 START 


LD SP,4200H [REINIT STACK 


4A94 SB 


81100 


CP 


E [MATCH E? 


4A2A 21BBF7 


BB41B 


LD HL , STMS [MESSAGE 


4A95 2«F2 


01110 


JR 


NI.CMPR [RECYCLE 


4 A 2D CDBB41 


00420 


CALL WRITE 


4A9T TE 


0112« 


LD 


A,(HL) [GET HI ADDR 


4A3> CD4BIB 


0043* WTZ 


CALL 0B4^H [KETSCAN 


4A9B BA 


• 113* 


CP 


D (SEE IF MATCH 


4A13 FEIC 


■ ■440 


CP 0CH iCLS? 


4A99 20EE 


■ 114I 


JB 


NI.CMPH [REDO IF SO MATCH 


4A35 2SFB 


004S« 


JR I, START ; YES-START OVER 


4A9B 2B 


■1150 MATCH 
■ 1160 


DEC 


BL [BACK TO LOW ADB 


4A37 FEBD 


■ 0460 


CP ■DH [CAB RETURN? 


4A9C EB 


EX 


DE,HL [SET ASIDE 


4A39 2BF5 


00470 


JR NI.WTZ [NO, SCAN AGAIN 


4A9D CD0C41 


01170 


CALL 


CTON (START CASSETTE 


4A3B D9 


004 B0 


EXX [GO TO PRIME REGISTERS 


4AA0 210042 


01180 


LD 


HL,4200H (BASIC ADR 


4A3C 3E2B 


00490 


LD A,20H ;ASCII FOB BLANK 


4AA3 E5 


01190 


PUSH 


HL [SAVE IT 


4A3E 2B 
4A3F BE 
4A4B 2BFC 
4A42 D9 
4A43 AF 
4A44 5P 
4A45 4P 
4A4e 57 
4A47 D9 
4A4B 7E 
4A49 2B 
4A4A D9 
4A4B FE2B 


BB500 NOBL 


DEC BL [DEC VIDEO POINTER 


4AA4 D5 


01200 


PUSH 


DE [SAVE ADDRESS 


BB51B 


CP (HL) ;IS IT BLANK? 


41A5 


01210 USECAS 


DEFL 


S-OIF (BRANCH MADE BY CTON 


BB52B 
BB530 
00540 

■ ■55^ 

■ ■56* 
• 057^ 
■■5B0 BOHP 

■ ■591 

00e«0 

00610 
00620 


JR Z.NOBL [YES-KEEP GOING 

EkX [CHANGE REGISTERS 

XOR A [CLEAR A 

LD B,A [CLEAR E 

LD C,A tCLEAB C 

LD D,A ;1BR0 D 

EXX 

LD A,(BL) 

DEC HL 

EXX 

CP 20H [SEE IF END OF 


4AA5 18B0 
4AA7 CD4B0F 
4AAA 2A6C40 
4AAD Dl . 
4AAE ED 5 2 
4AB0 Bb 
4AB1 CI 
4AB2 El 
4AB3 EB 
4AB4 EDB0 


01220 
012^0 
01240 
01250 
01260 
01270 
01211 
01290 
■ 130R 
01310 


JB 

CALL 

LD 

POP 

SBC 

PUSH 

POP 

POP 

EX 

LDIR 


$•2 [DEFINES JUMP 

0F4BH (SAVE PROGRAM 1 

HL,1406CH1 (PROG TAIL 

DE [RESTORE ADDR 

HL.DE [CALC HEW FROG LENGTH 

HL [MOVE TO BYTE 

BC [ COUNTER 

HL iGET 4200H 

DE,HL jSWAP 

(PROGRAM IS CUT DOWN 


4AB6 2B 


01320 


DEC 


HL (GET LAST TRANSFER 


4A4D 2829 


BB63B 


JR Z, BREAK ; INPUT 










4A4F D«3I 


B>fi4* 


SUB 38H iBUB ASCII 










4A^1 3BD4 
4A53 FEIA 


»«es0 

0t66^ 


JR C, START [AND TEST 
CP 10 [FOR VALID 








Program continues 
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Program cor)linued 












8133e 




LD 


A,(HL) lAtTD SEE IF CAR RET 




FEBD 


8134B 




CP 


■DR (FOR 'CBECKSDH' 






ai35B 




EX 


DE.HL iGBT END ADR JN BL FOB 


4ABB 


CJECBE 


B136B 




JP 


BEECH (RETURK TO BASIC 


41BE 




81378 


STBS 


DEFL 


HISTMS-90BH 


4ABE 


ec 


0138> 


HISTMS 


DEFB 


12 iMESSAGE LENGTH 


4ABF 


flD 


81391 




DEFB 


8DH ;CAH RET 


«AC« 


42 


B14ti 




DEFH 


'BBEAgPOIWT?" 


41CB 




■ 141f 


C5HS 


DEFL 


S-988B 


4KCB 


IC 


• 1421 


BICSMS 


DEFB 


28 /FINAL HE5SAGB LH8GTB 


4ACC 


3C 


11438 




DEFM 


'<E«TER> TO CSAVE' 


4ADC 


(D 


■ 144« 




DEFB 


13 iCAB RET 


tJU)D 


5C 


■ 145R 




DEFB 


5CB [VERTICAL MIKCM 


4Aoe 


2> 


81468 




DEFK 


' TO DELETE' 


4AEB 


CA2741 


81478 


TEST 


JP 


2,LSTART jCHECKSUH 


4AeB 


C2C9Bfl 


814S8 




JP 


N2,e8C9H jTEST 


4AEE 


mi 


814<ie 




DEFW 


8 iTBIS IS 


4AFe 


tttt 


81S88 




DEFW 


8 I STACH 


4AF2 


9ii» 


81518 




DEFH 


8 ;ABEA 


4AF4 


80BB 


81528 




DEFK 




4AFii 


9»>l 


B1531 




DEFW 


8 ;ALL 


4AFB 


Sill 


81548 




DEFH 


8 ; BITES 


4APA 


»9t» 


815S8 




DEFW 


■ ; EQUAL 


4 AFC 


t»»9 


8156* 




DEFU 


8 ; ZERO 


4AFE 


E8 


81578 


STACK 


DEFB 


TEST48FFH jUl ADR BYTE 






81588 




iREHAIHDER OF LISTING HOVES | 






81S98 




I ASSEMBLED PROGRAM TO BELOW | 






81688 




1 LEVEL 


I BASIC STARTING 1 






81618 




(ADDRESS AND CSAVES IT 1 






81620 




(FOR 250 BAUD LOADING | 


4AFF 


j1FE49 


81«38 


ADJ 


LD 


SP,49FeB 


4602 


11PE41 


81648 




LD 


DB,41FeU 


4B«5 


23FE4A 


8165t 




LD 


HL , 4 APES 


4Bte 


alFFII 


■ 1668 


' 


LD 


BCIFFH jBYTE CT. 


4BIB 


AF 


■ 1678 




XOR 


A ;CLEAR A 


4B0C 


96 


816B8 


TRANS 


SUB 


(BL) ;D0 CBECESUM 


4 BSD 


EDAS 


B169I 




LDD 


I BLOCK ItOVE 


4BeF 


EABC4B 


81788 




JP 


PE, TRANS 


4BI2 


D6 41 


81718 




SUB 


<I1H ; MODIFY 


4B14 


3:FD41 


il728 




LD 


(41FDH] ,A (POKE IT 


4B17 


21CB4A 


81738 


DUHPIT 


LD 


ULrHICSHS 


4B1A 


BGII 


»17 48 




LD 


B,17 iPARTIAL MESSAGE 


4B1C 


CDei4A 


■ 1758 




CALL 


BURITE-fl ;PREPARE CASSETTE 


4B1F 


CD4tSB 


■ 1768 


DLOOP 


CALL 


0B40B I KB INPUT 


4BZZ 


PEI3 


■ 1771 




CP 


3 


4B24 


CAC9*1 


• 37 B8 




JP 


Z,81C9a iBREAI TO BASIC 


4B2T 


FEID 


■ 17 9^ 




CP 


13 I ENTER 


4B29 


IRF4 


■ IBBB 




JR 


NX, DUMP 


4B2B 


coEser 


81B18 




CALL 


BFE9H iCASEETTE ON 


4B2E 


21BB41 


81B28 




LD 


RL,4180H iSTART ADR 


4B31 


11FF41 


81838 




LD 


DE,41FP[I (EHD+l ADR 


4B34 


CD4B0F 


81848 




CALL 


flF4BB iFOR LEVEL I 


4B37 


IBDE 


81858 




JR 


DUMPIT iREDO IF DESIRED 


4AFF 




BJ999 




END 


ADJ 



pended to the program that uses 
them. The programs are stacked 
up in the order in which they are 
CLOADed. So you must load the 
pieces so their line numbers are 
ascending and don't duplicate 
or cross each other. Splice will 
give you an error message if the 
program you're trying to load is 
clearly not in Basic (i.e., it 
doesn't start at 4200H); your 
RAM is exhausted; or a check- 
sum error occurs. 

Unlike ROM's CLOAD routine, 
a badly loaded program is not 
added to the stack. That Is, 
Splice tests the checksum be- 
fore it modifies the end-of-pro- 
gram address 406CIH and does 
not modify it on a checksum er- 
ror. This maintains the integrity 
of your expanding program. 

The heart of Splice begins at 
line 430. Basically, I have taken 
part of ROM's CLOAD routine 
and modified it to give the desir- 
ed results. The critical part of 
the CLOAD concerns the ad- 
dresses to be filled. After this 
part of the program is complet- 
ed, control jumps to ROM (tine 



700) to finish the Input and re- 
turns for the checksum test, 
end-of-program update and 
more merges. The address 
pushed in lines 430-440 is used 
for the ROM subroutine's return. 

I could not call that subrou- 
tine at line 700 because of inter- 
vening stack operations (see 
line 470). There is a POP DE In- 
struction near the end of the 
ROM routine (in 0F37H) which 
answers a PUSH DE at 0EF4H. 
an address skipped over by our 
modification of the CLOAD. 
Therefore, the return address 
had to be PUSHed before the DE 
PUSH to make the stack work 
correctly. The last-in, first-out 
stack action does not distin- 
guish between register PUSHes 
and subroutine Call storage. 
Without this adjustment, our re- 
turn address would have been 
popped into DE at 0F37H, and 
program execution would have 
crashed into who knows what. 

Normally during a CLOAD, 
the starting and ending address- 
es are read off the tape, and 
these values control the input. 







Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & II). In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



If you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

'TRS-ao is a trsdBmark of Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 

I Insiders Software Consultants, Inc 
P.O. Box 2441. Dept. SUM2 
Springfield. VA 22152 

;j Please send me Volume I of THE BOOK 

G Please send me Volume II of THE BOOK 



^305 



NAME 

ADDRESS 

CITY. STATE. 



_2IPC00E_ 



Check pBysble to Insidors Software Consultants, Inc, 

MASTER CHARGE MC Bank Code 

VISA Exp. Date Card Number 

Sigoalure _^ 



Oealar Inquirlea Invited 




Volume M: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I. now. 
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the software source 



Visit our new Retail Center at 20 Jerictw Tpke~ Jericho. 
Ijmg Island. NY. Call (5161 333-2266 lor hours a dirfldiou. 







ORCHESTRA 85 





TRS-80 MODEL I 16K TAPE OR DISK 

Jon Bokelman and Software Attair score again! Now there's a 
music/sound generating system even more powerful and ver- 
satile than their extremely popular Orchestra 80! 

Utitn to what It dots: ' 

ORCHESTRA 85 plays in sfereo, permits channel switching, 
allows stereo separation by both instrument and voice, and 
supports percussion effects. 

ORCHESTRA 85 supports tour voices (plus a fifth it a speed-up modi- 
fication is installed) 

ORCHESTRA 85 loads Orchestra 80 music (hundreds ot songs), plays 
it in stereo. Compose! Orchestrate! Trade with others! 

listen to whal't Included: 

Software digital synthesizer, music language compiler, full screen 
editor, tile manager, voice initialization utility. 

Hardware: a single PC board tfial plugs into expansion connector on 
on keyboard or into screen pnnter port on expansion interface Con- 
nects to any stereo amplifier system: external power source not required 
Unit cJoes rwt void your Radio Shack warrantee. Comes complele 
with tape and disk versions of software, detailed instruction 
manual, sample music programs, (Speakers, amplifiers not included ) 

All at a price ttwt't mustc to your eare: ONLY ^| OQQQ 

TRS-80 IS a Itademafk ol Tandy Ratho Shack Corp A*^ -^ 



7U^/ 



MIZ' SPELL 



TRS-SO MODEL I 4aK DISK (Soon available for Models II & Ml) 

Picture the fastest, most accurate schoolteacher you ever had, point- 
ing out all your spelling errors so you can correct them instantly. 
This new spelling checker for Electric Pencil and Scnpsit files is 
modeled after her it s virtually impossible to misspell with MIZ SPELL! 
Unlike other •pelling checking programs: 
MIZ SPELL will operate on one or more disc drives, (Some others 
require a minimum of two,) 

MIZ SPELL will work with words ot any length. (Others have limits 
on maximum word length.) 

MIZ SPELL IS interactive, you can correct mistakes as they are 
pointed out. {Some others require multiple, time-consuming 
passes) 

Check these features vs. other spelling checkers: 
MIZ SPELL maintains separate dictionanes for specialized vo- 
cabularies, each with a 27,000 word capacity. (1 8,000 included ) 
MIZ SPELL permits e)tamination of unused dctionary space and 
allocation of space for new dictionaries. 
MIZ SPELL learns new words from your text files as it check for 
spelling errors. (Words can also be deleted from the dictionary— 
but not accidentally, as with some other programs.) 
MIZ SPELL offers such options as: ignore word in text, delete word 
in text, change word in text, add all remaining words, etc- 
MIZ SPELL permits user configuration of system, including specifi 
cation of default extensions for original and corrected text tile 
Nowcheckthelowlntroductoryprice:ONLY C^Q95 

OCALEK IMQUIRIE3 IMVITED. MIZ SPELL ie puWishedOy SofPi* » ^»,^ 
inc Rx infO'Tiation conttC PtoMnJ TaylOf Prssidenl ProQisms 
UrtKTiiled al tfie aOdiess or pttona rn/nbers sin*i tvit "n 




Meet author ARNOLD SCHAEFFER 

Attends Georgia Tech slanmg Fail 1981, 

plans to maiof m compuiei science f-nst 

exposed lo computers in 6lfi grade , sokj 

tif St program at age 1 6 Characterizes 

sell as nol a good speller , was 

nspired 10 v^te MIZ SPELL when 

he examined available 

programming m store decided 

II could have been done 

much better 



ATTENTION. SOFTWAIW Al/TMOM. So/Pue mc mayde lh«aO(p»s- 
sive iwmeie,' you ve aeen SMMng tor yow piograms fw ooraKs. coniaci 



Un|a| -Yn CkOn^D' '^" ^' ^' "" 00^'^Q^ ^"" narKiiing 
nun lU wni/cn. ny Hesidems a*) saies tax. 

CALL TOLL FREE: (800) 645-6038 (except NY*) 

COMPUTER TO COMPUTER: (516) 334-3134 

WRITE: Dept. 881 M, Box 265, Jericho. NY 11753 



© 



MJSR!^^ 



FULL GUARANTEE 



UNLIMITED, return merctiarxJise in original corxWon and pack 
aging for prompl, lull reluncl 



•NY state rewctents can 516-997-8668 
(Call coltoci for orders only, please) 



■ Sm UBt ot Adt9tU»«n on pa«a 354 
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Atter each input byte, the value 
inX)E (initially the start address) 
is incremented, and the com- 
puter looks for more input until 
the value in DE equals the end 
address. We cannot allow the 
vajues on tape to control the in- 
put, however, because the pro- 
grams would simply be written 
over each other, always starting 
at 4200H. By Splice, the starting 
addres:- is replaced by the old 
end-of -program vdlue from 
406CH. The length^of the pro- 
grarr is calculated from the 
values read from Uie tape and 
used to calculate the new end- 
of-program. With that work 
done, RQM's routine can handle 
the actual program bytes. One 
of the CLOAD asterisks is re- 
placed by a*plus sign to indicate 
that a merge is taking place 
(lines 520-530), 

ADJ Subroutine 

The ADJ subroutine does for 
Splice what it did for Split, al- 
though there are some differ- 
ences in the way it was written. 



Split had a Ready Cassette pro- 
gram as part of its own message 
buffers, but Splice does not, so 
the Query message (line 1340) 
was added to the ADJ subrou- 
tine. Also, there is no difference 
in effect between simply sub- 
tracting the transferred program 
bytes and adding them with a 
negation of the final sum. As a 



assembly language program. 
This requires using some con- 
sistent labels, although the 
values will vary from one pro- 
gram to the next. 

Your main program must de- 
fine all JP, Call and LD instruc- 
tions by reference to DIF. It must 
also provide a certain amount of 
free space below 4200H for 



"In Split and Splice, 

the high-order byte 

of the entry point was 41 H, 

but It need not be this value. " 



matter of fact, ROfVI does it the 
latter way. 

Using assembly language. It 
would be possible to generalize 
ADJ for any program you might 
want to load with the low-core, 
checksum, modified technique. 
You could then assemble a ver- 
sion of ADJ, save It on tape and 
load it after you've finished your 




ZIP UP YOUR 
MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times taster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed- no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z8QB microprocessor and delay line - not supplied. 

• returns automatically to normal speed (luring disit and 
cassette operation - no software patches required. 

• iieyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only 
Assembled- 

S24.00 



"SATISFACTION GUARANTEED" 



Add $2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%, 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

H (916) 635-5408 ^-p 

^ Dealer Inquiries invited ^E 
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stack operations. Even if your 
program does not leave the 
stack there, remember that it is 
working during the CLOAD itself 
and if part of your program goes 
there, it will be changed before 
your program is ever run. This is 
the purpose of the string of 



DEFW lines in Split and Splice. 
Let's assume you regularly 
label the first byte of the pro- 
gram Head and your entry point 
Entry. You can then use your 
labels, plus your knowledge of 
the constant values like41FEH, 
to handle the block-transfer, 
checksum adjustment and cas- 
sette dump. There are certain 
logical operations which Radio 
Shack's Editor/Assembler sup- 
ports which are useful here. The 

value that eventually goes into 
41FEH, the low-order byte of 
your starting address, can be 
specified Tail, DEFB, Entry and 
OFFH. The label Tail can be used 
to calculate the displacement, 
which is DIF, DEFL TAIL— 
41FEH. 

In Split and Splice, the high- 
order byte of the entry point was 
41 H, but it need not be this 
value. To avoid manual assem- 
bly on this matter, you can use: 
HIBYTE DEFL ENTRY<-8, and 
the value HIBYTE in the check- 



Program Listing 2 



*ie» 

4A80 

4Aei 

41B4 
4AB4 

4AB5 
4AI« 

4AB7 
4AB9 
4AeB 
4ABC 
41BD 
4ABD 
4ABF 
4AU 
4A14 
4A1« 
4A18 
4A1C 
4A1F 
4A21 
4A24 
4A27 
4A2A 
4A2C 
4A2P 
4A30 
4A32 
4A35 
4A3fi 
4A39 
4A3C 
4h3D 
4A3E 
4A41 
4A43 
4A45 
4A47 
4A4A 
4A4B 
4A4E 
4A51 
4A52 
4A54 
4A57 
4A5B 
4A5A 
4A5D 
4A5E 
4A&1 



IBFB 
3EBD 



2e5E 

E05B6A4I 

EB 

ED52 

38S5 

ED53 6C4I 

31BB42 

Be2A 

217A41 

COB441 

3A4e3e 

CB57 

C2C9ei 

IF 

3eF5 

21BD41 

E5 

CnE9BF 

11BB42 

D5 

AF 

CDBIBF 

FEA5 

2«F9 

3E2B 

32BB3C 

3D 

32B13C 

CDAIBF 



2B19 
CDAIBF 



2813 
CDAIBF 



CDAIBF 
6F 



BBBIB 

BBB3B 
BIB4B 
B885B 
BBB6B 

0BB7B 



BBllB 

B812e 

BB130 

BB14B 

BB15B DIF 

BB16B BAD 

BB17B 

BB18B 

flfll9e DISPLA 

BB2BB SHOW 

BB21B 

Be22B 

8B23B 

BB24B 

BB25B 

80268 

BB278 CONTNU 

88288 

BB29B 

B838B 

8831B 

88328 

88338 

88348 RESET 

88358 

88368 

88378 

883 98 PAUSE 

BB39B 

884BB 

BB41B 

BB42B 

BB4 3B MERGE 

88448 

88458 

8B46B 

88478 

88468 

BB4 98 

BB5BB 

8BS1B 

88528 

8BS3e 

88548 

88558 

BB56B 

BB57B 

BBS3B 

88598 

88688 

88618 

BB628 

88638 

886 48 

88658 



ISPLICE 

JLEVEL I BASIC UTILITY 

;BY STEPHEN MILLS 

jALLOWS STACKING OF SEVERAL BASIC 

JPBOGRAMS FROM CASSETTE. 

I PROGRAMS MUST BE ENTERED 

;S0 THAT LINE NUMBERS ARE ASCENDING 

I [THOSE WITH LOWER tl FIRST) 

jAND EXCLUSIVE. 

ORG 4ABBH 

JNOTE: THIS EDTASn ASSEMBLER PLACES 

IPROGRAM AT 4AB8H, BUT ON ENTRY IT 

jBLOCK-MOUES TO 4ieBH AND CREATES A 

J258-BAUD LEVEL I LOADABLE TAPE. 



EQU 

EQU 

DEFB 

DEFH 

EQU 

LD 

INC 

RST 

DJNZ 

LD 

RST 

RET 

EQU 

JR 

LD 

EX 

SBC 

JR 



CALL 

LD 

BIT 

JP 

RRA 



PUSH 
CALL 

LD 

PUSH 

XOR 

CALL 



CP 

JR 

CALL 

CP 

JR 

CALL 

LD 

CALL 

LD 



98 BH 

418BII 

13 

'BAD' 

S-DIP 

A,(HL) 



IDISPLACEMENT 
;CAR RET 



jGET ASCII 
HL ;AND BUHP 

18H ,-VIDEO DISPLAY 

SHOW jDISPLAY LENGTH 

A,8DH ,IN B, MESSAGE ADDRESS 
IBH iIN HL 

;CARG BET AT END 
S-DIF 

NZ.FAIL jCHECKSUM TEST 
DE,(4B6AH) jMEH TOP 

DE,HL jSWAP FOR TEST 

HL,DE [SEE IF IT PITS 
C,FAIL ;DON'T TAKE IT 
(4B6CH),DE [UPDATE PROG END 

EP,42aBH jREINIT STACK 

B.MESSL ;SET MAIN MESSAGE 
BL.MESG ;GET ADDRESS 
DISPLA iSHOW IT 

A,|3B48H) jGET COMMAND MEM 

2, A iBREAK KEY 

Nz,eic9H 

.■FIRST BIT=ENTER 
NC, PAUSE 

HL, CONTNU ,RET ADDRESS 

HL jPUSH FOR CALL 

BFE9H iTURM ON CASSETTE 

DE,4288H ;WHEHE BASIC STARTS 

DE [BALANCE STACK 

A 

BFSIH [CALL BYTE SEARCH 
BA5H jSVNC BYTE? 

NZ,S-S ;REDO IF NOT 
A,2BH jEET + FLASHER 

13CBBH) ,A 

A ; ASTERISK NOW 

(3C81H) ,A. 
BFAIH JREAD 

D [SHOULD MATCH 

NZ,FAIL [QUIT IF NOT 
BFAIH [READ LO BYTE 

; SHOULD BE 8 8 



NZ.FAIL 

8FA1H 

H,A 

BFAIH 

L,A 



[LAST BYTE 

[ADDRESS 

[READ 

[IN 



sum adjustment calculation 
SUB HI BYTE. 

With ADJ you have a valuable 
tool for other assembly lan- 
guage programs, including 
other possibilities to facilitate 
working within the confines of 
Level I Basic. Other I/O opera- 
tions possible are adding file 
name search to your CLOADs, 
speeding up your load rate or 
driving a line printer for hard 
copy dumps of your programs. 
Other editing aids, like line re- 
numbering and relocation, are 
also available. It's not quite as 
easy as typing out a command 
in Level II, but the programs are 
so short that they load In an in- 
stant. 

By the way, if you re wonder- 
ing what happens if you merge 
programs so the line numt}ers 
are out of sequence, try it and 
see. You'll get a weird assort- 
ment of results. Evidently Level I 
can only do its sorting and as- 
sembling from the keyboard. 



When Splice loads them in a 
mixed state, they will simply 
stack up out of order. Some of 
them will even run like that. Bui 
if you have, say, a line 100 stack- 
ed above a line 200, you won't tie 
able to access it by Basic com- 
mand in most cases. 

The search technique used 
for editing, GOTO and GOSUB 
expects the lines to be in order 
and will not proceed beyond the 
barrier set by an out-of-se- 
quence line number. Also, lower- 
numbered lines are sometimes 
deleted after an out-of-se- 
quence merge, but I don't under- 
stand the selectivity of this. 
Split can help you out of such 
messes, since it will read 
through a whole program look- 
ing for a specified line (but in 
case there are two or more line 
100s, it will go with the first one). 
You may want to meet the chal- 
lenge yourself by writing a sort- 
ing, line renumt>erer or additive 
line adjustment program. ■ 



4A«2 


B7 


■ ■66f 




OR 


A 1 RESET CARRY 


4 AC 3 


BD52 


■ ((71 




SBC 


HL.DE iPROGRAH LENGTH 


4Afi5 


ED5B6C4C 


BBCBB 




LD 


DE,(48eCEI iCURREHT EHD 


4A69 


IS 


BBfise 




ADD 


HL.DE iCALC HEH EHD 


4AfiA 


DZlBlf 


BB7«B 




JP 


HCIFISK .-FINISH IN ROM 


4A6D 


CDB4IF 


BB71B 


FAIL 


CALL 


fFE4H rTUBH OFF CASSETTE 


4 ATI 


ifil4 


BB72B 




LD 


B,4 iHESS LENGTH 


4A72 


211141 


■1731 




LD 


HL.SAD iHESSAGE 


4A7S 


CDI4 41 


BB74^ 




CALL 


DISPLA tPROGRAH LENGTH 


4A7a 


1BA2 


BB7SB 




JB 


RESET iHOT INCREASED 


417A 




BI7tl 


MEGG 


EOU 


S~DIF 


4A7A 


ID 


1177* 


HAims 


DEFB 


■DB ; INSTRUCTION 


4A7B 


M 


■ ITS! 




DEFK 


'PRESS: ' 


4A81 


• D 


117 SI 




□ EFB 


•DH 1 DISPLAY 


4AB2 


3C 


BISII 




DEFH 


'<ENTER> TO HERGB 


4 AS 2 


ID 


IIBll 




DEFB 


IDH iCAR RET 


4A91 


3C 


11821 




DEFH 


'<BRBAE> MHEH DONE- 


• •2A 




•IS3I 


HBSSL 


SOU 


S-HAIHHS 


4AA4 


II 


11841 




HOP 




41 AS 




■issi 


HEAD 


SQD 


S-DIF 


«M« 


ic 


•I8<l 


BIHEAD 


DEFB 


■CB 1 CLEAR SCRBBX 


4AAC 


R) 


II87I 




DEFB 


13 iSPACE FOR FLA8BER 


4AA7 


4C 


11881 




DEFH 


■LEVEL I HERGE PROGRAH ' 


4ABC 


ID 


II8SI 




DEFB 


8DH 


4ABD 


4C 


IISII 




DEFH 


'LIHE HDXBBRS HOST BE SUCCESSI 


• ■37 




IISII 


HEDL 


BOD 


$ -HI BE AD 


4ADC 


■ i 


IIS2I 




HOP 




41DD 




IIS3I 


START 


BOD 


S-DIF 


4ADD 


C2ECIE 


IIS4I 




JF 


HI,8EECH 


4AEI 


31II42 


IISSI 




U) 


SP,4288H 


4AS3 


1637 


IIS El 




U) 


B.HBDL iHESSG LBHCra 


4AE5 


21AS41 


119 71 




LD 


HL.BEAD 


4AEB 


CDI441 


IISSI 




CALL 


DISPLA 


4AEB 


C31C41 


IISSI 




JP 


RESET-DIF 


4AEG 


III! 


IIBII 


CKSU« 


DEFM 


B iCBECKSUH ADJ 


ikft 


8111 


BIBIB 




DEFH 


i 1 STACK 


4AF2 


BBI» 


B1B2B 




DEFK 


B 


4AF4 


BIBS 


B1B3B 




DEFH 


e 


4APC 


BIBB 


B1B4I 




DEFH 


t 


4AFa 


BIBB 


BlISB 




DEFH 


B 


4ArA 


BIBB 


B1I6I 




DEFH 


t 


4APC 


BBII 


B1B7I 




DEFH 


» I AREA 


4ArE 


DD 


BIBBB 


TAIL 


DEFB 


STAAT-41BBII ibO» ADR 


ikrr 


31rF4A 


■ IBSI 


ADJ 


LD 


SP,S iDOH'T WANT STACK IN 


4BI3 


iirE41 


mil 




LD 


DE,41FEB ITRAHSFER ZONE 


4BfS 


21FE4A 


■1111 




LD 


BL.TAIL 


4BfB 


IIFFII 


1112* 




U) 


BC,ADJ-4AIBH 


4BfB 


AF 


11131 




XOR 


A {CLEAR A 


4BIC 


Be 


11141 


BLOCK 


ADD 


A, (HL) iCBBCKSOH 


4 BID 


EDAB 


IllSI 




LDD 


rBLOO; HOVE 


4B«F 


EAIC4B 


■ 1161 




JP 


PB, BLOCK 


4B1Z 


ED44 


11171 




HEG 


iHBGATE A 


4B14 


D«41 


■ iiai 




SOB 


4ia JHODIFY CBBCKSUH 


4Blt 


32BB41 


•llSI 




LD 


(OtSUH-OIF) ,A 


4B19 


2nC4B 


ll2iB 


TLP 


LD 


BL.OOBRY lASK FOR 


4B1C 


■ SID 


• 121B 




LD 


B,13 1258 BAUD COPIES 


4B1E 


CDB44A 


• 1221 




CALL 


SHOH ;ASR ABOUT COPY 


4B21 


CD4BIB 


• 123I 


DHAIT 


CALL 


•B4IH iKEYSCAH 


4B14 


PE^3 


•1248 




CP 


3 iBRBAE? 


4B34 


CACSIl 


■ 1251 




JP 


t,81C9a ;BACI TO BASIC 


4B2S 


FEID 


■1268 




CP 




4B3B 


]iF4 


■ 1278 




JB 


HI.QHAIT 


4B2D 


CDESir 


■ 1288 




CALL 


BFE9B 


4B3I 


21l*41 


(12S8 




LD 


BL,4188H 


4B33 


)IFF41 


I13l^ 




LD 


DE,41FFB 


4B36 


CD4BfF 


B131( 




CALL 


BF4BB 


4B39 


AF 


■ 1321 




XOR 


A I SET Z FLAG 


4B3A 


IBDD 


11331 




JB 


TLP (LOOP FOB HORE COPIES 


4B1C 


43 


■ 1341 


QUERI 


DEFH 


■CSAVE SPLICE?' 


4AFF 




■ISSS 




EHD 


ADJ 



for the TRS-SO from Micro- IVIega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. ' 

Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 



THE ULTIMATE STAR TREK PACKAGE 




Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart. " 

The package is built around the latest version of Lance 
Micklus' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays. before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGE (tor Level It, 16Konly). 
tad S2.00 tor postage and handling 



122 95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown tor postage and handling to price of the Hem Alt Hems shipped within 4e 
tiours t>y lirsi class or priority mail Virginia residents, add 4% sales la*. 



Micro-Mega • P.O. Box B365 ■ Arlington, Va SSS06 
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/^H PROGRAM STORE 




TENPINS 



SPACE AOCKS 

By Steven Kearns from Acorn 
Glijanlii. antifratter rocks appear on the Tact 
It.-' Display Screen of your spacecraft. Vou 
blast away with lasers and they just explode 
into smaller chunks. To score in this fa»I ar- 
cade oame wllh sound, you tnust destroy the 
rock*. To stay in the game at all. you mual 
■ void them: 

1 u add to your i«oes, time bombs appear peri 
oditally. If their timers (each zero BOOM! 
And if that'* not enough, the aliens will be 
qiad to send out some spaceships loaded with 
antimatter torpedoes. Fire Ihrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with five levels ot dif- 
ficulty . 

I6K protected tape. . .419. 9S 
WtC protected disk. . .S19. 95 



GOLFER'S 
CHALLENGE 




By Charles Butler from Lil>erty 
Take on the formidable "Liberty Links" golf 
course by yourself or with a friend. The 
course chanoes each time you play, offering 
18 holes replete with dogtegs, trees, water 
hdiardi. sand traps, and out of hounds ar 
eas. You choose your club and the direction 
you wish the ball to go. but walih mil for the 
brecje or a poor hil it can play havot with 

your shot' 

;6K tape... sin, 95 32K disk . , . S18. 95 

ALIEN ARMADA 

By Aaldron Hodsdon from Liberty 
HmiHiii. Li>oks like another "Space Invaders" 
tyie game. Nice neal ranks of aliens poised 
over your defensive bdit . . . but WATCH 
OUT' Here they come, swooping down with 
their bombs and Kamakaii - like dives. There 
are individual attackers plus group flights -- 
all intent on destroying your Ihree bases be 
fore you destroy them. ALItN ARMADA al 
lows up 10 two players and has three levels of 
difficulty from beginner to expert. 

16K tape... $1*1.95 JIK disk.. .518. 9S 



By John Allen fr jf]] Alji r, 

TENPINS brings you all the thrills of champ- 
ionship bowling. Up to four players partici- 
pate, and the program automatically senses 
the skill of each. Beginners can simply pos 
ition the ball and "roll" ii while more skilled 
players can vary the force, roll a curve, and 
cause it to spin as It heads for the pins. All 
this plus i-D graphics and sound effects 

adds up to a realistic and thoroughly 
challenging bowling game. 

Protected tape. . .S11.95 
Prolecled disk. . .520.95 




By Sparky Stdrks'lrom Adventuj e Int. 
As mercenary and galactic police officer, you 
must maintain the condition and control of all 
parts of youi spacecraft. Vou sil at the con 
trols while peering out of the digital space 
view port. Suddenly something appears on 
your screen, is It a Starplrate or a friendly 
merchant ship? Vou can't tell yet. and al this 
speed you may have only a fraction of a sec 
ond to make an a Hack no attack decision. 

Speed and sound effects enhance the graphic 
action of this tactical game. Can you take the 

pressure ' 

Model I t III, 16K tape. , .sin 35 
Model I disk version S29.95 



HIGH 
FINANCE 




By Leonard Kaufer from Lybernautics 
It's almost literally "dog eal-dog" in this 
manufacturing simulation. You and from one to 
five opponents tesi wits against each other 
and the market as compaliturs in Ihp dog food 
business. You must buy raw materials ai a 
good price to be able to sell al a profit. 
Sneaky moves by you or your opponents can 
drive up the cost of needed materials or de 
press the prices ot finished products. Vou 
will be amazed al how a friendly game can 
turn into a culthruat showdown of wilK and 
wiles. 

I6K tape.. , 511. qs 



THE 
DOCUMENTER 




- rOL* WJ1E 1 1 



From P80NUT Software 

If you would love to be able to document your 
programs with a flowchart but lack the lime, 
talent, or inclination, this program is for 
you, THE DOCUMENTER will produce a log 
leal flowchart directly from any suitable 
BASIC program and print It on the screen or 
most lineprinlers. 

Vou get a flowchart and branch map that will 
help you follow program flow and aid your 
debugging efforts. Even memory filling 
programs can be broken down into segments 
and flowcharted. 

16K lape...S19.95 32K tape, , , S19. 95 

t8K tape. . .519.95 t8K disk . . . Si9. 95 



COLOR COMPUTER 

The Program Store slocks a selection ot pro- 
arams fur the TRS-BO Color Computer, too' 
For more information, send 50 cents for our 
Color Computer mini-catalog. 

( CCT : Color Computer Tape 
ECB: Extended Color Basic) 

MINI ARCADE 1 Computer Simulations 
Five arcade games. 16K tape. . . S11.95 

COLOR SPACE INVADERS Spectral Assoc . 

Machine lanouage action. CCT , . . SJ1.95 

COLOR MtTEOROIDS- Spectral Assoc. 
Destroy deadly meteoroids. CCT... $11.95 

COLOR SPACE WAR Spectral Assoc. 

Blow up theDealh Star, CCT. . .531.95 

CAME OF LIFE, Spectral Assoc. 

Classic rules of generation. CCT...S19.95 

BLOCKADE- INTERPRO 

Joy slick arcade game. CCT.lbK ECB..S19.95 

GRAPHIC AIDE Computer Simulations 
Master illustration program. 16K...S10.95 

TYPEWRITER Computer Simulalioiis 
Simple word processing. I6K . . . Slil.95 

COCOBUC Allen Celder Software 
Debugging monitor, 16K ECB...S19,95 

SCREEN EDIT CONTROL SVSTE,y Dalasoft 
Screen editor (. much more. IbK ... 529.95 

SICMON- Datasoft 

6809 monitor containing mini assembler, 

disassembler and debugger. CCT . . S29.95 

COLOR COMPUTER DISASSEMBLER 
Access to the ROM. 16K ECB . . . 5 19. 95 
MACIC BOX. Spectral Assoc. 
L'se Model I III BASIC programs. CCT S3ll,95 



Visit Our Baltimore, MD Store: W. Bell Ptaxo - 6600 Security Bl vd 



TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 363-9797 



^-u 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept.E 09Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
6% tax. Charge card custonwrs: include all embossed 
information on card. 
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Get the most from your micro witti 
software and occessorlei from one of 
ttie world's largest selections. 



TSe 

H'oyrom 

Store 



CALL TOLL FREE 

800424-2738 



*« 




By Richard »(llk«i from Acorn 
Using your 5iip«rScrlpt modlflxJ Scripslt 
Word Proca»»or and a compatible printer, you 
can now undsriine, boldf»ce. insert t«xl 
during printoul. slash laros, tat typ* pilch, 
subscript and, of cour»«, superscript' You 
can Bvan rwd your directory and kill file* 
without ever leaving ScripSil. 

Superscript comas vtith drivers for popular 
tanal and parallal printers {now ir>cluding 
ContronicS 737 and RS Daisy 11), and aasy 
In St rut lions for palchiny lo your Scrlpsil 
program ( do«s not includa Scripfitl. 

Mod*) I. 3!K disk. . .Sig.SS 




From Soft-Tools 

Computers may not irake nlstaaks. but p«op(e 
do. Thai's why you n«d PROOFREADER if 
yOu use your computar for word prccessinq. 
In about five minutes, ihis program can 
check any word processing disk file against 
Its dictionary o* more than 38, MO words. Any 
words that don't syree with the dktKjnary are 
listed on the scraen and, opttonally. to a disk 
file fo-r later retrieval . 

For words words you use that aren't in 
PROOFREADER'* vocabulary, an easy to use 
auxiliary file is provided. Five minute* wtlh 
PROOFREADER can save hours of ttffie 
proofreading . 

btodcl I, 32K diak {(drive min.).. . 5M OO 



z 

i 

K 




By Infocom from Parsorval Software 
In Zork, the Creiet Underground Empire, un 
earthly creatures giiard 20 treasures. Bring 
all the treiasiires back to the trophy <-as* and 
you can leave alive' You must pick your way 
through intricate ma;e», co<tecting obiects 
thai may help or hinder you in your que»l . 
Bu' keep your wits about you, twcause in 
Zork, they take no prisoners! 

THS 80 or Apple II, ilf. Diak , . .SJl-95 




DECATHLON 

By Timothy Smith fro-m Microsoft 
The graphics i-apabilities you ware promised 
when you bought your computer are finally 
utUlied In this marvelous series of prograais. 
Ju3I like the real D«csthk)n. you compete In 
10 demanding ganes that encowipass different 
forms of runnino. jumping and throwing. 
Playing alOn* or with as many as eight compat 
llora, the gold medal will always go to the 
skillful, b«:«ua« your score cteperKls entirely 
on akillful manlpulatkjn of the keytxiard. 

MotJetl. ISK tape. -SI« 95 UK disk. . SJ*. 95 



Unballewabla R««Hfq}« 3-D Qraphtcst 




FLiCrtHT SliOtULATTON 



From Sub Logic 

The wail is over' If 3 D graphics seem im 
possible on the low resolution TRS SO, you 
haven't seen Ihli brilliant program. Durir»g 
FLIGHT SIMUIATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's eye- view. But be sure to strap your 
»eU in you're liable to get diijyi 

Once you put in aome air time learning to fly 

your THS-BO, heed for enemy territory and 

try to bomb the fuel depot and airstrip while 

fighting off five enemy warplanes. Cood 

Luck' 

Model I , ItK tape. . Si!. 00 

OMNIKEY 

FroM Discovery Bay 

Use your energy for programming, not typ- 
ing I Single keystroke entry of 26 Basic state 
ment*, auto repeat on all keys, and selectable 
upper lower case li* your keyboard is so 
equipped) speed Bask. program entry 
Immensely . 

OMNIKEY's arrow controlled Cursor gives you 
full-screen edltlr%g capabilities. Inteil or 
delate text at will. You can break multiple 
stateinents into separate program lines or 
combine them to save meraory . Even reposi 
ttoning of lines within a program is as easy as 
typing a new line number' Once you've used 
OMNIKEY, you won't program without It. 

Model I tape (transferrabie to diski . . .SJ2.95 



THE PROGRAM STORE 
Franchises Available 



TYPING TUTOR 




By Ainsworth L Saker from Mk:r*»of1 
Speed up your programming and word pro- 
cessing with this excellent touch-ty^iiBfl In- 
structional program. Divided into two auc- 
tions, the program first teaches prop«r finger 
positioning. Vou prectice keying vartou* 
characters, the program adding r>e* ones as 
you progress In the practice paragraph sec 
tlon. you are evaluated for accuracy and 
rated in words p*r minute. The program con- 
tinuously adiusts to your lr>cr«B»lng skill, 
tailing yOu which characlt's you miss end 
vffvero you are slaw. One of the most [>r«ctical 
programs we know of for T RS 80. 
Mod«4 ( IhK tape. . .SM.)5 



1.30S UOOS LOOS LDOSLQOS 



L30S LDOS 
COS 



..DD* Laos LDOS UDOS LOOS LOOS '-COS 
L.D01I LOOS Laos _ -^ -^ ^» 1 303 L 

IDOV -K)| QQHs La»s 

LOOS L.-'*'*'^^*'t)5 L^M 
■ aOS L 30S „30ii : MS LCC'^ '-OOS 

ixn LXlTT^^ laf.s Li^ LMS Lb&5 Ls^js 




If riew I DOS wer« jusi another disk operating 
system (DOSl. we would not recommend it tu 
yoii . Mowaver , two difference* m^ke tliii 
system unique and important cuitoraer 

supjxiri and \iser benedta. 

When you buy any DOS, you need service fur 
programming assistance, updates and tips on 
how best to use ils features. This (s part of 
what you buy with LDOS. First, you are 
supported by a toil free phone line listed on 
your registration card. 5e«>nd , you will be 
promptly notified of all ufxlatas and f»ay serid 
your original diskette to a service center for 
updating . You pay only the losI of return n»ail 
you can do it every week if you like. 
Third, a regular newsletter informs you of 
any updates and provides tips on uSing some 
of LDOS's many special features. 

With LDOS you get a well documented, 
ihorouyhly tested, and powerful DOS. The 
publisher is committed to a protessiornlly 
written and d«tail*<J users' manual. 

The power of LDOS is its ease of operatioji, 
iU iiid^aendence of hardware configuration. 
and its device indepenctance. You can make 
■elected backups, chain together a series of 
programs and operations, and operate several 
different types iJ* drives from the computer. 
LDOS has all the features of VTOS 8.0, fully 
implemented and working. There are hund- 
reds of features which we do i»t have room to 
mention, but tfie best features are its ease of 
use for the ne* disk owner consbirved with its 
sheer power potential for tha expert, *« will 
gladly send you more information un LDOS if 
you |ust call our toll free number. 

For Model I t IU , with manual . . .SHi9.<i'; 
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TECHNIQUE 



A memory saving technique for Level II owners. 



Delete and Save 



R. Gene Lahgston 
10755 Li scard Rd. S. 
Jacksonville, FL 32216 



After running some program 
Instructions, I wanted to 
delete the block of statements 
that housed the instructions, 



enabling me to have more 
memory in which to load my ar- 
rays. I included, at the end of 
the instruction statements, a 
DELETE XXXX-XXXX line. Sure 
enough, as the program ran, It 
deleted the appropriate line 
numbers, but it also fell back 
into the command mode and I 
got a Ready prompt. I knew I 



128 


END 


171 


LSET 


214 


< 


129 


FOB 


172 


RSET 


215 


SON 


130 


RESET 


173 


SAVE 


216 


INT 


131 


SET 


174 


SYSTEM 


217 


ABS 


132 


CLS 


175 


LPflINT 


21B 


FRE 


133 


CMD 


176 


DEF 


219 


)NP 


134 


RANDOM 


177 


POKE 


220 


POS 


135 


NEXT 


178 


PRINT 


221 


SQR 


t3fl 


DATA 


179 


CONT 


222 


RND 


137 


INPUT 


180 


LIST 


223 


LOG 


138 


DIM 


181 


LLIST 


224 


EXP 


139 


READ 


182 


DELETE 


225 


COS 


140 


LET 


183 


AUTO 


226 


SIN 


141 


GOTO 


184 


CLEAR 


227 


TAN 


142 


RUN 


185 


CLOAD 


228 


ATN 


143 


IF 


186 


CSAVE 


229 


PEEK 


144 


RESTORE 


187 


NEW 


230 


CVI 


145 


GOSUB 


188 


TAB( 


231 


CVS 


146 


RETURN 


189 


TO 


232 


CVD 


147 


REM 


190 


FN 


233 


EOF 


146 


STOP 


191 


USING 


234 


LOG 


149 


ELSE 


192 


VARPTH 


235 


LOF 


150 


TRON 


193 


USH 


236 


MKIS 


151 


TROFf 


194 


FRL 


237 


MKS 


152 


DEFSTR 


195 


ERR 


238 


MKD 


153 


DEFINT 


196 


STRINQJ 


239 


CINT 


154 


DEFSNG 


197 


INSTR 


240 


CSNG 


155 


DEFDBL 


198 


POINT 


241 


CDBL 


ise 


LINE 


199 


TIMES 


242 


FIX 


157 


EDIT 


200 


MEM 


243 


LEN 


158 


ERROR 


201 


INKEYS 


244 


STRS 


159 


RESUME 


202 


THEN 


245 


VAL 


160 


OUT 


203 


NOT 


246 


ASG 


161 


ON 


204 


STEP 


247 


CHRS 


162 


OPEN 


205 


+ 


248 


LEFTS 


163 


FIELD 


206 


- 


249 


RIGHTS 


164 


GET 


207 


. 


250 


MIDS 


165 


PUT 


206 


/ 


2S1 




166 


CLOSE 


209 


t 


2S2 




167 


LOAD 


210 


AND 


253 




168 


MERGE 


211 


OR 


254 


! 


169 


NAME 


212 


> 


255 


ISA 


170 


KILL 


213 


7 










Table 1. 







could delete my line numbers 
and still stay in the program, 
but first I had to find out how 
the computer did it. 

Here is some background on 
the TRS-80 statement format. 

Go to your keyboard and type 
New. Now enter: 

1M PRINT 

Now, PEEK at the addresses 
that hold this statement. Level 
II memory stores the first ad- 
dress of the program at 17129. 
After entering the PEEK routine 
listed, you should get this 
result: 

FOnX = 17129 TO I7136:PR1NTX;" = "; 
PEEK(X):NEXT 

17129 = 239 

17130 = 66 

17131 = 100 

17132 = 

17133 = 17B 

17134 = 

17135 = 

17136 = 

The Next Statsment 

In Level It Basic the 17129 and 
17130 addresses point to the 
beginning of the next state- 
ment. The first section (239) Is 
the Least Significant Byte 
(LSB) and the second (66) is the 
fiilost Significant Byte (MSB). 
To convert this to something 
we can identity with, multiply 
the MSB by 256 and add the 
LSB. For example: (256*66) -f 
239 = 17135. This means that 
the next statement (if one is 
there) will begin at 17135. 

The statement line number 
makes up the next two ad- 
dresses, 17131 and 17132. The 
MSB and LSB are computed the 



same way as before. Line 
numbers up to 255 are obvious, 
and the rest are computed as 
shown. 

Ignoring the next address for 
a moment, we find that 17134 
holds a zero. This is used as an 
end-of-line indicator. The last two 
addresses, 17135 and 17136, are 

the locations (as computed 
above) where the next line 
would start If there was one. As 
you can see, this is the last 
statement in our program and 
these pointers are set to zero. 

This Indicates that there are no 
more statements to follow. If 
there was another line, these 
two addresses would hold the 
pointer for the next statement, 
as did 17129 and 17130. 

All of the addresses between 
the line number and the end of 
line indicator contain the text 
of the statement. Usually, there 
will be many more than the 
single one in our example. The 
text is composed of ASCII 
codes (see the Level II reference 
manual), and Level II statement/ 
function storage format (see 
Table 1). Line 17133 contains the 
code for Print 178. 

Suppose our line had been: 
100 ONZGOTO200. Then our 
PEEKing would have revealed: 



17129 = 244 

17130 = 66 

17131 = 100 

17132 = 

17133 = 161 

17134 = 90 

17135 = 141 

17136 = 50 

17137 = 48 

17138 = 48 
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17139 = 

17140 = 

17141 = 

I discovered that at least 
three things happen when the 
delete command is executed. 
First, the pointer at memory ad- 
dresses 16633 and 16634 is as- 
signed a new number. These 
pointers signal the end of a 
Basic program and the start of 
variable storage. MSB and LSB 
are computed as before. Sec- 
ond, the next statement 
pointers (of the first line de- 
leted) are reset to zero. And 
third, the statement line num- 
ber (of the first line deleted) Is 
assigned a 4. 

Now we must find the 
specific addresses that we 
wish to delete. 

Let's assume that the in- 
structions of a particular pro- 
gram are located In the last 60 
lines, starting with line number 
15000 and ending with 15600. 
The ilne preceding 15000 is: 
14950 GOTO 100. To delete 
lines 15000 to 15600 (end of 
program) after displaying the 
Information, we need to i<now 
the address of 15000. Edit 
14950 as follows: 

14960 GOTO 100% 

Notice that a single char- 
acter is added. You must use a 
character that has not been 
utilized in the program because 
we will search the memory for 
the ASCII code of this char- 
acter. If it is a unique code, the 
search will be that much easier. 
Enter this command: 

FORX = 17129T032767;IFPEEK(X)=37 
PRINT X ELSE NEXT 

After a value is printed, verify 
that this is Indeed the address 
that you want. If, for example, 
the address printed is 20248, 
verify this by Print PEEK (20247) 
and the value should be 48, the 
ASCII code for the zero that 
precedes it (GOTO 100%). If It 
Is not verifiable, continue with 
your search until the character 
is found. 

Once you have found the cor- 
rect address, make a note of 
this address, A. Now delete the 
character you added In the line. 
Address A Is now equal to the 
end-of-llne indicator. 

^S9» List of Adv»rtis»n on ptgm 354 



The next four addresses are 
the ones that we require for 
deletion. 

To'find the value of the ad- 
dress that we must set into 
16633. and 16634, evaluate the 
pointers as follows: 

• Divide address A-f3 by 
256. (A-F3 is the address 
where the line number to 
be deleted begins.) 

• Take the integer value of 
this division, B. 

• Compute address A + 3 
minus 256* B. Let this value 
equal C. 

Now we have address values of 
'^■, 'B'and 'C. 

Let's look at part of our ex- 
atnpie program and see what 
we can do with these values: 

10 GOSUB 16000 

150PO REM INSTRUCTIONS BELOW 

1560b RETURN 

In order to delete lines 15000 
t6;15600, put the following line 
after line 15000 In any position 
where it will be executed: 

POKE 16633,C:POKE 16634,B:P0KE A + 1, 

0:POKE A + a.OPOKE A + 3,4:POKE 

A + 4,0:CLEAB 50 

Put the values you found In 
place of A, B and C. The clear 
Statement must be executed, 
but you can put in a value as re- 
quired by your program. 

These POKEs can be ex- 
ecuted and all statements 
following them will be executed 
just as if everything was nor- 
mal. After running the program, 
listing it will showthat the lines 
have been deleted. 

In summary: 

•Add an unused character to 
the end of the last line not 
be be deleted. 

•Search memory for that 
character; verify. 

• Delete unused character. 
•Note address A. 

• Evaluate pointer (16633, 
16634) line. 

• Note values B, C. 

•Add these executable 
statements after last line to 
be saved: 

POKE 16633, C 
POKE 16634, B 
POKEA + 1,0 
POKE A + 2,0 
POKE A + 3, 4 
POKE A + 4.0 
CLEAR 50 ■ 



COMSOFT 



TSHARE 2.0 




MULTI-USER SYSTEM 

for the 

TRS-dO® MODELS I & III 

Powerful addition to NEWOOS80* expands the capacity of a 

single TRS-60 to service TWO active users with full access to 

NewdosSO. 

Users operate Independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Jointexecutlon of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 

interface (software drivers built-in for RS-232*, HUH-8100® , 

TRS232«,andMPR-232* interfaces). 

SIMPLEX mode for non serial-pcfrt users. Requires only expansion 

interface or TRS232 with printer to act as. second "screen". 

Jobs share TRS-80 keyboard under user control. 

CONFIQURE utility makes it easy to partition memory between 

users and select I/O modes. 

TSHARE 2.0 for NEWDOSSO $ 99 

Please specify model I or III (Model ill available Sep. 1, 1981) 
TSHARE 1.3 for TRSDOS2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 -I- MPR-232 interface (tornonRS-Z32 users) . .$199 



$10 Upgrade privilege for TSHARE 1 .3 licensees 



DDM5 



$79 
MODELS I ft Ml 



MULTI-FEATURE DATA MANAGER 



Up lo 20 user defined fields. 

Files exiend across multiple 

disketies. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



Four data types and compu- 
tational fields. 

Flexible REPORT GENERATOR 
Fast assemtily language sorts. 
MULTIFIELD sorts S seafcties. 
Keyed access on any sorted tield. 
Indexed relations between files. 



VIEW 



$1995 CSTOCK 



$49 



A SCREEN FORMATER 
FOR DBMS 

Full CURSOR contcol 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

&edit 

Elegant & professional look 



DISK DATA BASE ft 

ANALYSIS TOOL 
FOR STOCKS & OPTIONS 

' Regression analysis 

■ Charts 

■ Portfolio selection 
> Rtsk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS.-80 
with orwithoi^tan expansion interface. 
■ Glitch freeoperation 

• Connects with card edge connector 

• Uses THS-80 power supply 

• All parameters switch selectable 

• Baud rates 50 to 19200 TOORDER 
Manufactured by; 
Micro Projects Engineering Co. 
Culver City, CA , 

$119 (ASSEMBLED & TESTED) 

TnS-80 tm 

Radio Shack/Tandy Corp. 
NEWOOS tm Apparat. Inc. 
TRS232 tm Small System 

Software 
HUH tm California Computer Systems, 



1569Westwoocl Blvd. 

Suites 

W. Los Angeles, CA 90024 

^204 
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TUTORIAL 



The principles of operation at the user-programmer interface. 



Going Pro 



Nicolas Moss 
108 Via Hermosa 
Santa Cruz. CA 95060 



With the introduction of the 
affordable personal com- 
puter, many people who never 
dreamed of seeing a computer 
are now programming. Several 
are very good at it. Many of the 
younger seif-taught computer- 
ists decide to write software 
commercially. The ubiquity of 
the TRS-80 has created a big 
market for Basic programs, 
along with modifications to ex- 
isting software (for the user who 
doesn't program). Very powerful 
software can be written at home 
for about $800. The sum makes 
part-time programming very ap- 
pealing. 

The purpose of this article is 
to tell you, the future part-timer, 



what to expect when you pro- 
gram for someone else. 

The Rules 

When you program for your- 
self, you know exactly what you 
want. You understand what 
you're doing because you have 
some background in the sub- 
ject. You also know the limits of 
the machine. This, of course, 
changes when you write a pro- 
gram for someone else. 

First, you do not really know 
what the user wants. How could 
you? Therefore, rule number t 
The user does not know what he 
wants. 

Second, you will probably not 
know what the user is talking 
about: Computers have yet to be 
programmed to understand 
buzzwords. Rule number 2: 
When the user has a vague idea 
of what he wants, research the 
subject. This allows you to know 
what he means when he says, 
"Could you cross-reference my 
G.L with my A.R. and A.P., and 
can you have It generate a cate- 
gorized P. & L sheet?" 



Third, do not answer the 
user's buzzwords with your own. 
"Sure, I can do it, if your floppy 
can support file chaining and 
D.M.A., otherwise the interpreter 
will tie up the C.P.U. when it 
does string clean-up in high 
RAM." Rule 3: If you have to use 
buzzwords, use small, logical 
words that will not confuse the 
issue. 

Rules 2 and 3 pose the big- 
gest problem in the small-com- 
puter field. When a customer 
wants reasonabfy priced soft- 
ware, he shouldn't have to hire a 
third party to translate the con- 
versation. The programmer 
must communicate properly 
with the user! 

Rule 4 is derived from Rule 1: 
Application programs evolve. 
The first copy of a program will 
have to be changed radically to 
get the final copy. In the first 
program, avoid fancy tricks and 
leave plenty of room for modifi- 
cations. Make the code easy to 
change. 

Since the user doesn't really 
know what he wants, and is 



probably very non-technical, 
you will usually get a negative 
feeling about him. I therefore 
have Rule 5: The user is the 
boss; never criticize the boss! 
To help you cope with Rule 5, I 
suggest reading Zen and the Art 
of Motorcycle Maintenance by 
Robert M. Pirsig. 

Although these rules sound 
simple enough, they are the 
hardest damn things to live by! 
It takes discipline and concen- 
tration. 

So, for your first out-of-fleld 
programming experience, I sug- 
gest you choose to write a pro- 
gram for an accessible relative. 
This way, the user is close, and 
It is very hard to break Rule 5 if 
you are working for a relative; 
and If you do break it, affection- 
ate understanding will keep the 
programmer-user bond from 
breaking. 

Two last rules. After you satis- 
fy the user, he will think you are 
a god. Rule 6: Programmers are 
not God! Rule 7: Under any cir- 
cumstances, do not forget Rule 
6!B 
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Alone In your spacecraft, you are exploring an uncharted area when your Tactical Display Screen suddenly blossoms with 
gigantic moving objects. It would be bad enough If they were ordinary asteroids, but their size and behavior tell you they 
are much worse— huge chunks of deadly antimatter, capable of destroying your ship on contact! 

You fire your thrusters, hoping to escape the menacing onslaught, but here come more of the sinister shapes. You are sur- 
rounded and the only way to avoid destruction is to fire your laser cannon. Aim . . . Fire ... A direct hit! But instead of 
destroying the rock, your blast has exploded it into several smaller— but equally lethal— pieces. Now each must be 
separately eliminated. 

The thought occurs to you that the sudden appearance of these rocks might be more than coincidence, and your suspi- 
cions are confirmed as time bombs enter the Tactical Display's field, their timer displays counting down toward your 
destruction! And finally the enemies themselves, in space ships tiring antimatter torpedoes, join the fray. 

Can you destroy or avoid the rocks and the enemy, and at the same time still the incessant ticking of the time bombs? With 
SPACE ROCKS, you can try. It's a realtime arcade game with sound effects to enhance the action. One or two players can 
compete, and there are five levels of difficulty to keep up the challenge as your skills increase. 
Order SPACE ROCKS today for your TRS-80* model I or III. Available on 16K tape or 32K disk versions for just $19.95. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 




TENPINS 



By John Allen 

A realtime action game with 3-D 
graphics and sound, TENPINS 
brings the thrill of champion- 
ship bowling to your TRS-80* 

From one to four players parti- 
cipate, and the program senses 
the skill of each player. Begin- 
ners can simply "roll" the ball 
while more skilled players can 
vary the ball's force, direction, 
and spin. 

TENPINS even has factors to 
simulate imperfections In the 
lanes, adding even more real- 
ism. Available for only $14.95 
for 16K tape version, $20,95 for 
32K disk. 




PIN BALL 



By John Allen 

Get your flipper fingers ready 
for action in this realtime, 
machine language game. 

Lots of sound and flashing 
graphics make this fast action 
game so much like the real 
thing that you'll have to remind 
yourself not to shake your 
TRS-80. Choose from five play- 
ing speeds to match your skill. 
Can you beat your friends' 
scores? Will you avoid the infa- 
mous "Bermuda Square?" Get 
PINBALL today and find out. 

For TRS-80' model I or III. Just 
$14.95 for the 16K tape version 
or $20.95 on disk (32K). 




INVADERS 
FROM 
SPACE 



By Carl Miller 



A fast machine language ap- 
proach to this classic (and 
addictive) space game. The 
aliens drop txjmbs, move around, 
and try to overrun your bases. 

You choose the speed, enemy 
bomb frequency and accuracy, 
and how many shots and bases 
you have. Unlike other games of 
this type, you can move your 
base and simultaneously fire at 
the invaders. Fun for all ages 
and skill levels, it has full sound 
effects for even more excitement. 

Available forTRS-BO* model 1 or 
II). Only $14.95 on 16K tape ver- 
sion or $20.95 on 32K disk. 




(202) 544-4259 

Acorn 

Software Products, Inc. 



634 North Caroiiria Avenue. S E., Washington. D C 20003 



•Trademartf of Tandy Cofp 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I & III 

MAIL ORDERS: Include $2.00 shipping & handling 
(D C residents add 6% sales Tax), 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



'5m Ust at Adnrtl—n on otw 3M 
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EDUCATION 



This mechanical horse race is heavy on positive reinforcement 



Math Derby 



Michael A. Duff in 
1507 East Ave. 
Berwyn, IL 60402 



One assignment I gave my 
introductory data process- 
ing students was to design and 
implement an educational 
game. Two students (Kay Keyes 
and Kathleen Schmaus) decided 
to write math games. 

Kathy's game used the tradi- 
tional "happy face" for a correct 
answer and "sad face" for an in- 
correct answer. The user speci- 
fies whether he or she wishes to 
add, subract, multiply or divide. 
To construct her figures, Kathy 
used the PRINT® instruction. 
Kay's game, on the other hand, 
concentrated on the graphic 
abilities of the TRS-80. Kay 
graphically constructed a race 
track and horse using the POKE 
and PRINT® instructions. In her 
game, if the user responds cor- 
rectly to an addition problem, 
the horse moves to the finish 



line. 

Learning from Students 

Combining the ideas of these 
two students and implementing 
a few of my own, I constructed a 
viable Horse Race game that re- 
quires a student to be quick and 
accurate in answering a prob- 
lem. It is an educational game 
designed to make math more in- 
teresting. It was written on a 
Level II TRS-80, and I believe it 
will work on a Level I machine as 
well, without any modification. 

One to three players may play 
this game. A math problem is 
presented and each player has a 
horse on the screen as a playing 
piece. A player's horse moves 
only when the math problem is 
answered correctly. The player 
may pick the type Of math oper- 
ation he wishes {i.e., add, sub- 
tract, multiply or divide). A cor- 
rect answer causes the horse to 
move, and the length of the 
move is determined by the type 
of operation chosen. 

The Program 

The most Interesting routine 
in the program exists in lines 
5120 through 5150. This routine 



lets the player enter his or her 
answer to a math problem via 
the INKEY$ instruction. One ad- 
vantage of using this routine is 
that it allows the user to enter an 
answer that is more than one 
digit long. It does this by using 
an array, the VAL instruction in 
conjunction with the INKEY$ in- 
struction, and concatenation. 

Another advantage that this 
routine has is that it times the 
player's response. If I had used 
the Input instruction instead, 
the player could take out a cal- 
culator or take a short nap or a 
trip to Florida before he or she 
would have to respond to the 
problem presented by the pro- 
gram. The INKEY$ routine gives 
the player about 15 to 20 sec- 
onds to respond to the problem. 

The best way to explain how 



the routine works is by using an 
example. Assume that the play- 
er has said that he or she would 
like ,a division problem and that 
the computer has then present- 
ed the following problem: 8/3 = 

The answer is 2.67 

rounded to two decimal places. 

When the routine at lines 5120 
through 5150 is entered, the first 
thing it does is initialize the J 
index to one. Line 5128 sets 
B$(1) to the first number that has 
been entered. If no number has 
been entered (B$(1) = " "), then 
J is not incremented and the 
program waits a bit and then 
checks again. 

In our example when a digit is 
entered, B$(l) = 2 if a correct 
answer is being entered. At this 
time the condition at line 5128 
is false, so the program falls 



Program Listing 1. Horse Race (Math Game)—Duffin. 



REM 
REM 
REM 
REK 



HORSE RACE 



(HATH GAME) 



AUTHOR 



KIKE DUFFIN 



7 REH • (INSPIRED BY THE PROGRAMS MITTEN BY KAY KEYES AND 
KATHLEEN SCHMAUS AT MORTON COLLEGE IN BERWYN, ILLINNOIS FOR 
DPR 101. ..AN INTRODUCTION TO DATA PROCESSING.) 

8 REM * 

9 REM '••••"•■••***•••••••••»•***...*........*..,,,...,,,,,*, 

10 REM •" A LIST OF VARIABLES APPEARS AT THE END OF THE PROGRAM 

Program corjtinues 
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INTRODUCING: 



SPECTRONICS. INC. 

(A Wholly Owned Subsidiary of Level IV Products) 

- OFFERING - 

The Full TRS-80* Line at Discount Prices, 

and Extended Warranty Coverage 





COLOR COMPUTER 


MOD 111 COMPU 


TER 


16K(R) $440 


16K{R) 


S859 


16K(E) S359 


48K2-40 drives (R) 


$2010 


16Kw/ext basic (R) S529 


48K2-40 drives (E) 


S1859 


16Kw/exttX]sic(E) $479 


48K2-80 drives (E) 


S2119 




RS232 interface add 


S89 




MOD H COMPUTER 

32K(R) S2950 

64K(R) $3375 

Expansion Dr#lCR) $999 
Expansion Dr#l-2-3(E) $695 



NOTE: THE MOD 111 CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMAHED FLOPPY DISK STOH:- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 

TAILORED TO YOUR EXACT NEEDS. 



PRINTERS 




DRIVES 




PERIPHERALS 




LinePrinterlVCR) 


$849 


COMPLETE 


RAW 


E.I.OK(R) 


S249 


Line Printer VI(R) 


S986 


40TRKMPI(E) 


$309 


$245 


EI,16K(R) 


$359 


Daisy Wheel II (R) 


$1679 


80TRK 






EJ.32K(R) 


$469 


C ITOH StarvAiters 


Coll 


MPI(E) 


S429 


$360 


El. 16K(E) 


$305 


Centronics All 


Call 


40/40TRK 






E.I,32K(E) 


S362 


Epson All 


Call 


MP! (E) 


$445 


$375 


16KRAM(200MS) 


$39 


Anadex All 


Call 


80/80TRK 
MPI(E) 


$579 


S515 







DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEP/^TMENT (313) 525^5201 



WARHAHTY KXICY 

Items including non-Radio 
Shack components (E) are 
covered by on extended six- 
montri parts/labor warranty in 
our fect^ service center 

Items constructed from Radio 
Shock approved components 
(R) are covered ty o 90dav 
parts/labor warranty at any 
Radio Shack store, plus an addt- 
tHDixil 90 doys in our tech ser- 
vice center 



TERMS OF SALE 



2% Discount allOA«d on cosh 
pre-paid orders Personal 
checks require two weeks fa 
bank cleorance. 

Visa. Master Chorge and COD. 
orders accepted. Add SI 50 for 
COD.s. 

Shipping/handling/insufonce 
add 15% or S2 50 minimum 

Prompt shipments from stock- 




SPECTRONICS, INC. 

32461 SCHOOLCRAFT ROAD 
UVONIA. MICHIGAN 4ai50 

MICHIGAN - (313) 525^200 
TOLL FREE - 800^21-3305 



•TfWDEMARK OF TANDY CORP. 
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through to the next line, which 
Increments the J Index (J =2). 
This process repeats until the 
entire answer is entered or time 
runs out. Assuming the correct 
answer Is entered within the 
allotted time, then: 

91(1) - *:2" 

B$(2J="." 
BS43)B"8"an(l 

B$(4) = "r 

Since these variables are In- 
terpreted by the computer as In- 
dividual strings rather than a 
single numeric answer, we must 
reforrr at these responses. Line 
5150 accomplishes this. The 
VAL Instruction changes a 
string character to a numeric 
digit. The plus signs in the in- 
struction concatenate the In- 
dividual digits to a single 
answer. 

The routine controls the 
amount of time a player has to 
enter his or her response through 
the variables F,H and ^ which 
are used In the three-layer 
For... Next loops In this rou- 
tine. If an extremely fast typist Is 
playing this game, you might 



wish to decrease the value of M 
at line 5140 and increase one or 
both the outer loops at lines 
5122 and 5124. 

The routine at lines 4216 and 
4217 clears the response from a 
previous question. 

The instructions to the game 
are In lines 7000 through 7300. 
Once you are familiar with the 
game. Instructions are no longer 
necessary. The only unusual 
thing about these routines is the 
way one exits from them. Lines 
7038 and 7220 allow the instruc- 
tions to stay on the screen until 
a player has finished reading 
them. The player then presses 
any key to see the next set of In- 
structions. This Is again accom- 
plished via the INKEY$ instruc- 
tion. 

Below the Instructions vari- 
ables and their uses are listed. If 
you Intend to modify the pro- 
gram the list will prove very 
useful. 

The track is drawn by lines 90 
through 4010. There Is no partic- 
ular reason that both PRINT® 
instructions and POKE instruc- 



wabasK 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted. 
Call Free: (800)235-4137 




Program continued 



11 CLS 

1! P(1)-32B 1 P(2)-P(l!+192 t P[3) -P(2) +192 

13 INPUT "DO YOU NEED INSTRUCTIONS" j AS 

14 IP flS-"y THEN GOSOB TBEB ELSE GOSCIB 723B 
20 PRINTg 63 t 25, "HORSE RACE- 
SB FOR Y-1536e-H95 TO 15368+835 STEP 64 

IBB POKE Y,191 

lie NEXT y 

99B REM BOTTOM LINE 

999 FOR T-832TOfl95 

IBBB PRINTeT,CHfiS(141); 

laai NEXT T 

1802 FOR E-12B+64 TO 191+64 

1003 PRINT«E,CHHSfl56) ; 

1004 NEXT E 

202fl FOR Y-1536B+121+194 TO 15360+637+194 STEP 64 

2030 POKE Y,191 

2040 NEXT Y 

4000 PRINTS 896, "START" 

4010 PRINTS895+56, "FINISH* 

4893 HEM ••• HORSES "• 

41Bfl FOR VI TO B 

4110 GOSUB 6000 

4120 NEXT V 

4200 FOR V-1 TO B 

42B4 X-RND[1B) .Y-RND(10) 

42B5 REM •*• CLEARS LINE ••■ 

4286 PRINTS 0," 

4218 PRINTS B, "DO YOU WISH TO ADD, SUBTRACT .MULTIPLY OR DIVIDE 
1 "NSIV) lINPUT AS 

4212 PRINT! 0," 

4214 REM CLEARS OLD ANSWER' 

4216 POR J-1 TO 6 

4217 BS(J)-"" 
411 B NEXT J 

4219 REM •*• GOES TO APPROPRIATE ROUTINEi 

4220 IF LEFTS(AS,1) - "8" THEN GOTO 4378 



ADD, SUB, MULT, DIV 



•«• THEN GOTO 4500 
"D" THEN GOTO 4408 
"A" THEN GOTO 5100 



4338 IF LEFTS(AS,1) 

434B IF LEFTS(AS,1) 

4350 IF LEPTS(AS,1) 

4360 GOTO 421B 

437B PRINTB B, X"--Y "-' 

4375 Z-X-Y 

438fl GOTO 5115 

4400 PRINTS 0, X"/"Y "-" 

4410 Q-X/Y 

442B J-IMT(0*ieB+.S}/lBB 

4438 GOTO 5115 

45BB PRINTS fl, X"*"Y "-" 

4510 Z-X»Y 

452B GOTO 5115 

510fl PRINTS 0, X"+"Y"-" 

5118 Z-X+Y 

5115 PRIUre 64, "WHAT IS THE ANSWER "NS!V) 

lii^m^^" "*'" ™^ NESTED FOR NEXT LOOPS THAT FOLLOW ALLOW THE U 

?S''A'^p|?I^?ED™L,S?ST'''^rx^E™^S.:;i' ™^ """ IK^RUCTION WITH 

'III ir..vroi zi ^"z.^.^'z ^i i^aS?^^.^.^'^'^''— 

3120 J^l 

TO IB 

M-1 TO IB 

BS(J)-INKEYS 

IF BS(J)-"" THEN GOTO 514B 

J-J + 1 

FOR H-1 TO IB 

NEXT H 
NEXT H 



5122 POR F-1 

POR 



THATS VERY GOOD •NS(V) 



5124 

5126 

5128 

513B 

51 4B 

5142 

5144 

5146 NEXT 

5148 REM ••• a IS THE NUMERIC EQUIVALENT OF THE CONCATENATION OF 

THE INKEYS VALUES .ID IS THE ANSWER SUPPLIED BY THE UEERr 
5150 D.VAL{BS(11+BS(2)+BS(3)+BS(4)+BS(5)) 
5200 IF Z«D THEN GOTO 53BB 

5218 PRINTS B,D* IS THE WRONG ANSWER "NS(V) 
5228 PRINTS 64, -THE CORRECT ANSWER IS "Z 
5222 FOR H-1 TO 55B!NEXT H 
5230 GOTO 59B0 
53BB PRINTS B,Z- IS THE CORRECT ANSWER 

5310 PRINT "VERY GOOD" 

5311 FOR H-1 TO SSBiNEXT H 

5312 G=l 

5328 IF LEFTS(AS,1|-"M- THEN G-2 

5330 IP LEFTS[AS,1)--D" THEN G-4 

"plLf^M VL"?:^l^.™^ APPROPRIATE HORSE 1 SPACE rOfi AN ADDITION 

« oSn^f^- ^^^^ ^°^ " ""^^ PROBLEM AND 4 SPACES FOR A DIVISIO 

N PROBLEM IF THE USERS ANSWER IE CORRECT "• 

54BB FOR P- 1 TO G 

5418 GOSUB 6800 

5 4 20 NEXT P 

5900 NEXT V 

5982 GOTO 4200 

5918 END 

5990 REM •** ERASES AND DRAWS THE HORSES '** 

6000 PRINTS P(V] ,CHRS(32) ; 

6018 PRINTS P(V)+1,CHRS[32) t 

6828 PRINTS P(V)+2,CHHS(32) , 

6830 PRINTS P(V)+68,CHRS(32); 

6040 PRINTS P(V1+6:,CHRS(32}; 

6B58 PRINTS P[V|+62,CHHS|32), 

6868 PRINTS P|V) +63 ,CHRS (32) | 

6878 PRINTS P( V) +64 ,CHR5 (32) j 

6072 P(V)-P(V)+: 

6080 PRINTS P(V) ,CHRS(170) ; 

6890 PRINTS P(V)tl,CHRS(140); 

6188 PRINTS P1V)+2,CHRS(132) I 

6118 PRINTS PlV)+6B,CHRS(16fl) ; 

6120 PRINTS P(V)+61,CHRSU34) , 

6130 PRINTS P(V)+62,CHHS(151) I 

6148 PRINTS P(V)+63,CHRS(131), 

6158 PRINTS P(V)+64,CfiBS1171]( 

6152 IF P[l)>376 OR P[2)>376+192 OR P( 3) >376+:92+192 THEN GOTO 6 



Program continues 
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Program continues 




I6t 








G154 


RETURN 






6160 


FOR N- 


1 TO 2eBlNeXT N 1 


61G4 


PSINTt 


0. 




6168 


PRINT t 


25 


NS(V) ■ MISS ■ 


6170 


INPUT 


"DO 


YOU WANT TO PLAY AGAIN" lAS 


GlBfl 


I? LBFTS!AS,1)-"Y" THEN GOTO 10 1 


6190 


END 






70Bfl 


CLSi PRINT 


CHRS{23) 


7010 


PRINT 


• 


HORSE RACE* 


7020 


PRINT 






7030 


PRINT 


■YOUR HORSE WILL ONLY MOVE IF YOU ANSWER A MATH PROBL ■ 1 


EM CORRECTLY." 




7035 


PRINT 






7037 


PRINT 


"PRESS ANY KEY TO CONTINUE." 1 


7038 


A5 = INKeYS 


! IF AS-"" THEN GOTO 7038 


7B39 


CLS: PRINT 


CHRS(23I 


7040 


PRINT 




YOUR HORSE WILL MOVE" 


7050 


PRINT 


"1 SPACE IF YOU ADD OR SUBTRACT" | 


7060 


PRINT 


■2 


SPACES IF YOU MULTIPLY.* 


787B 


PRINT 


"4 


SPACES IF YOU DIVIDE." 


7080 


PRINT 


" 


(DIVISION PROBLEMS MUST BE ROUNDED TO 2 SIGNIFl 


CANT 


DECIHAL PLACES.] " I 


709B 


PRINT 






71BB 


PRINT 


"PRESS ANY KEY TO CONTINUE." 1 


711B 


ftS-INKEYS 


IF AS-"" THEN GOTO 7110 


7128 


CLS 






713B 


PRINT 


CHRS(23) 


714B 


PRINT 


"1 TO 3 PEOPLE MAY PLAY." 


715B 


PRINT 






7218 


PRINT 


"PRESS ANY KEY TO CONTINUE.* 1 


7228 


AS-INKEYS 


IF AS""" THEN GOTO 7228 


7230 


CLS 






7248 


INPUT 


■HOh 


MANY PEOPLE ARE PLAYING" fB 


7250 


IF B<1 


OR 


B>3 THEN GOTO 7120 


7268 


FOR V" 


1 TC 


B 


7 278 


PRINT 




7288 


PRINT ■ 


WHAT IS THE NAME OF PLAYER "Y 


7282 


INPUT NStY) 1 


7290 


NEXT Y 






7292 


CLS 






7380 


RETURN 






7488 


GOTO 7 40 8 




7418 


REM •• 


• **ii 


• •^^{■•■(■(■(((^[(•(■•(•••(••••tiiiittttitaaiittta 


7428 


REM ' 






7438 


REM • 


VARIABLES USED IN THIS PROGRAM | 


7440 


HEM • 






7450 


REM ** 


• ••• 


*••»•••!>•••••• >>•**•••«««*****•••****••••»**** 


7468 


REM 


AS 


1) TELLS COMPUTER IF USER WISHES TO ADD, 


7478 


REM 




SUBTRACT MULTIPLY OH DIVIDE, 


7488 


REM 




2) LETS PROGRAM KNOW IF INSTRUCTIONS ARE 


7482 


REM 




NEEDED 


7498 


REM 






7500 


REM 


BS 


ARRAY USED TO HOLD INKEYS RESPONSES (INDEXED 


7510 


REM 




BY V) 


7520 


REM 






7530 


REM 


D 


USERS REPONSE TO MATH QUESTION. 


7532 


REM 






7540 


REM 


E 


COUNTER USED TO BUILD BORDER ON TRACK. 


7550 


REM; 






7560 


REM 


F 


ONE OF 3 VARIABLES USED TO LIMIT THE USERS 


7570 


REM 




RESPONSE TIME. (M AND H ARE ALSO USED.) 


7580 


REM 






7590 


REM 


H 


SAME AS P. 


7600 


REM 






7618 


REM 


G 


NUMBER OF SPACES THE HORSE WILL MOVE. 


7628 


REM 




(BASED UPON A CORRECT REPONSE TO A SPECIFIC 


7630 


REB 




TYPE OP MATH PROBLEM.) 


7640 


REM 




FOR AN ADDITION OR SUBTRACTION PROBLEM G=l 


7650 


REM 




FOR A MULTIPLICATION PROBLEM G-2 


7660 


REM 




FOR A DIVISION PROBLEM G=4 


7670 


REM 






76B0 


REB 


J 


INDEX USED WITH ANSWER ARRAY (BS). 


7690 


REM 




USED TO ERASE THE PREVIOUS ANSWER. 


7788 


REM 






7718 


REM 


M 


SAME AS F 


7720 


REM 






7730 


REM 


NS 


ARRAY USED TO STORE PLAYERS NAMES. 


7740 


REM 




INDEXED BY V. 


7750 


REM 






7760 


REM 


P 


ARRAY WHICH HAS THE CURRENT POSITION OF THE 


7778 


REM 




USERS HORSE. 


7780 


REM 






7 7 90 


REM 


T 


COUNTER USED TO PRINT THE BORDER. 


7800 
7810 


REM 
REM 


V 


INDEX USED WITH THE P ARRAY AND THE NS ARRAAY 


7820 


REM 






7830 


REM 


X 


RANDOM NUMBER USED IN THE COMPUTER 


7840 


REM 




SELECTED MATH PROBLEM.. 


7850 


REM 






7860 


REM 


V 


1) SAME AS X, 


7870 


REM 




2) USED TO PRINT THE VERTICAL BORDER AROUND 


7B80 


REM 




THE TRACK 



Program Listing 2. Horse Race—Keyes. 



1 REM ***.***•••*••■■••••■■••• 

3 REM • 

4 REM ' HORSE RACE BY 

5 REM ■ 

7 REM •■»***••••••••****•"••• 

10 CLS 

28 PRINTS 63 * 25, "HORSE RA 

25 IF X- 15368 TO 16381 

98 POKE 15368 + 127 + 4, 191 

188 POKE 15360 * 191 + 4, 191 

ilB POKE 15360 + 255 + 4, 191 

120 POKE 15360 + 319 + 4, 191 



Program continued 




SPECIAL DELIVERY 



WORDPROCESSING 
- POWER - 

for the TRS-80® 

".If you're presently looking for a mailing list proc- 
essor, this represents the current state of the art." 

80 MICROCOMPUTING - 80 REVIEWS - JULY 1980 

MAILFORM is data entry at its best, just fill in 
the form! FAST, EASY to use functions include: 

search, sort, extract, page forward and back. 

Transparent cursor', insert/delete characters, 

and MORE! 

MAIIiRITE prints 'personalized' form letters 
by inserting information from MAILFORM into 
Electric Pencil®, Scripsit®, or BASIC text files. 
Print letters, labels, even envelopes! Boldface, 
underscore, change margins, pause, print 
'unprintable' characters, and MORE! 

XTRAI includes: MAILFORM; MAILRITE - 
with capability of printing variable text from 
a 'key' file; MAILABEL - 1, 2, 3, or 4 across 
label printer; and MAILSORT - sorf a full 
40 track double density data diskette in 
only 48K! 

ALL MACHINE LANGUAGE 

meana unsurpased 
SPEED. RElilABIUTY & EASE OF USE 

For VISA, Master Card & COD orders only 

Call NOW - TOLLFREE 

(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 
Hawaii & Alaska (800) 824-7919 

For more information call (214) 233-3998 
(Requires min 32K sii^gla disk drive) 

FOR THE MODEL I & III 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY ..$199 
FOR THE MODEL II 

SPECIAL DELIVERY $199 

(RMIuirM Mod n DOS varaion 2.0) 



software concej>ts 

13534 Preston Rd. Suite 142 
Dallas, Texas 75240 



Dealer Inquiries invited >^299 
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tions were used to draw the 
graphics, except for variety. 
Line 12 sets the initial starting 
positions of the horses (the 
PRINT® instruction is used to 
draw them). The horses are 
drawn and erased by the subrou- 
tine between lines 6000 and 
6152. Once the neci^ ot a horse 
has crossed the finish line, that 
person wins (lines 6152, and 
6160 through 6168). 

The math routines are found 
in lines 4294 through 5115 and 
5200 through 5310. The numbers 
chosen for the computer by the 
program are one through 10, If 
you jyjsh to change these num- 
bers, change line 4204. The 
player is given the option to 
choose addition, subtraction, 
multiplication or division prob- 
lems In line 4210. Lines 4220 
through 4350 go to the correct 
routine based upon the player's 
selection. In our example, we 
would go to line 4400, which 
prints the problem on the 
screen. Line 4410 divides 8 by 3, 
and line 4420 rounds the answer 
to two decimal places. Regard- 



less of what type of problem is 
chosen, the computer's final 
answer is stored in the variable 
Z. 

Lines 5200 through 5310 in- 
form the player if his oi her 
answer was correct. If the 
answer was incorrect, the cor- 
rect answer appears on the 
screen. If the answer is correct, 
the player's horse will move 
one space for an addition or 
subtraction problem, two 
spaces for a multiplication prot>- 
iem, or four spaces for a division 
problem. Lines 5312, 5320 and 
5330 set the variable G accord- 
ingly. G is the varible to modify if 
you wish to weight the answers 
differently. (Some of the division 
problems are really difficult for 
the average student to figure 
out in the allotted time.) Lines 
5400 through 5420 spin through 
the routine that erases and re- 
draws the horses based upon 
the variable G, via a For. . . Next 
loop.B 

Michael Duffin teaches data 
processing at Morton College in 
Cicero, Illinois. 





000 

. . . spending 
more time altering 
programs than you 
do enjoying them! 
Get . . . 

SUPER UTILITY! 

This fantastic 24 K stand alone machine language program allows rapid and 

ea^V access to controlling data Super Utility, written by Kim Watt of Breeze 

Computing. Inc. comes with 30 pages of easy to understand. slep-by-Kep 

instructions assuring maximum use ol your valuable time. 
Seven mam menus combining 43 major prcMramming or disk repair options 

makes this single program i nc red ibly versatile. For fast and easy reference we've 

capsuled some of the best options below 

ZAP 

Diipiay SeclorlDiik FiW 

Dispiav MtmoTy 

Compare Disk Seclors 

Copy Di5fc Sectors 

Veiity Pist> Sttlais 

Z^ro Disk Sifctor^ 

String Search 

Scflor Search 

RJRGE 

KJi S«lft.i^dF.;e5 

Gel Di'^ Diiectory 

Zero UTijsed Directory Enrne* 

Zero Unused Granules 

Remove System Files 

Kill By Cale^ry 

Char™ Name^Dale. Pass- 
word. Aula Command 

Charge File Paramelers 

Residing from 4.000H lo 9FFFH. Super Utility has its own I/O dnver^ and does not use 
anyROMoiDOScalls Sogotothe heart of your protected disksand read and/ ormodify 
data usirii) sinnpk ) -key commands Now time is on youi side" 

To Order . , 'Send check oi nwney order (or only $49 95 plui $2 SO (hipping and handhnglo 

•UIZE COMPUTING, INC. PC Box 101), Serltley. Mi 4S072. {313} 288 9422 For 
tZ 50 Siretr Compoung. Inc will send every Owner, upon reglsltJilion of Super Utility, 
one iMcJi up copy, "loreisn orders, plert»e a<lcl SS.OO «ddltlOn«l postage Charge. 

•"^6 J 



DISK FORMAT 

Standard Fotmai 
Formal WitHojl Erase 
SpEcial Format 
Read Addrew ^4arkl 

DISK COPY 

Standard Copy With Format 
Siandard Copy Without 
Fomial 



DISK REPAm 

Repaii Gat Table 

Repair Bool 

Read FVoIect Direcloty Tracif 

Recover Killed Files 

Checi* Directory 

MEMORY 

Move Memory 
Exchange Memory 



^XS^dllS-'teSSal Com^re Memory 
puichaMii UK onkil Zero Memory 



TeM Memory 

TAPE COPY Input Byte Trom Pon 

Back up meat TRS-80 tapes. Output Byie To Port 

no rnaner how it a r«ord- Memory To Disk 

ed [lot on^nal putf ■— "- - _ ' . . 

use oniyi 



Disk To Memory 



^ictiigjin residents add 4"^ s^ies id 



Program conlmiMa 



383 * 4, 191 
447 ♦ *, 191 
Sll * 4, ISl 
575 ♦ 4, 191 
639 + 4, 191 
713 ♦ 4, 191 
767 ♦ 4, 191 
831 *4, 191 



131 POKE 15368 

148 POKE 153«l 

158 POKE 15348 

169 POKE 153G8 

178 POKE 15368 

188 PORB 15368 

190 POKE 15368 

288 PORE 1S36B 

999 FOR T>e33T0895 

1888 PRIIITrP,CHRS(141), 

1881 NEXT T 

1882 POR A-138 TO 191 

1883 PRIIIT«A,CHR${156]| 

1884 HBXT A 

2818 POKE 15361 * 127 «1BB,191 
282S POKE 15368 «- 63 * 188,191 
2848 POKE 1S368 * 191 * 188,191 
285* PORE 15368 * 355 * 188,191 
2868 PORE 15368 * 319 * 188,191 
2878 POKE 15368 * 383 * 188, 191 
2880 PORE 15368 * 447 * 188,191 
2890 PORE 15368 * 511 + IBB, 191 
3880 POKE 15360 *575 * IBB, 191 
3010 POKE 15360 + 639 * 188,191 
4000 PRINTS B96, "START" 
4018 PR1NT«89S+S6,*PIHISU* 
5000 POKE 15368 + 255 +15,170 
5818 PORE 15368 4- 2S5«16,148 
5828 POKE 15368 ♦ 255 +17,132 
5838 PRINT 0330, CHS$ tl6S)i 
5840 PRINT* 331,CHR8tl34)t 
5050 PRINT«332,CIIR8(151)t 
5060 PRtirT«333,CBKt(131)i 
5870 PRIHTf334,CHRS(171(( 
50B0 X*RflD(10) 
5098 I-itHD(10) 
5100 PRINT X't'Y'--; 

5119 E-X+Y 

511S PRINT8468,'MIIAT IS THE ANSWER"; 

5120 INPUT h 

5130 IP Z-A GOTO 5158 

5148 PRINTM68, "WRONG ANSWER. TRY AGAIN." t iGOTO 5128 

5158 PRI»T8468,"THAT IS THE CORRECT ANSWER- i A j 

5168 GOTO 6888 

6888 PRt>rr8370,CBR$(32]] 

6818 PRINT8271,CHRS(32)t 

6828 PRINTf272,CHRJ(33)i 

6830 PRIHT«330,CHr;(32)i 

6849 PRIHTf331,CHRS(32)i 

6858 PRIHT«332,CHRS(32)| 

686* PRINT«333,C[IRS(32)t 

6878 PRINTe334,CBR$(32)t 

6888 PRIHT*389,CBR$(178)| 

6898 PRINT*310,CHR$(140)t 

6188 PRIin'e311,CHR$(132)| 

6118 PRIIITC369,CBR5(168)t 

6138 PRINT*378,CHR$(134)| 

6138 PRIHT«371,CHRt(151}| 

6148 FRINTI372,CBRI(131)| 

(150 PRIHT8373,CBRt(171)| 

6160 PRI1IT8493, ■••••THE WIHMBR , 

9999 GOTO 9999 





1 REM • 





5 REM • HATH GAME BY KATHLEEN SCKHAUS 1 


7 REM • 




10 CLS 




28 X-RN0(18] 




30 Y-RMD(10} 




31 INPUT "DO YOU WISH TO ADD, 


StJBTRACT, MULTIPLY OR DIVIDB'iAS 


32 IF AS«"add" THEN GOTO 36 




33 IF AS«*SUBTRACT' THEN GOTO 


37 


34 IF A5--KULTIPLY- THEN GOTO 


3B 


35 IF A!«"DIVIDE' THEN GOTO 39 1 


36 PRINT X ■+■ Yit'X+Y: GOTO 


50 


37 PRINT X •-• Yil-X-Yi GOTO 


58 


38 PRINT X ■•• Y: I-X*YiGOTO 


51 


39 PRINT X "/■ Yil-X/Yi GOTO 


58 


58 INPUT 'WHAT IS THE ANSWER* 


lO 


70 IF 0*Z GOSUB 80 




71 IF Q02 GOTO 150 




72 GOTO 18 




80 PRINT* 215, ■t*l||8IIC 




90 PRINT* 278, •! 1" 




100 PRINT? 342, '11 II* 




110 PRINT* 486, *l t' 




120 PRINT* 470, ■! 1 1 •■ 




138 PRINT* 531, ■! 1 ft*** 


1 !■ 


148 PRINT* 596, ■!» 


II- 


142 FOR N-1 TO 500:REXT N 




145 RETURN 




150 PRINT* 215, *ttl«t|||*- 




169 PRINT* 278, "I |- 




170 PRINT* 342, ■II 1 *• 




180 PRINT* 486, ■! *■ 




198 PRINT* 479, ■# ||t|| |- 




208 PRINT* 531, "III | 


1 •• 


218 PRINT* 596, '»! 


If 


212 FOR N-l TO S881NEXT N 




228 GOTO 59 




Program Listing 3. Math Game—Schmaus. 
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*^^;^S?=**«?^i5i5i5^«i^»;»S^>Si*^ 



i'fi^V^-ii'S'S'i^i^ 



-■;i'S<i^i5»;i':»;i^i^'>';i*?5i^i<;<** 



COMPETENCY EXAM PREPARATION SERIES 

This comprehensive set of programs consists of simulated exam modules, a thorough diagnostic package, and a 
complete set of instructional programs. It is designed to teach concepts and operations, provide drill and practice and 
assess achievement levels through pre and post testing. The Competency Exam Preparation Series provides a structured, 
sequential, curriculum encompassing mathematical, reading and writing instruction. 

The C.E.P.S. program is designed for individual student use or use in a classroom setting. Programs provide optional 
printer capability, worksheet generation and performance monitoring. C.E.P.S. are available in two software formats. 

National Proficiency Series $1,299.00 

N.Y.S. Regents Competency Test, Preparation Series $1,299.00 

If desired separate Mathematics and Verbal packages are available for $799.00 ea. A Spanish language version of the 
Mathematics Instruction Package is available at no extra charge. 



for TRS-80 NORTHSTAK 
PET, APPLE OSl 



.»*;.- 



COLLEGE BOARD PREPARATION SERIES 81/82 

Each program confronts the user with a virtually limitless series of questions and answers. Each is based on past exams 
and presents material of the same level of difficulty and in the same form used in the S.A.T. Scoring is provided in 
accordance with the formula used by College Boards. 

S.A.T., P. S.A.T,, N.M.S.Q.T., set includes 25 programs covering Vocabulary, Word Relationships, Reading 
Comprehension, Sentence Completion, and Mathematics. Price $149.95 

EDUCATOR EDITION - includes all of the above programs plus detailed solutions and explanations. Price $229.95 
Independent Tests of S.A.T. series performance show a mean total increase of 70 points in students' scores. 
Update Pack to 81/iB2 specs. Available to previous owners. Price $69.95 

ODYSSEY IN TIME 

This spectacular adventure game adds a new dinnension of 
excitement and complexity to Time Traveler. Players must now 
compete with the powerful and treacherous adversary in their 
exacting quest for victory. 

To succeed they must vanquish this adversary in combat that 
rages across 24 time periods. 

Odyssey In Time includes all the challenges of Time Traveler 

plus 10 additional eras, including those of Alexander the Great, 

Emperor Asoka of India, Attila the Hun, Genghis Khan. Each 

game is unique, and may be interupled and saved for later play. 

available for APPLE & TR-80 PET, 32K - $39.95 

ISAAC NEWTON 

Perhaps the most fascinating and valuable ed- 
ucational game ever devised — ISAAC NEWTON 
challenges the players to assemble evidence and 
discern the underlying "Laws of Naiure" that have 
produced this evidence. ISAAC NEWTON is an 
inductive game that allows players to Intervene 
actively by proposing experiments to determine if 
new data conform to the "Laws of Nature" in 
question. t*layers may set the level of difficulty 
from simple to fiendishly complex. 

In a classroom setting the instructor may elect to 
choose "Laws of Nature" in accordance with the 
complete instruction manual provided. 
For insight inio some of the basic principles underlyjng 
ISAAC NEWTON see CODEL, ESCHER. BACH by DougUs 
R Hofsiadler, Chapter XIX and Marcin Gardnei's MATHE- 
MATICAL GAMES column in Scientific American, October. 
1977 and |une, 1959. t24.95. 






TIME TRAVELER 

Confronts players with complex decision situations and 
the demand for real time action. Using the Time Machine, 
players must (ace a challenging series of environments that 
include; The Athens of Pericles. Imperial Rome, 
Nebuchadnezzar's Babylon, Ikhnaton's Egypt. Jerusalem at 
the time of the crucifixion, The Crusades, Machiavelli's 
Italy, The French Revolution, The American Revolution, 
and The English Civil War. Deal with Hitler's Third Reich, 
Vikings, etc. At the start of each game players may choose a 
level of difficulty . . , the more difficult, the greater the time 
pressure. To succeed you must build alliances and struggle 
with the ruling powers. Each game is unique. 

$24.95 



Krell Softwire Corp. 



Send $2.00 for complete Catalogue. 

15.00 DiscounI Coupon included in Catalogue. 

PROGRAMS AVAILABLE FOR l"aff 

TRS-80. APPLE It & PET ^^^ •'■^'^ Send check or money order to 

(unless otherwise indicated) ^^ 21 Milbrook Drive, Stony Brook, NY 11790 

D disk or a cassette (please specify! *'^** 751-51 J9 

^ All p,og'ams rtQiJire I6K TftS-80 programs f4qwr» LEV€L II BASIC/APPLE programs ,f,qwr« APPLESOFT BASIC N y Siafs Residents Ada Safss Tax 
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UTILITY 



If your TRS-80 is so smart, then let it debug its own software. 



n 



On Error . . . Fix' ' 



N. C. Richardson 
655 Carribean Road 
Satellite Beach, FL 32937 



One night at a local com- 
puter meeting we joked 
about ttie prospect of ever get- 
ting a Basic program command 
named "ON ERROR FIX"— a 
statement ttiat would detect any 
and all errors and correct ttiem 
on the first run without any 
bother to the programmer. To a 
limited degree, such a routine is 
possible. 

Program Listing 1 will func- 
tion on a Level II machine or one 
under control of a disk operating 
system. You can merge this rou- 
tine with any program you are 
writing without conflict. Line 
zero will be before any line you.: 
would normally start with and 
must be executed before any er- 
rors are encountered. The rest of 
the routine lines start with 49990 
and all are Incremented by 10. 
This keeps the bulk of the rou- 
tine out of your way and makes 
It easier to copy. The letter E is 
the only variable to avoid in your 
program. 

The routine as shown will fix 
six types of errors, tell what type 
of error, what line it's in and if It 



made a deletion. If It can't fix the 
error, it will tell the type and line. 
In all cases, execution of your 
program will not stop until It en- 
counters the command End or 
Stop. If you have a printer, 
change all the Print statements 
to LPRINT, so the error notes 
will not interfere with the 
monitor display. 

Error Address 

Here's how the program func- 
tions. Line 49990 has a colon (;), 
the use of which will be de- 
scribed in line 50020, and the 
common End is there in case 
you don't end your program's 
execution. This will keep the 
routine from trying to find errors 
In itself. Line 50000 sets the 
variable ER equal to the error 
\ number and EL equal to the er- 
ror line number. 50010 causes a 
jump to 50160 on any error it 
cannot fix. 

Line 50020 is the heart and 
brains of the routine. The ad- 
dresses 16632 and 16631 con- 
tain the numerical data which 
points to an address when an er- 
ror occurs. This address will 
either contain a zero prior to two 
pointer addresses and two line 
addresses of the line which con- 
tains the error, or it will be one 



that contains the colon (ASCII 
58) immediately prior to the error 
in a multi-statement line. Thus 
the variable EA (error address) is 
set to the value to which 16632 
and 16631 point, plus either five 
or one — so the routine won't see 
those leading addresses or the 
first colon. Line 50030 sets the 
variable E equal to the contents 
of EA (error address) and El 
equal to the contents of the next 
address. The variables in this 
line will be incremented to find 
the true error address and fix it. 
Skipping over the actual error- 
correcting lines we come to line 
50100. This line says that if the 
contents of the error address 
contain a colon or if one of the 
error-correcting lines has been 
successful (EF has been set), 
then stop the search and go to 
line 50120. If line 50100 Is false, 
execution drops to line 50110 
where EA (error address) is in- 
cremented by one and control is 
sent back to line 50030. This ac- 
tion continues until line 50100 is 
true. If one of the error-correct- 
ing lines (50040-50090) are suc- 
cessful we want to stop the 
scan, get a printout of the result 
and continue with main program 
execution. If none of the lines 
are successful, if a syntax error 



other than the one we have a line 
for occurs, then we can dump 
out by line 50100 when it finds 
the next colon- That Is why we 
don't want the routine to see the 
first colon and, just in case there 
Isn't another colon in your pro- 
gram, one Is placed before the 
End statement In line 49990. 



Line by Line 

Line 50040 is the first error- 
correcting line. It says if the er- 
ror number is one (Next Without 
For) and If the error address con- 
tains the code for the statement 
Next (Internal code 178) then 
POKE a space (ASCII 32) in the 
error address and set EF (error 
flag variable) to equal two. Line 
50050 checks to see if the error 
number Is two (Syntax Error) and 
If so, whether the error address 
contains the Print statement 
and If the error address plus one 
contains an uppercase @. If alt 
are true it will POKE a lowercase 
@ In the error address plus one 
and It will set EF=1. This line 
helps explain why it Is neces- 
sary to look at the error address 
and EA plus one on each pass 
Line 50060 looks for a numbe 
three error (Return Without Er 
ror) and when It finds the ad 
dress which contains Return (In 
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ternal code 146) It will POKE a 
space in its place. It will also set 
EF = 2. Line 50070 acts on an er- 
ror four (Out of Data) and auto- 
matically executes a Restore 
command. 

At 50080 we are looking for a 
number 11 error (Division By 
Zero), tf such is the case and the 
error address contains the num- 
ber 208, which is the internal 
code for division (/) and the next 
address contains a zero it will 
change it to a one. It sets EF = 1 . 
The iast of the error-fixing lines, 
50090, looks for a number 19 er- 
ror (Resume Without Error). If 
this is true and the error address 
contains 159 (Internal code for 
Resume), it wilt POKE a space in 
its place; it sets EF = 2. 

Lines 50120 through 50340 
simply print out the type of error 
that occurred and then hold the 
carriage return and line feed so 
that line 50350 can print "In 
Line" and the line number of the 
error. The EF (error flag) variable 
is used at 50360. If EF = 0, con- 
trol goes to 50370. If EF = 1 , con- 
troi goes to 50380 and EF = 2 
sends control to 50390, which 
prints "Not Fixed" and executes 
"Resume Next." Execution of 
your program will continue with 
the next statement after the er- 
ror statement, and the error will 



remain. Line 50380 prints "Was 
Fixed," sets the EF variable flag 
back to zero and resumes ex- 
ecution by stating where an er- 
ror had been. Line 50390 acts ex- 
actly as 50380 except it prints 
"Was Deleted." 

Thus your program, no matter 
how many errors, will execute to 
the end. However, you wilt get a 
running report of every error as 
soon as it is encountered and 
some of your errors may be fixed 
permanently. Those uppercase 
@s are sometimes difficult to 
find, but this program will hunt 
them down. 

Some fixes seem question- 
able. Would changing the de- 
nominator from zero to one work 
for you? If not, would some 
other number do? Change the 
line to fit your purpose, or delete 
line 50080. Would restoring your 
data automatically be detrimen- 
tal? If so, take out line 50070. 
The other fix lines shouldn't give 
you any trouble. 

If you have a disk system save 
the program In ASCII with the 
command save "ERROR 
FIX/ASC",A. Then you will be 
able to merge the program with 
your current program after it Is 
written. Otherwise load Error Fix 
from tape before you start to 
enter your program.B 



CLSiDEfINT ElOH ERROR GOTO 50000 

49998 tEHD 

50000 ER-CRK/2+1 :BL-PEEK( 16621 )*2S6+PEEK( 16620) 

50010 IFER^l OB ER«2 OR ER-3 OR ER-4 OR ER-11 OR EB-19 THEN 5002 

9 ELSE 50160 

50020 EA-PEEK1166321«256+PEEK(16631)iIF PEEK(EA1-S THEM EA-EA+5 

ELSE EA-EA+1 

50030 E-PEBK(EA) iEl>PEEK(BA+l) 

50040 IFER-1 AND E-13S POKE EA,32lEP-2 

50050 IPBfi-2 THEN IFE-nS AND El-96 THEN POKE EA'l'l,64iEF'l 

50060 IFER-3 AND E'146 POKE EA,32:EP>2 

50070 IPER-4 THEN RB5T0RE:BP-l 

50080 IFER-11 AND E-20S AND E1-4B THEN POKE EA,+1,49:EF-1 

50090 IFER-19 AND E-159 POKE EA.32:EF-'2 

50100 IFE-5e OR EF>0 GOTO 50120 

50110 EA-EA+1:G0T0 50030 

50120 IFER-IPRINT'NEXT WITHOUT FOR" I 

50130 IFER-2PRIWT"SYNTAX ERROR*) 

50140 IFEfi-3PRlNT"HETURK WITHOUT GOSOB't 

50150 IFER-4PRIKT'0UT OF DATA'j 

50160 IFER-SPRINT'ILLEGAL FUNCTION CALL") 

50170 lFER-6PRINT"OVEfiFL0Wi 

501S0 IFER-7PRINT"0UT OF MBHORY" I 

50190 IFER-SPRINT-UNDEFINED LINB'l 

50200 IFER-9PHIMT'SUBSCRIPT OUT OP RANGE") 

50210 IFER'<10PRINT-REDIHEH5IOKED ARRAY'r 

50220 IFER-llPRINT'DIVISION BY ZERO") 

50230 IFER-12PHI»T"ILLEGAL DIRECT") 

50240 IFER-13PRINT"TYPE MISKATCH") 

50250 IFEB-14PHINT"01:T OF STRING SPACE" ( 

50260 IPEH-15PRINT"STRING TOO LONG") 

50270 IFER-16PRINT-STRING FORMULA TOO COMPLEX*) 

50280 IFER-17PR[NT"CAN'T CONTINUE") 

50290 IFER-1 a PR J NT -MO RESUME'; 

50300 IFER-19PRINT"RESUKE WITHOUT ERROR') 

50310 IFER=20PRINT"UNPRINTABLE ERROR") 

50320 IFER-21PHINT"HISSING OPERAND*) 

50330 IFER-22PBINT"BAD FILE DATA'l 

50340 I FER- 2 3 PRINT "DISK BASIC ONLY") 

50350 PRINT' IN LINE ")EL) 

50360 IF EP-1 THEN 50380 ELSE IF EF-2 THEN 50390 

50370 PRINT* HOT FIXED" i RESUME NEXT 

50380 PRINT* WAS FIXED' lEF-OiRESUME 

50390 PRINT" WAS DBLETBD"iBF-0:RESUHE 



Program Listing 



BOOKKEEPING 
MADE SIMPLE 



UWAU lEDGER fUNC'IOMS 




1 S*l Uo h RwiB* Accouurs 


tH PwMiM IMgir 


; Post ■« Tifnca ieiJfl*' 


<1 Ahie Pbmok CtiKhs 


] Close Munr.'Vpj. 


)/ *ccDunn PtyStM LlOt^ 


4 Daly iD^inat 




S Monfiii .l*jrrial 


ttCOUMS WCfiViBlf 


b Monthly 0*181 (Wpon 


M n«c«<va(»« itoqe- 


; ■fU fisUnif 


h\ Cui'Ort*r Bi'Kiq 


1 intui'ip V.iil'-wril 


b? Htw-aW Aq ig 


9 BaiJiiic? -I'vei 


U inmrii Ma 0' 


ID Chat Dl Accounn 


M fl»cCi.»01P IXx-i 


P«*R()I, ii.Ni-'OIgS 


SPtC'*i fuSC'iO'JS 


;a lUiiisi 'dr [,it]ir^ 


60 Inriak.Kiion 


?< Pwt'M ,tOqe- 


i\ lnd«i IJMdii' 


:■? Unit FVo" Clwtti 


K; UpttJie tP Poi: ';i fiiK 


?'. P>.m W 7 


S!) SflsiB' D'etione? 


?4 iniiuti..p Nc« Pn Penoa 


6J Oenem Di(fi:'[)<\ 




6S *i)iusi BuOijti 




IE Co^o«i«ii.ti Sudgti Heoor 


n CAIl OPUDhAl USK^ »\HU 


fi' C»i' (oo ol if^5 w 


■■ 


4 



The Menu 



THE 

BOOKKEEPER 
SYSTEM ™ 



■A Combined General Ledger, Accounts Payable, 
Accounts Receivable, and Payroll 

■Expandable to Include Inventory, Order Entry, 
Certified Payroll, or Mail List 

'Connplete Easy-To-Follov/ Manual and 
Instructions 

■ For Microcomputers using CP/M, OASIS or 
TRSDOS Operating System 

-64 K Minimum, Hard Disk Compatible 

- Demonstration Disk Available 







179 WMt Smith StrMt 
Gallcrtln,T»nn«M*« 370M 



CP/M, OASIS and DTSDOS or» TM'% ol 
Digital R*i»<wch, Ph(n» On» Sy«(»mi 
and Tandy Corp., rmtptctlvtlv. 



DEALER INQUIRIES 
WELCOME 



(615)452-1027 

We're Writing Programs for People 



•'$** Uat ot AOvrtlavt on pag» 354 
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APPLICATION 



Prolong yours with this immortal program. 




Joseph Wailand 

1343 Millersport Highway 

WilliamsviHe, NY 14221 



Numerous factors affect 
your life expectancy. 
Some of these can be con- 
trolled and some cannot. Sex, 
heredity and personality are im- 
portant, but so are your life- 
style and habits. A thorough 
discussion of this subject can 
be found In Dr. Kugler's Seven 



1?. £>uikt'rfr 



Keys to a Longer Life by Hans 
J. Kugler. 

This program will provide an 
estimate of your life span and 
perhaps help you Identify those 
areas which can be improved. 
Extensive use of the INKEY$ 
function makes the program 
pleasant and easy to use. It is 
popular at parties and can be 
used to demonstrate your com- 
puter. The program is written in 
Level It Basic and takes less 
than 7K bytes of memory. ■ 



Program Listing 



i.» REM LIFE EXPECTANCY CAW:ULATIOH 

15 REM INSPIRED BY AN ARTICLE 

2B REM FROM PEOPLE'S ALKANAC 2, P. 974, ARTICLE BT PETER PASSELL 

38 HEM PROGRAM HRITteN BY JOSEPH WAILAND 

48 CUSiPRlNT" LIFE EXPECTAKCY CALCULATION" 

bt PRIKT:PHIirr" THIS TEST PROVIDES AN APPROXIMATE CALCULATIO 

N OF YOUR" 

60 PRINT'LIFE EXPECTAKCY IF YOU ARE BETWEEN 20 AMD 6i YEARS OLD 

AND' 

79 PRINT-ABE REASONABLY HEALTHY." 

ee FOR I-l TO 60e«:HEXT t 

9a S-72 

lea CLS:PRIKT"GENDER*!PHIBT:PRINT 

110 PRIHT*ARE VOU A HAH OR A wOHan?' 

126 GS-INKEYSiIP GS="THEH12a 

13e IF (GSO'M") AND (GSO'Wl THEN 120 

140 IF GS-*M"THEN S-S-3 ELSE S-S+4 

150 GOTO180 

160 BS'INKEYSilF B5<**THENiee 

170 IF (BSO'Y*) AND IBSO'N") THEN lfi0 EUSE RETURN 

180 CLSlPRINT'LIFE-STYLE'iPfilNT 

190 PRI(rr"DO YOU LIVE IN AN URBAN REGION WITH A POPULATION GREAT 

ER* 

200 PRIHT"THAN 2,000,0»a7' iPRIHTiGOSUB 160 

210 IFBS = "i;-THEN S-S-2 ELSE COTO240 

220 PRIMT"HEBVOUS TENSION AND AIR POLLUTION ARE ASSOCIATED* 

2J0 PfiIWT"HITH CITY LIVING." :PRI(IT:GOTO270 

240 PRII»T"DO YOU LIVE IN A TOWN WITH A POPULATION UNDER 10,000" 

2^0 PRINT'OR ON A FARH7* : PBINT:GOSUB160 

268 IFBS-'Y'THEK S-S+2 

27B PRINT-DOES YOUR OCCUPATION INVOLVE MOSTLY DESK WORK?" iPRINT: 

GOSUBiee 

280 IFB$-*Y"THEN S-S-3 ELSE 300 

296 GOT033a 

300 PBINT'DOES YOUR WORK REQUIRE HEAVY PHYSICAL LABOR ON A" 

310 PHINT'REGULAR BASIS?" iPRIHT:GOS0B16B 

320 IF BS-"Y" THEN S-S+3 

330 PRINT'DO YOU DO INTENSE EXERCISES (RUNNING, SNIMHIHC, TENNIS 

, ETC.)" 

349 PRINT'4 OR MORE TIKES A WEEX FOB AT LEAST 30 MINUTES PER SES 
EION7':G0SUB 16B 

350 IF BS-*Y" THEN S-S+2 

360 CLS:PR1NT"LIFE-STYLE": PRINT! PRINT 

370 PRINT'DO YOU LIVE WITH ANOTHER PERSON?" : PHINTiGOSUB 160 

380 IF BS-*Y" THEN S-S+5 ELSE 430 

390 PRINT'WHEN PEOPLE ARE LIVING TOGETHER, THEY ARE LESS DEPRESS 

ED,' 

40f PRIOT'EAI BETTER, AND TAKE CARE OF ONE AHOTHER." 

4If FOR I-lTO4i00:NEXTI 

42* GOT046B 

430 PRINT'BOM MANY DECADES HAVE YOU LIVED ALONE SINCE AGE 257' 

441 ?S-INKE»S:tf Y$-"TBeN440 

4S« Y-VAL(YS1 iS-S-y 

460 CLStPBlNT'PERSOHALITY'jpRINT 

470 PRINT'DO YOU SLEEP MORE THAN 10 HOURS EACH NIGHT?" : PRINTiGOS 

480 IF BS-"Y' THEN S-S-4 ELSE 516 

496 PRIWT'EXCESSIVE SLEEP CAN BE A SIGN OF CIRCULATORY DISEASES' 

500 PRINT'OR DEPRESSION, 'iPRINT 

SIB PRINT'ARB YOU EASILY ANGERED, INTENSE, OR AGGRESSIVE?' tPRlNT 

iGOSUB 161 

526 IP BS-'Y' THEN S-S-3 ELSE 540 

530 GOTOSeS 

54B PRIHT'ARE YOO RELAXED OR EASY GOING?' tPRIKTiGOSUBlSB 

556 IP BS-'Y" THEN S-S+3 

561 PRIOT'ARB YOO A HAPPY PERSON?' iPRIKT:GOStlB16B 

576 IF BS-'Y' THEN S-Stl ELSE 596 

560 GOT0616 

590 PRINT'ARB VOU A SAD PERSON?' :PRINT;GOSnB166 

Program corttmues 
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Program continued 



<■• IF Bl-*y' THBH S-S-2 

HI CLBiPUVr'PBaSOMALITy'iPHIIRiPUin 

(31 PMVTiPUVT'UVB you OOTTBI K 8PBBDING TICSBT WITRIH TSS PU 

T nUfimWTiGOKTUtS 

<3« IPBf-'mBHW 

•4a pu«T*nAmc iccrawm urn m huor cmiu op DUtn mknn' 
•SI PRin'rooBC adolts,' 

(•• POR I-lT04llfliKBXT I 

171 8-S-l 

• ■■ CUtPXIirT'ACillEVEIUKn'tPIUWTiPUMT 

IH PRIR'DO rem BMH HORB TUN *5l,aH A TBUT'iPUIRiCOnmlH 

Tfl IF *>-'H* THEN 731 

711 S-S~2 

T2t PUBT'IIta LIVING AM) TCMION ARE aTTCN ASSOCIATED MITI MEAL 

Ti.'inun 

73* PUR'DO TOD KATE A COLLEGE DKXEB?' i ntlNTtCOSDBlil 

74f IP M-'H- THEN 7»i 

73* PRINT* IDOCATIOli IS SDPFOSED TO LEAD TO HODERATIOH.'iPRIHT 

7ta S-S-l-l 

77t PRINT'DO rOU HAVE A GRAOOATB OR PBOFESSIOKAL DEGREE?* iPHINTt 

flOSOBlCI 

7U IF ll>'>* TEEN S-S*a 

7M CLSiPRIHI'ACHIBVMINTB'iPRINTiPRIlR 

Mf PRINT'ARB TOO <5 TBARS OLD, M OLDER, AID STILL HDRKIIICT*iPR 

INIlGOSDBICI 

81> TPBt>*y' THEN S-S'»3 BL8Ba4l 

121 PRUR'RBTIREMBtlT SOMBTINBS LBADS TO DBATB.' 

S3I FORI-lT04lltiNBXTI 

B4> CLSiPRIHT'HBReDITS'iPRIHTiPRIHT 

SSI PRINT'DID AHY OF YOUR GRAKDPARBHTS LIVE TO AOB 81 OR II0RB?*| 

PRINT tGORDBltR 

■•■ IF B*>'N' THEN AM 

■7B PRINT'DID ALL 4 OP TOOX GRANDPARENTS LIVE TO ACB SB OR MORE? 

'iPRIIRiOOSOBlCB 

BSI IP BI-*T* THEN S'Siri ELSE S-S+l 

■H PRINT'DID eiTHBR OF YOUR PARENTS DIB Ot A BEART ATTACI OR ST 

RDIB BEFORE TBB AGE OP SB?* iPXIHTiGOSOBlCI 

)>B IP B*-'Y* THBH S-S~4 

fia PRINT'DID ANY PARENT, BROTHER, OR SISTER 3K>BR AGE SB HAVE A 

BEART* 
•IB PRINT*CaBDITIOM C» CANCER - OR BAS BAD DIABETES SISCB CHILDN 
OODF* iGOBimlCB 
93B IP Bf-'Y* 1BEN 6-5-3 
941 CLBiPRINT-HEALTS*: PRINT 

>Sa PRINT'DO TOO SHORE CICARETTBS7* iPRINTiGOSOBlCB 
MB IP BC-*N* THEN 1MB 

17a PRINT'DO YOO SHORE HORE THAN 3 PACXS A DAT?* lOOSDBlM 
)aa IF BI-'Y* THEN IBIB 

>9B PRINT*DO rOU SHORE 1 TO 2 PACKS A DAT?*:G0SDB1CB 
laai IP B«-*Y* THEN 1B3B 
laiB E-S-3taOT01B4B 

laza 8-s-B>GOToiB4a 

lasa E-S-*iG0I01B4B 

ia4fl PRINT:PtIRT*D0 YOU DRIHR TBB BQUIVALnT «H> HORE) OP A HAIf 

PINT OF LIQUOR* 
laSi PRINT*FBR DAY7*tFRINTiG0SUBl«B 
ia«a IF BI-'Y- THEN S-S-1 

II7I PRIIIT*ARE YOU 0VERHEISBT7*iPRINTiGOSUB16) 
IIBI IP Bt-*N' THEN IISB 

1191 PRItrr'ARB YOU OVERHEIGHT BY it LBS. OR MORE?' iGOSUBlfil 
IIBI IF BS-*Y" THEH 1151 

Ilia PRIHT'ARE YOU OVERHEIGHT BY 31 TO 51 LBS.7' iGOSUBlSI 
liaa IF B$-*Y* THEN lit! 

1131 PRINT'ARB YOU OVERWEIGHT BY !• TO 31 L8S.7' iCOSUBlCI 
1141 IP Bt-'Y' THEN 1171 BL8B IIBB 
1151 &-S-8tG0T011BI 
IICI 8*S-4iGOT01iei 
117B S-6-2iCOT0118l 
IIBB CLSiPRINT'AGE'iPRINTtPRINr 

ii»a A-3fl 

12IB PRINT'ARB TOO LESS THAN 31 YEARS OLD?* iGOSDBlSI 

12la IP Bt-'T*GOT0132l 

1321 PRlIfTiPRIHT'ARE TOU BETWEEN 3B AM) 48 TEARS OLD?' iGOSUBKI 

1231 IF BS-'H'GOT0135a 

1241 A>39iS-S+2:GOT0132l 

12SB PRIHTtPRIMT'ARE YOU BETWEEN 41 AND 51 YEARS OLD?* |C0SUB16I 

12IB IF BS-'N' SOTO 1281 

1271 A-49iS-S+3iGQI0132a 

13SB PRINT:PRINT*ARB YOU BETWEEN SB AND 78 YEARS OLD?* iGOSUBlCB 

1291 IF B$-*H* TSBN 1318 

1388 A-7liS-5'»4:GOT01338 

1318 A-TIiPHIUTtPBIHT'I ASSUME YOU ARE OVER 71 TSARS OLD.' 

1338 IP GS-'H' THEN1368 

1331 PRINTiPRIHT'DO IOU VISIT A CYKECOLOaiST AT LEAST CWCB A TEA 

R?*iG0SUB168 

134B IP Bt>*r' THEN S-S-f2 

1358 G01013H 

13(1 IFA<-4aTHEH1398 

1371 PRIRiPBINT'DO YOU BAVE ANNDAL MEDICAL CHECEDP87* iCOSUBlfil 

1318 IF BI-"T' THEN S-S*2 

13*8 IP [S>-el) AND (S'ltS) THEN 1478 

1488 IP (8>*«5) AND (S<78) THEN 1488 

1411 IP (S>-7I) AND (S<7S) THEH 14)8 

1421 IP (S>-75) AND [S<BI) THEH 1511 

1438 IP (S>>BI) Aim (S<S5) THEN 1518 

1448 IP |S>-a5) AMD (S<9I1 THEN 1531 

1458 IP IS>-9I1 AND (S<95) THEN 1531 

14(8 IP S>-95 THEN 1548 

1478 B-HiBl-35iG-lSiCl-19iCOT01S58 

1488 B-3(iBl-47:G-2i:Gl-29iaOT01SS8 

149a B-4SiBl-6a:G-3l:Gl-38iGOK>15Sa 

1S8B B-(liBl-74:G-39iGl-52iOOT01SSa 

1518 B-75iBl-e«iG-53iGl-(9iG0T0159a 

1S28 B-a7tBl-95iG-TaiGl-a7iGOT01SSa 

1538 B>96iBl-»8iG-88i61-9(tGOT01558 

1348 B>99iBl-99.9iG-97iGl>99.lt<iOT01558 

1598 CLSiPRINTiPRINT*TOOR CALCOLATB) LIFE RZPSCTAMCT IS*fS|*TRAR 

8." 

ISCa IP 8<A GOStral(38 

1578 IP8«BTnHl(8a . ._. . 

ISaa PRINT t PRINT* AT TBIS ASK, TOD HILL BAVB ODTLIVD ■|B|*TO*tBl 

l*t OP THB RN* 

15»a PRINT*A» •|Gl*TO"|Clr"» OP TBB HDNKN.* 

leaa pRiirr-.PRiwijpRiiiTiPBiw*!)© itou wakt to mjh the progfah agai 

N (Y/Nl?- 

1(82 GOSUB 168 

1(14 IF BSO'Y' TSKH END 



Free. Fast. And 
a phone call 




INMAC INTRODUCES 

THE SOLUTION TO YOUR MICRO SUPPLY 

AND ACCESSORY NEEDS. 

• One-Stc^ Shopping. This new catalog offers over 1,000 
products specifically for Micro Computers. Compatible with 
Apple, Atari, Northstar. TRS-80s and many others. 

• Convenient Ordering. By mail or phone, ordering supplies 
and accessories from this catalog will be quick and easy 

• Fast Delivery. VW?1I ship your order wtthin 24 hours from our 
distribution centers in New Jersey California. Illinois arxJ Texas 
Overnight delivery available. 

• Top Quality Products. Virtually all our products are 
guaranteed for at least one year. Risk-free trial of any product 
for 45 days. ^ 

Send for your FREE A MMWMW^ffBf^ 



Inmac Catalog or call 
(408) 727-1970. 



Dept Micro, 2465 Augustine Drive. 
Santa Clara. CA 95051 ^sse 




TRS'80 
CASE 



ATTACHE STYLE CASES FOB CARRYING AND PROTECTING A COM- 
PLETE COMPUTER SET-UP CONSTRUCTED OF THE HIGHEST QUALITY 
LUGGAGE MATERIAL WITH SADDLE STITCHING WILL ACCOMMODATE 
EQUIPMENT IN A FULLY OPERATIONAL CONFIGURATION ALONG WITH 
MANUALS. WORKING PAPERS AND DISKS NEVER A NEED TO REMOVE 
EQUIPMENT FROM CASE. SIMPLY REMOVE LID, CONNECT POWER AND 
OPERATE, LID CAN BE REPLACED AND LOCKED FOR SECURITY AND 
PROTECTtON WITHOUT DISCONNECTING CABLES FULLY TESTED 

• AP101S Apple and Single Disk Drive $109 

• AP102D Apple and Double Disk Drive 119 

AP103M Apple, 9 inch Monitor and Double Drive 129 

% flS201 TRS-80, Expansion Unit and Double Drive 109 

% RS202 TRS-80 Monitor and Accessories M 

• P401 Paper TIgef Prinler 99 

• P402 Line Prinler ll-Cenlronics 730 —M 

• CC90 Matching Attache Case 75 



""» canPUTER CASE canpflPiv 

5650 INDIAN* MOUND CT COLUW81J5 OHfO *3?'.1 
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EPSON 

MX-80 



$4S9. 



00 



THE 

REAL THING 

Yes this IS the EPSON MX-80 printer 
you h^ve read so much about... the 
one everyone's buying. Better get 
yours while they are available at this 
terrific pricei One of the most advanc- 
ed 80 column dot matrix printers 
available featuring the world's first 
disposable print head. There are tots of 
printers to choose from but. once you 
have compared, you will find it hard 
to pass up the EPSON MX-80. 

FEATURE S 

• Bidirectional Printing 

• Logical seeking of shortest lines 

• 80 Characters per second 

• 64 Block Graphic Charaaers 

• Forms Handling 

• Disposable print head 

• Adjustable Tractor-type pin feed 

• Paper width 4 to 10 inches 

• Inked ribbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 character ASCII with 
decenders 

• Pnnting Modes: Standard, Double, 
Emphasized and Double 
Emphasized 

• Correspondence Quality 

Ado S6 00 "dipping ic oni uSi Does ryu innijcjp cab*e See op- 
posite p*)e fo ortjeiing intoinidrion 

EXTRAS FOR 
EPSON 

TRS80 Cable (I & III) $29,95 

APPLE Cable & Interface .... S96.00 

RS232 Interface $69.95 

Ribbon Cartridge, Black SI 3.95 

Interface & Cable [from Mod. ! 

Keyboard) S99.95 

ORDER TODAYII 



Save Even More 
EPSON MX-70 

S 389.00 

NO FRILLS PRINTING 
AT NO FRILLS PRICE 
FEATURES 

■* Unidirectional printing 

• 80 Characters per second 

• Bit-pfot graphics 

• Forms handling 

• Disposable print head 

• Adjustable tractor-type pin feed 

• Paper width 4 to 10 inches 

• Inked nbbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 charaaer ASCII 

• Printing modes: normal & normal 
expanded 

Add S 6 00 snipping |Con( US] Does noc include caOlF See ap- 
posite page fo: ordering information 



ALL NEW! 
MX-SOF/T 

All the features of the MX-80 
plus friction feed. 



$599. 

Lir^lTED QUANITIES 



00 



CABLES, SOFTWARE 
& OTHER GOODIES 

* DRIVE CABLES 

2-Dnve S24,95 

3^Dnve $29.95 

4-Dnve S34.95 

Extender Cables SI 6,95 



• OPERATING SYSTEMS 

DOSPLUS 3,3, 3. 3D [spec. Mod I or III} 

S89,95 

LDOS S135.00 

NEWDOS/80 SI 35,00 

TRSDOS 2.3 DISK & MANUALS 1 7,95 
DOUBLE ZAP II S44 00 

Add S I 2i per pound sfiipping (S 1 00 minimLimJ 

* DISKfel I'ESfS l'4 in sofia^ored hoy o( lOi 

Cert, one side, single density. . . . S29.95 
Cert, two sides, double density. . S39,95 

* OTHER SOFTWARE & BOOKS 

SCRIPSIT [disk].. S89.95 

SPECIAL DEUVERY S 1 1 9.95 

XTRA SPECIAL DELIVERY. . S 1 89 95 

SUPER UTILITY S39 9B 

MICROSOR BASIC DECODED 8. 

OTHER MYSTERIES 

iZ5,95 

TRS80 DISK & OTHER MYSTERIES. . S 1 9.95 
MAKE 80 SI 4.95 

SPECIAL WORD 

PROCESSING 

PACKAGE 

Includes the followinq: 

* EPSON MX-80 PRINTER 

* CABLE 

* SCRIPTSIT )disk| 

* SPECIAL DELIVERY (disk) 

* freight and insurance. 
SPECIAL 

$725.00 

[Reg S9 17.00) 

Order today from 

AERGCGIilP 

Redbird Airport, BIdg. fi 

P.O. Box 24829 

Dallas, Texas 75224 ^»' 

See Opposite Page 



o 
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TRS 80* 



DISK DRIVES 

40 & 80 TRACK 

as low as S 299i95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cur costs and we're pass- 
ing the savings along. We offer the best 
disk drive value m the market place. 
Reliability, features and cost tough to 
beat We deliver . and we stand behind 
our prcxlucts, AEROCOMP is the only 
manufacturer to offer FREE TRIALi Buy 
Aerocomp drives today. You deserve the 
best. 

BEST FEATURES 

* Fast 5 ms track-track access time. 

* Operates single or double density. 

* "FLIPPY ■ feature for lower media cost 
(40-1 & 80- 1 1 

* Head load solenoid 

* Disk ejector 

* Easy entry door 

* NEW EXTERNAL DRIVE CABLE 

CONNECTION, ino kwiqcr 'vfO to Fwnoue the 
louer lo nooit up <*blf| 



EPSON 

MX80 

PRINTERS 

$489.00 

TRS80 Cable (I & lll| S29.95 

APPLE Cable & Interface. . S96.0O 

RS232 Interface S69.95 

Ribbon Cartridge, Black. . , SI 3.95 
Print Head (STD) 526,95 

Add S6 00 shipping (Com. U.S.) does not 

include cable 

MXaOF/T 

All the features of MX80 plus Friction 
Feed. Shipping & cables as above 

S 599.00 

A(*l S 1 CO '"' snipp-nij >i run,] unij 



ORDER TODAYI 

* 40-Track Drive S 299,95 

* 80-Track Drive S429.95 

* 40-Track ■FLIPPY" Drive. , . S329.95 

* 80-Track "FLIPPY" Drive. . . S449.95 

* 40-Track Dual-Head Drive. . S449.95 

* 80-Track DuaFHead Drive. . S579.95 

,<nu ewcrvH drive (*«■ tonnec ion iiiVAC 5060 H/ ^ JO VAC 
saw H/ jvaiUbt on spttijr culler 

* 40-Track Bare Drive S269.95 

* SO-Track Bare Drive S 399 95 

* 40-Track ■■FLIPPY" Bare DriveS299.95 

* 80-Track ■■FLIPPY" BareDriveS419 95 

• SPECIAL PACKAGES* 

STARTER A S339.95 

4aTrack Drive, 2-drive cable. TRSDOS 
2.3 Disk & Manual. Freight & Ins 

SRARTER B S369.95 

40-Track ■'FLIPPY'^ Drive, cable, TRSDOS 
2 3 Disk & Manual, Freight & Ins 

COMBO C S465 00 

40-Track "FLIPPY" Drive, 2-drive cable. 
NEWDOS/80 or LDOS, Freight & Ins. 

COMBO D. . . ... - S58S.00 

80-Track '■FLIPPY^' Dnve, 2-drive cable, 
NEWDOS/80 or LDOS, Freight & Ins, 

COMBO E S709.00 

Two 40-Track ■FLIPPY" Drives, 4-Drive 
cable, TRSDOS 2 3 Disk & Mannual. 
Freight & Ins 

COMBO F S999.00 

Two 80-Track "FLIPPY" Drives, 4-drive 
cable. NEWDOyBO or LDOS, Freight & 
Ins. 

COMBO G S909.00 

Two 40-Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual. Freight & 
Ins. 

COMBO H S 1299 00 

Two SOTrack Dual-Head Drives, cable. 
NEWDOS/80 orLDOS. Freight & INS. 
DOSPLUS available with any special 
package. 

Alios S 00 pel drive (ur snipping 8 ha/idPing |Ctx>[ USj 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use It with your system for up to 14 
days If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund, [SiJFttii prftwges w.i! DC p^aMeo] We have 
complete confidence in our prcxJucts and 
we know you will be satisfiedl ORDER 
TODAYII 

■ Ii«aO ", TRADEMARK c* TANDi COOf 



WARRANTY 

We offer you a 1 20 day unconditional 
warrenty on parrs and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary. our service depart- 
ment IS fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them Each 
drive IS 100% bench tested prior to ship- 
ment We even enclose a copy of the 
test checklist, signed by the test techni- 
cian with every dnve AEROCOMP 
MEANS RELIABILITYII 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc (above), 
enclose check, money order. VISA oi 
MASTERCHARGE card number and ex- 
piration date, or reguest COD ship- 
ment. Texas residents add 5% s^ies tax 
Add S 5 .00 per drive for shipping & handl- 
ing (Cont US). Please allow 2 weeks for 
personal checks to clear our bank No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact CO D, amount 
before your shipment arrives Be sure to 
include your name and shipping address 
You will be notified of the scheduled 
shipping date Your bank credit card will 
NOT be charged until the day we ship.'i 

DRIVE CABLES 

2-DRIVE S24 95 ■ 

4-DRIVE S34 95 



WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 834-78aa, OPERATOR 24 

PO* VISA/MASTIKHAMC/C.O.O. OROfllS 

Colitornio diol (800) 852 7777, Operator 2<. Alo»ko 
ond Hawaii dial {800) 82^ 7919, Operator 34 
TOLL rillE LINES WILL ACCEPT OtDEM ONLTl 

Fo' Applicofion* ond TBthnicol informotiori, call 
(214) 337 4346 or drop us a cord 



Dealers inqiries invited 

AERGCOIilP 



Redbird Airport, Bidg. 8 
P.O. Box 24829 
Dallas, TX 75224 



^387 



AROCOMP I i 3 
AROCOMP;?4 



^S99 LlMl Of AdrwiVtmn on pag* 354 
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GRAPHICS 



Get quality graphs of math functions. 



Curve Plotter 



Steven M. Zimmerman, Ph.D. 
Craig Stanley 
College of Business 
University of South Alabama 
Mobile. AL 36688 



^our TRS-80 has the ability to 
draw quality graphics of 



any mathematical function as 
good or possibly better than any 
draftsmen's. Our program will 
output to CRTs and hard copy 
printers, and Includes scales for 
both. 

The graphic capacity of our 
TRS-80 interested us not only as 
visual attention-getter for 
games, but also as a useful tool 



in defining and describing equa- 
tions and other mathematical 
functions. This program is the 
latest result in a long line of 
routines. Our earlier versions 
graphed somewhat faster than 
this version, but they lacked a 
scaling feature which allows 
for function variations without 
changing it. This graphing rou- 



tine can be Invaluable for repre- 
senting business and statistical 
data. 

It also demonstrates the con- 
cept of mathematical functions. 
Any single variable function 
may be plotted in this program; 
however, care must be taken to 
ensure the function exists with- 
in the domain and range selec- 
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ted forthe plot. The sine, cosine, 
and other trigonometric func- 
tions make delightful graphics 
when plotted by this program. 

Program Output and Input 

The results of our curve-plot- 
ting program may be outputted 
to either the CRT or printer. The 
curve is drawn on the CRT and 
then is copied on to the printer 
by a screen-copying routine. 
Figs. 1 and 2 are sample runs of 
the program. Fig. 1 represents a 
tangent function, while Fig. 2 Is 
a second-degree polynomial. 

The main Input to be aware of 
is the equation of the line to be 
plotted. The user must enter the 
equation in the form; 1000 
Y= F(x). For example, to plot the 
line Y = 2X -f 10, you must type: 
1000Y = 2'X-«- 10, and then re- 
start the program by typing RUN 
35. The rapge of values for X and 
Y for the 'function must also be 
inputted. It is possible to specify 
where the function does not ex- 
ist, so care must be taken. If you 



try to graph your function where 
it cannot be plotted, three 
asterisks will appear in the 
screen's top right corner. When 
the plotting routine is complete, 
"Press Enter to continue" will 
appear at the top. In addition to 
specifying the domain and 
range, the user must also note 
the increment to plotting. You 
should experiment with this vari- 
able to get an idea of what value 
is needed for any given situa- 
tion. If your incremefit value is 
too small, too few points will be 
plotted and you will get nothing 
wore than a few dots. On the 
other hand, If the range is too 
large, you will get a vgry dense 
line. It may take awhile to draw a 
curve for very large increment 
values. 

The listed program for curve 
plotting is simple to use and is 
of enormous value in demon- 
strating the TRS-80's abilities. It 
can also be valuable as an add- 
on to yield a display of the re- 
sults of other computer opera- 
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tions; we have used curve plot- 
ting for a regression analysis 
program. The program also 
proved enjoyable as a computer 



demonstration to an algebra 
class, and we had no trouble 
showing the shape of different 
distributions. ■ 



Program Listing 



';JJ 



Ifl CLEAH500!CLS:REM "CURVE" 

2B CLStONEHROR GOTO40fl0 : PRINT'CURVE PLOTTER" :PRINT'DEVELOPED BY" 

iPRINT'STEVEN K. ZIMMERMAN, PH.D. AND CRAIG STANLEY 1980 "jl»0 

30 IKPUT'DOES LINE 1B00 CONTAIN YOUR FUNCTION [Y/N) " ; Y?: IFYS="N" 

EHD 

35 INPUT"PRINTEB(Y/N)"!P5:INPUT"INCREHENT [1B0H 

40 GOT02B35 

1000 Y=l/X 

1010 GOT02125 

2035 INPUT'LOWER AND UPPER LIMITS OP X";SX,TX 

2036 INPUT-LOWER AND UPPER LIMITS OF FfXj'jSY.TY 
2040 CLS:F0Rl-4TO43!SET(18,I)iNEXT 

2B50 F0R1»19T0125!SET(I,43) iNEXT 

2870 l-7iF0RJ-64T0832STEP12B:I-I-l:PBINT@J, (SY+I* (TY-SY) /6) i j NEX 

T 

2080 I— liFOBJ-97eT01B15STEP9iI-I+liPBINTSJ,(SX+I*(TX-SX)/5) jiNE 

XT 

209B G0TO2115 

21BB PJIINTS22, "PRESS ENTER TO CONTINUE"! 

211B QS-lKKEYSiIFOS-""THEN2100ELSE2B 

2115 S-(TX-SX)/JJ 

2123 FORX-SXTOTXSTEPS:GOTO1B00 

2125 E=23+((X-SX)/[TX-SX) ] *93 : F=40- 1 (^-SY) / (TY-EY) ) *37 : IFE>5ANDE 

<126THENlFF>BANDF<45 SET[E,F) ELSE PRINT@61 ,"•*•";: FORL=1TO10 ! R± 

RND(100) !NEXTL:PHINTe61," ': 

2130 NEXT 

22B0 IFPS<>"Y"THEN2100 

3000 LPRINT" " 

3010 ES="*»I.#I":F0RI=2T043:J-42-I:IF1<43LPRINTUSINGES! (SY+J*(TY 

-3Y)/39] ;: 

3020 FORX=aTO110STEP1.6 

3B30 IFPOINT(X,I)THENLPRINT"'";ELSELPHINT" "> 

3040 NEXTXiLPRINT" "sNEXTI 

3B5B FORI=BT06:G[I+l)=SX+I*(TX-SX)/5!NEXT 

3060 E$=- tft.ttt.ttt ttt.ttl.ttt 

ttt t)t,ttt.ftt #»I,III":LPRINTUSINGES;G( 

) ,G(6) !GOTO2100 

4000 RESUME 2125 



Itt, **«.*«* *tt,tlt. 

(1) ,G(2),G{3) ,G(4),G[5 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80° 



The name Methuselah has always been associated with long life. The Methuselah 
computer rlork hoard with its 24 hour clock and its perpetual calendar is indeed worthy 
of ihp title. Methuselah putsstateof the art technology into action with the on board four 
year lithium battery back-up to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features. Software patches keep the D(>S and BASIC 
time and clock commands ticking Only two screws mount Methuselah in' ide the expan- 
sion interface without soldering, clipping, rutting, or jumpering. There i5 even a spare 
1 port and four different interrupts available for people who love to tinker. 

SPECS: MM/DD/YY, HH:MM:SS and day of the week. Four year lithium battery 

backup. Crystal controlled timing (adjustable ^12.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



Send check or money order to. 



NDM DESIGNS ^135 

6330 W. North ftve, 

Wauwatoia. Wl S32I3 

(414> 259-0120 



M-Sl... . $97.00 

(add $4 50 P and U) 
S-Sl .. ... $17,50 

(add $2 SOP and H) 
(If you wish to use Methuselah 
and the aS-232 board (26-114,'i( 
together, order this option which 
includes a new cover and con- 
nector,) 
WI residents add 4% sales tax. 



METHUSELAH is a 
iTBde mark g( HOU De 
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^TRUCTION 



Manipulate the print density on your line printer. 



Width Control 



Jim Barbarello 

RD ni, Box 241 H. Tennent Rd. 

EnglisMown, NJ 07726 



The TRS-80 microcomputer 
and Radio Shack's serial 
line printer can team up to 
create a quality, low-cost busi- 
ness computer system. This 
system has one drawback, how- 
ever. The printer (actually Cen- 
tronics' Model 779 built for Ra- 
dio Shack) has a character width 
control which is a continuously 
variable potentiometer. Once 



disturbed, readjusting the con- 
trol to the exact previous setting 
is almost impossible. Thus, if tab 
positions must correspond to 
exact distances on the line (as 
with forms), the printer is virtu- 
ally unusable. 

What we need is a control to 
set exactly repeatable character 
widths (or print density). Also, if 
a variety of print densities is 
available, a visually pleasing 
product can be printed with in- 
termixed character sizes. (Note: 
The character sizes will be iden- 
tical in any given line but can 
vary from line to line.) 

Fortunately, the printer de- 
sign affords easy modification 
for such a facility. One approach 
is to replace the current control 
with a multi-position rotary 
switch. A 12-position switch will 
allow selection from 12 different 



-HARDWARE MOO 

SI = Single pole, 12-position rotary switch (such as Radio Shack 275-1385) 
R = 47Kohm, 1M watt, ±10% resistor (12 Required) 
fpfllsc: four-fl. wire (approximate), solder, etc. 

-SOFTWARE MOO 

R1 =a.2 Kohm, 1M wan, +10% resistor 

R2 = 1BKohm, '■ 

R3 = 27 Kohm, " 

R4 = 10Kohm, ■' 

D1,D2 = 1N4138 or 1N914 silicon switching diod« 

ICI = 4(X)1 quad 2-1 ^ NOR CMOS 10 

Ic2,lc3 = 4013 dual D flip flop CMOS IC 

104 = 4016 quad analog switch CMOS IC 

Misc: 16-fl. wire (appro.imatei, PC or wire wrap board, lour IC sockets, solder, elc. 

Tabie 1. List of Materials 



print densities and will require 
12 resistors and some wire. 

Another approach is more 
sophisticated, utilizing four 
CMOS ICs in an external circuit. 
It does, however, allow software 
selection from seven print den- 
sities. By including the LPRINT 
CHR$(X) statement in your pro- 
gram (where X can vary from one 
to seven), the print density will 
be changed automatically. Any 
number of LPRINT CHR$(X) 
statemerits can be included in 
the program to continually 
modify the print density. 

The two approaches can be 
combined in a small cabinet, 
and a single DPDT switch can 
select either the hardware 
(rotary switch) or software {ex- 
ternal circuit) control. 



1. 1- • 1^ 



The Hardware Approach 

The service manual provided 
with your printer contains a 
wealth of information. One such 
tidbit is the printer schematic 
diagram. A look at this diagram 
reveals that the print density is a 
direct function ot the frequency 
of oscillation of ME1 , a 555 timer 
IC. This frequency is varied by 
adjusting the 50-Kohm potentio- 
meter R25. An alternate method 
is to replace R25 with a rotary 
switch that selects discrete 
resistance values. Since any 
given switch postion will always 
provide the same resistance 
value, the oscillation frequency 
(and thus print density) will 
always be the same. 

The diagram for this simple 



1'° 




TO RI6/RJ5 
JUNCTION 



TO RI5/R25 
JUNCTION 



■rZ POSITION ROTARY 
SWITCH 



R ■ 4 7«n, l/aw, 10% RESISTOR 



Fig- 1. 
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FROM MT«I 



FDOH DAT* 2 

IHSB)> 




> TO 016/ 

R25 JUNCTION 



^ TO BI5/ 

R25 JUNCTION 



modification is shown in Fig. 1. 
Note that all resistors are 4.7 
Kohms, 1/4 watt, ±10 percent. 
As the switch is rotated from 
position one to position 12, the 
total resistance presented to 
the printer increases in 4.7 
Kohm steps until, at position 12, 
the total of 56.4 Kohms pro- 
duces the largest print density. 
The modification begins by 
removing the two screws secur- 
ing the printer's rear cover. Next, 
remove the two screws securing 
the PC board and the two 
screws securing the heat sink 
attached to the rear of the PC 
board. (Removal of the PC board 
is pictured in the service manu- 
al.) Finally, remove all connec- 
tors to the PC board (they are 
keyed, so you cannot reconnect 
them improperly) and remove 
the PC board from the printer. 
Unsolder and remove the print 
density pot R25. Solder a long 
length (two feet or so) of wire to 
each of the two R25 PC pads as 



Fig. 2. 

indicated in Fig. 6. Then reinstall 
the PC board. Pass the wires 
through the former access hole 
for R25 in the rear cover and 
secure the cover. 

Wire a 12-position rotary 
switch as indicated in Fig. 1. 
Connect either lead form the PC 
board to the rotary switch's 
rotor contact, and the other lead 
to the switch lug corresponding 
to position 1. You may fabricate 
a switch holder from a small 
piece of aluminum and mark the 
positions with transfer type let- 
tering. Mounting the switch near 
the front of the printer makes it 
easily accessible. 

Prior to printing, rotate the 
switch to the appropriate print 
density setting. Your program 
may include a variation of the 
program line: 5000 CLS:INPUT" 
PLACE PRINT DENSITY TO 9. 
PRESS ENTER WHEN READY"; 
BL$. In this way, you will be 
alerted to adjust print density 
before printing begins. An exam- 
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TO Rie/R25 JUNCTION <- 
(PRINTER) 
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-^TO RI5/R25 JUNCTION 
iPRINTER) 



'AUTOHa'IC 



TO SOFTWARE MOD 



pie of the different print den- 
sities are provided in Fig. 3. 

The Software Approach 

It is more desirable to allow 
the program to directly control 
print density without your Inter- 
vention. The circuit shown in 
Fig. 2 will automatically change 
the print density when the 
LPRINT CHR$(X) statement is 
executed. As indicated in the 
service manual, a print com- 
mand causes the computer to 
place data on lines 1 through 7. 
After about one ^s, the com- 



puter pulses the data strobe line 
low to alert the printer to accept 
the data. 

Since the ASCII codes 1 
through 7 have no function in 
the 779, they can be used for 
print density control. In this 
mod, data lines one, two and 
three are connected to the D in- 
puts of the 4013 CMOS D flip 
flop's ICs. When the common 
clock line strobes high, the data 
is latched into the flip flop. It 
will remain there until another 
clock pulse is generated. Data 
lines four through seven are 
connected to NOR gates in the 
4001 quad 2-ln CMOS NOR IC. If 
any of the data four through 
data seven lines go high, the 
output of IC1C is held low. When 
the data strobe line pulses low, 
the 1C1C output will not change. 
TTius, when a character code 
greater than seven is on the data 
lines, the clock is inhibited. If 
the data character code is seven 
or less (data four through data 
seven equals zero), the output of 
IC1C will generate a positive 
clock pulse when the data 
strobe line pulses low. This will 
latch in the new information. 

The output of the three flip 
flop latches controls three CMOS 
stfialog switches (3/4 of a 4016 
CMOS quad analog switch). For 
a 1 input data, the latch outp t 
will be a 0. This opens the 
switch so that the timing resis- 
tor paralleling the switch is con- 



Fig. 2a 
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THIS IS m EXW1PLE OF PRINT DEHSITV f 5 

THIS IS m EXfillPLE OF PRINT DEHSITV « 5 

THIS IS m EXRMPLE OF PRINT DENSITV I 6 

THIS IS RN EXfiMPLE OF PRINT DENSITV t 6 

THIS IS AN EXfillPLE OF PRIHT DEHSITV • 7 

THIS IS m EXfiMPLE OF PRIHT DEHSITV K 7 

THIS IS AN EXAMPLE OF PRItJT DENSITV » 8 

THIS IS AN EXFIMPLE OF PRINT DENSITV » 8 

THIS IS m EXRI1PLE OF PRItiT DENSITV » 9 

THIS IS RN EXRMPLE OF PRINT DENSITV « 9 

THIS IS RH EXAMPLE OF PRIHT DENSITV » 10 

THIS IS RN EXHMPLE OF PRINT DENblTV » 10 

THIS IS RN EXfiMPLE OF PRINT DEHSITV tt 11 

THIS IS RN EXAMPLE OF PRINT DEN-^ITV tt 11 
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THIS IS AN example OF PRINT DENilTV tt 
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Fig. 3 Example of Manually Selectable Print Densities 
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THIS 15 m E»im CF PRIHT 0G61TV I 1 

THIS IS AN ESmE OF PfilHT DEHSITV t 1 

THIS IS m EXWIFtE OF PRINT DEHSITV » 2 

THIS IS m Bft^E OF PRIHT DEHSITV I 2 

THIS IS P^ EXftMFLE OF PRIMT DENSITV I 3 

THIS IS m EXFIHPLE OF PRINT DEHSITV ft 3 

THIS IS m EXAMPLE OF PRINT DENSITV » 4 

THIS IS AN EXfitlPLE OF PRINT DEHSITV « 4 

THIS IS AN EXRHPLE OF PRINT DENSITV tt 5 

THIS IS AN EXRt-IPLE OF PRINT DENSITV « 5 

THIS 1=^ AN EXfiMPLE OF PRINT DENSITV tt 6 

THI-^ IS FIN EXfttlPLE OF PRINT DENSITV » 6 

THIS IS FtN EXRMPLE OF PRINT DENSITV # 

THIS IS- RN EXAMPLE OF PRINT DENSITV # 

Fig. 3a Example of Software Selectable Print Densities 
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PPCiil^Wl TO [-FHONSTRRTE SOFTWARE CONTROL 
OF CEIITftOrJILS ?79 SEftlftL LINE PRINTER 
U=:iNa THE 779 SOFTUI^RE CONTROLLER 
JflNE£ J BflREFlRELLO 12 OCTOBER 1979 
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90 FOR J-1 TO 2 

ICO LPRINT CHR*<I> 
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iiO NcXT J. 1 



Fig. 4. 
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IS OKFERIIIC fl SP^ClflL L'lSCuCNI FOR rt LlMlTEIi TIIIE TQfltOLI-1[NT VOU WITH RN EXCITING 

Fig. 7 Example of Form Letter Using Software Print 
Density Control 
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Fig. 8 P,"gram Used to Produce tfie Form Letter 



nected alone in the timing resis- 
tor chain R1 . R2, R3. Conversely, 
azero data input causes the cor- 
responding switch to be turned 
on. effectively shorting the as- 
sociated timing resistor. In this 
vi/ay, seven discrete timing resis- 
tance values (binary 001 through 
111) can be realized. The resistor 
vaiues indicated provide dis- 
crete resistance steps of ap- 
proximately eight Kohms and 
maintain the 50-Kohm total re- 
sistance formerly provided by 
R25. Powder for the circuit is pro- 
vided by the printer. 

The circuit shown In Fig. 2 can 
be reproduced on a wire-wrap 
board, or a PC board can be fab- 
ricated using the pattern provid- 
ed in Fig. 5. In any event, sock- 
ets should be used for the ICs. 
Follow the procedure outlined 



above in the hardware approach 
for removing the PC board, R25 
and attaching the two new leads 
in R25's former position (see 
Rg. 6). Place the printer PC 
board, component side up, in 
front of you with the printer 
cable connector facing you. 
Tack solder a long length (one 
foot or so) of wire to each resis- 
tor and the PC foil trace as 
shown in Fig. 6. After identifying 
each lead, resecure the PC 
board, route the wires through 
the printer rear cover and secure 
the cover. Finally, connect the 
identified leads to the modified 
PC board. The modified PC 
board should be housed in a 
suitable external case. 

The use of the software mod 
and an example of the different 
print densities obtainable are 
provided in Figs. 4, 7 and 8. 

Combining the Two 

Since both modifications con- 
nect to the R15/R25 and R16/R25 
junctions, either can be selected 
with a DPDT switch. The sche- 
matic diagrams of such a switch- 
ing system are shown in Fig. 2a. 

Before You Begin 

If your printer is less than 90 
days old, it carries a warranty. 
Any modification to the printer 
could void that warranty. ■ 
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PROVEN MONEY MAKERS FOR YOUR TRS-80* 

' Tdfidv Corp. Trademark 



MAIL LIST SYSTEM 



$69.95 



Many businesses require a mailing list Most use a clumsv, hard 
to edit, and expensive mechanical system to generate addresses 
This lucrative market is ripe for the picking if you have a 
convenient to use and fast mailing list program Our system will 
accomodate almost any "custom" requirements of a customer 
and is lightening fast In addition, the program is easy for your 
non-computer type employees to use A glance below will show 
that we are light-years ahead of any other system in options, 
speed, and sheer volume of names handled but don't let that 
fool you This system can be used |ust as easily on one disk for a 
small Christmas card list 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph or zip order essential for large lists 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entires (2 full 80 track 
double density disks) in only 48K! Made possible with 
our unique date compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec for 1000 
entries) both orders can exist simultaneously on disk 

• High speed recovery of entries from disk speed of sort is 
meaningless if retreival from disk is slow ours pulls in 
over 11 per sec' 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "O" appended on labels 

• Backup data disks are easily updated as entries are 
created, edited, or sorted extremely useful" 

• Optional reversal of name about comma for that non- 
computer, personalized look 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this' 

• All 0's in address labels are replaced by easier to read O's 

• All labels optionally support an "Attn " line Individual 
labels can be printed to the attention of several people 
at a given address while the address is stored only once 
on disk saves memory on disk 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting even allows for 
inequalities powerful and easy to use" 

• Continuous screen display of how many addresses 
currently printed 

• Each disk entry automatically "remembers" how many 
mailings have been made tor that particular entry Can 
be tied in with purge/select 

• Primarily written in BASIC for easy modification 
embedded machine code (or those speed sensitive areas 

• Minor custom changes done by us free of charge 

• Editing IS simple and fast direct access or automatic 
alphabetical search 

• Deleted entries have "holes" on disk filled automatically 

and alph order is still maintained' 

• Test label printing lets you make horizontal and vertical 
adjustments with ease 

• Optional "one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout! 

• Extensive documentations manual available separately 
for $3 95. 

• Hardware requirements 32K, virtually any printer, and 
either one or two disk drives 



Precision 
Prototypes 



410 E Rocd 

RefuRio, Tx. 7817: 

1^12 526-47^8) 



Football Scouting Report $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you? Did you know that each is a potential customer at 
the rate of from S500-i1000 per season? Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports Using such a service, a coach will typicalty 
have an opponent scouted several times prior to actually playing 
them This series of programs was written to the specifications of 
a coach with two state championships to his credit As a result, 
the emphasis is on producing statistics that will help in predict- 
mg what the opponent will do in a given situation This is a 
sophisticated set of programs fully equivalent to that used by 
professional football teams 

• Separate and detailed analysis of runnmg, passing, and 
kicking 

• Passing and running tendancies by field position 

• Point of attack tendancies and statistics for runs 

• Tendancies and statistics for wide/short side, weak/strong 
side, and left/right run 

• Each analysis can be broken down according to forma- 
tion, down, and yards to go 

• Allows for up to 5 games to be analyzed simultaneously 

• Convenient disk storage of plays and games 

• Extensive error traps, ..won't let you make an error 

• Two actual games (almost 100 plays) on disk to facilitate 
your learning and evaluation 

• Extensive documentation available separately for $3 95 

even includes some advertising and price samples to 
help plan your promotion Also included are some sample 
printouts 

• Hardware requirements 32K, 1 disk driver and printer. 



FAST SORT 
$19.95 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convenience 
of basic You don't have to 

know assembly language programming to use these two 
programs lust use your disk to merge our short basic programs 
(with embedded machine code) with your own basic program 
Follow our simple instructions to poke only 2 values before 
making the user call from basic The pokes will set up a sort for 
string, intPfjer single, or double precision arrays Also ascending 
or descending order is controlled by a single poke Use one of 
two programs to sort arrays of the form A(1) or A(Q(1)) The disk 
includes six simple basic programs that are ready to merge with 
the main sort programs Use them for learning and evaluation 
Also included is a ready to use basic program (already merged 
with the ORDER program) Use it to obtain a printout of 
alphabetized names 

Sample Sort Times 
8 sec for 1000 dbl prec numbers 50 sec for 5000 integers 
Time for alphabetizing (string sorting) is compa^.ble but 
dependent on the length of the strings 



ii 



Loan amortization sche- LOAN AMORTIZATION 

dules are a must for banks, *^ q q- 

S & L institutions, and ac- »I^.V3 

counting firms You will be (Tape Only for Model I & III) 

able to charge S5 plus per schedule Multiply that times the 
number of all loans your clients make per day easiest money we 
know ofl runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar 
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APPLICATION 



Computerization of the sport of kings. 



Equine Equation Evaluation 



Raymond J. Herold. CCP 
8363 Shady Grove Circle 
Manassas, VA 22110 



You can go to any. racetrack 
in the country and eaves- 
drop on the inevitable debates 
going pn among the small 
groups of horsepiayers, and the 



topic is always the same. 
George likes horse number 
three because it has the best 
clock times. Fred ilkes the num- 
ber five because of its last race. 
Tom thinks a betting coup is in 
the works involving number sev- 
en. John insists that number 
nine is the class horse in the 
race and his friends are wasting 
their time. Once tfie race is over 



Enter Race Information 

Race Number? 8 

Number Of Horses In Race? 9 

What Is The Distance For This Race? 7F 

What Is The Track Record For This Distance? 121 

Use Class Ratings In The Analysis— 00 or (N)? Y 

Use Track Variants In The Analysis— (Y) or (N)? Y 

Use Subjective Data In The Analysis— (Y) or (N)? Y 

Use Workout Times In Analysis— (Y) or (N)? Y 

Is The Above Data Correct— (Y) or (N)? Y 
— Track Bias Adjustment— 

(0) = None 

(1) = Inside 

(2) = Middle 

(3) = Outside 
Which One? 1- 

Fig. 1 



Horse Number 1 



Number Of Times Raced This 

Year? 14 
Number Of Times Finished 1st 

This Year? 2 
Number Of Times 2nd Or 3rd 

This Year? 9 
Total Earnings For The Year? 

20235 
Enter Weight To Be Carried? 

112^ 

Fig. 2 



and the winner determined, the 
horseplayer with the winning 
ticket gladly recaps the reasons 
for his brilliant selection. Yet, no 
one is listening because there's 
only 15 minutes before the next 
race, and another selection 
must be made. The debate 
starts anew. 

Although not generally 
known, horse racing is the most 
widely attended spectator sport 
in the country. Attendance in 
1979 was over 77 million, with 
baseball a distant second. In the 
case of football, basketball and 
other sports, predicting a winner 
means sitting through three 
hours of play before knowing 
the result. With horse racing, the 
analysis, selection and result is 
accomplished in rapid-fire suc- 
cession usually 10 times or 
more in three hours. 

This program will hopefully 
aid each individual horseplayer 
In making more informed deci- 
sions during his or her excur- 
sions to the racetrack. 

The system is primarily based 
on the philosophy of speed han- 
dicapping. However, provisions 
have been included to take into 
account all factors that could in- 
fluence the outcome of a race. 
Through the use of optional 
data entry categories, handlcap- 
pers who wish to account for 
criteria such as class, trainer 
and jockey ratings, track biases 
and stretch running horses will 
be able to do so. As with any 
type of forecasting, the more 
data available for the analysis, ' 
the more accurate the result. 



The use of different options also 
provides each handicapper with 
the ability to tailor use of the 
program along lines approach- 
ing his own handicapping tech- 
niques. 

The program was written for 
use on a TRS-80 Level II, with a 
minimum of 16K. The Microsoft 
Basic code should be relatively 
easy to transfer to other ma- 
chines with a little effort. Data 
entry is self-explanatory, with 
examples given in most cases. 
Editing routines have been in- 
corporated into the program to 
ensure data integrity whenever 
possible. The ability to read the 
charts in the daily racing form is 
assumed. 

Handicapping Strategy 

The nucleus of the analysis 
done by this program is based 
on speed figures. However, any 
kind of information given to the 
program is acted upon. To para- 
phrase an old saying: "Handi- 
cappers do not live by speed 
alone". Criteria such as class 
and track bias will have a defi- 
nite effect on the outcome. 

The biggest problem with 
most computerized handicap- 
ping systems is that they tend to 
be too narrow in approach. In an 
attempt to speed data entry for 
a race, some systems only re- 
quire speed rating and distance. 
Others only accept data for the 
last race the horse ran. This kind 
of system disregards such fac- 
tors as weather and track condi- 
tions, among others. If horse A 
runs six furlongs in 1:12 on a 
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16K MEMORY ONLY $19.95 

For TRS-80 Keyboard or Expansion 
interface- KEYBOARD requires jumpers: 
$2.00 Extra. These are 200 ns tested RAM 
for the TRS-80, APPLE or EXIDY. 



DISK DRIVES for the TRS-80 OR PMC-BO: 



All of our drives come complete with power supply 
and chassis They may be used with existing Radio 
Shack drives on the same cable' 40 track drives 
store 102K bytes single density, and 175K double 
density 80 track drives have 175K single density 
and 345K double density' All drives guaranteed 90 
days, one year on power supply 

40 track MPI drives $319.95 

40 track TEAC drives $315.95 

40 track TANDON drives $319.95 

80 track MPI drives $449.95 

80 track TEACdrives $429.95 

2 drive cable $ 25.95 

4 drive cable $ 39.95 

NEWDOS80VER.il $139.95 

NEW DOS 80 VER. I Special sales price. 

Limited Quantity $89.95 

PERCOMS DOUBLER tl 

for double density operation! $169.95 

The DOUBLER works with the TRS or PMC 

expansion interfaces to allow you to use your drives 
in double density' You may still operate your drives 
as Single density also' Comes with DBLDOS 
operating system which allows you to transfer 
single density files to double and vice versa' GREA T 
BUY' 

DISKETTES: VERBATIM DATALIFE! SOX OF TEN 
SOFT OR HARD SECTORED 5 :' $32.50 

WE HAVE DRIVES AND CONTROLLERS FOR THE 
MODEL lit. CALL FOR PRICES!!! 




MODEMS AND TELE 
COMMUNICATIONS 



LYNX Telecommunication 
system for the TRS-80 and 
PMC-80 $279.95 

Includes terminal software and 
connections for instant 
hookup' Can be connected to the TRS-80 or PMC- 
80 with or without an expansion interface' 

LYNX now comes standard with auto answer/auto dial & 
all hardware for Mod I & III! Also includes host program. 
GREAT BUY! 

'TARICONNECTION: Modem for 400/800, 

complete with software! $249.00 

APPLECONNECTION: Modem for 

APPLE II $279.95 




PMC-80, 16K LEVEL II 

COMPUTER $739.00 

The PMC-80 is a work alike to 
the TRS-80 mod I computer! 
Comes with Microsoft'sBASIC 
in ROM. Built in cassette. 12" 
video monitor. Expandable to 
48K. 
Compatible to All TRS-80 MOD I Programs. 

PMC 80 without monitor $595.00 

RF— MOD for PMC to TV hookup $39.95 

PMC-80 EXPANDER 100 SYSTEM $499.95 

INCLUDES: 32K memory, Parallel printer driver. Disk con- 
troller. Fully compatible with TRSDOS, NEWDOS, VTOS, 
and all other TRS-80 Mod I disk software! 

New New PMC-81 Computer is here CALL 

APPLE II COMPUTERS 48K 51299.00 

ATARI 400 S 495.95 

ATARI 800 COMPUTER S 795.00 

ZENITH Z-89 48K, 1 DISK ALL IN ONE 

COMPUTER S2495 00 



VIDEO MONITORS 



LEEDEX 100 12 B/W MONITOR S159.95 

SANYO 9 B/W MONITOR S199.95 



PRINTERS 



OKIDATA MICROLINE 80 All OKI'S have TRS-80 
Graphics!!! $420.00 

Comes with friction and pm feed upper lowpr casp 

Graphics 

EPSON MX-80 PRINTER: Word Processing Quality 

Printout with Graphics! Call 

NEC SPINWRITER with Tractor Feed S2995.00 

DIABLO MODEL 1630 with Tractor 52695.00 

UNIVERSAL PRINTER STANDS S 94,50 

Other Accessories: 

SUP-R-MOD RF Modulator for APPLE 529.95 
ARCHBOLD SPEED-UP MOD FOR TRS MOD I. 
Allows up to 300% increase! 545.00 

MICROSOFT BASIC Decoded and other 

mysteries 529.95 

TRS-80 DISK and other mysteries 518.95 

ZBASIC BASIC COMPILER for MOD I and MOD III 
TRS-80 and PMC-80 Increase basic program 
speeds by up to 200 times!!!!! 
Tape $79.95 Disk $89,95 

Bofh For Only $99.95 Specify MOD I or MOD III 

WE HAVE HUNDREDS OF PROGRAMS FOR 

ALL THE POPULAR COMPUTERS! 

CALL FOR OUR FREE CATALOG 



4B77 E Speedway Blvd 
Tucson Arizona 85712 



Personal and Business Chiecks lake 3 weeks to dear For tastesIdeliveryuseCertitied Checks MoneyOrde's C'e:it(;<i'd o' C O D 

We will try and beat any published price on any system! Call! 
SIMUTEK CALL TOLL FREE TO ORDER 

COMPUTER PRODUCTS :. (800) 528 1149 

Plpase monlion this mtiga/ine w^ien ordf^iri'i 

ARIZONA RESIDENTS ADD 6% SALES TAX 



1502) 323-9391 Technical Questions 



WE TAKE VISA, MASTER CARD 



TRC.3- ^ i -aacFVAPK or RAD^O ^hA'.k i ■ A' 



Ai^PLt IS A THADEMAflK OF APPLE IN' 



' S«« U»t ot Ailnniamn on pas* 354 
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GO 
PIGGYBACK! 




ADD lowercase with our 
PLUG-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 

96 character ASCII PLUS choice oi 
128 character APL, TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY »1: 

Shop Compartitlv*lyl 





^368 



Digital Systems Engineering 



12503 King's Lake Drive. Reston VA 22091 (703) EZO-2994 

ALSO AVAILABLE: New Cenironics anct Integral Data Systems printers at 
15-20% t)eow Hst: also, used pfinters rt several makes Cal for Moimalion! 

MasterCard. VISA, Cfteck, MO, PO All procjcis A^ranleed 90 days 



2 For 1 + 5 CENTS SALE 
,^s\**^* RIBBONS 

OO^^uR RADIO SHACK* AND CENTRONICS LINE PRINTERS 
EXACT REPLACEMENT INSERTS 

ICartridges NOT Included] Radio Shack List _.___ + 5c SALE 

LP l-ll-IV-700-730-737-779 3 Pack $18.95 6 for S19.00 

LP lll-V 1 Each $13.95 2 for $14.00 

LP VI 1 Each $11.95 2 for $12.00 

Daisy Wheel II jCarbon Film] 3 Pack S24.95 6 for $25.00 

iOur Instructions make Inserts easy to put In your cartridge! 

RELOADS 

lYou SEND old CARTRIDGES to US- WE RELOAD tliem for you] 

LP lll-V Eacli $9.00 

LP VI Each $9.00 

OW II ILong-Llfe FABRIC-We MODIFY YOUR canridgelEa$9.00 
DW l( [Carbon Film] 3 Pack $15.00 

NEW CARTRIDGES FROM RADIO SHACK 



LP lll-V [26-1414 

LP VI (26-1418 

LP VII 126-1424 

DW II Carbon Film (26-1419 



Two for 
Two for 
Two for 

3 Pack 



S25.00 
$21.00 
$16.00 
$22.00 



MODEL II 8" GAME DISCS 

Volume 1 $24.95 Each .._ Volume 2 

Biorhythms, Trap Ugly, Bingo 

Rip Cord, Yacht Sea Towers, Blackjack 

Concentration + 4 More Farkle, Pony + 3 More 



SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPC0.23r 

800 South 17* Box 246 * 417 932-4196 
Summersville, MO 65571 



Msr 



'RADIO SHACK is a trademark of Radio Shack, a Tandy Corp. 



fast track, is he really t>etter 
than horse B who ran six fur- 
longs in 1:13 on a muddy track? 
Probably not. You may spend a 
little more time entering data in- 
to this program, but you will get 
better results. 

The other major problem with 
most commercially available 
handicapping programs is their 
price tag. It may take several 
hours to enter this program into 
your computer, but it's free! 

The philosophy behind this 
program is to account for all per- 
tinent factors. It examines all 
areas of an individual horse's 
past performance and develops 
a composite of that horse. This 
composite is compared to those 
of the other horses in the race. 
In order to make the composite 
for each horse as meaningful as 
possible, the following strategy 
should be followed when enter- 
ing information for each horse: 

• Whenever possible, enter 
the results of at least three 
races for each horse. Four or 
five would be better. The pro- 
gram allows up to 10. l^is 
takes longer but it helps to off- 
set special-case conditions. 

• Use the track variant option. 

• Try to use results from 
races that were run on fast or 
good tracks. The track variant 
will adjust for bad conditions. 



but races run in the slop 
aren't indicative of a horse's 
capabilities. 

• If the track you attend has a 
known bias, use the track bias 
option to adjust. 

• Use the class rating option 
where applicable. 

• Remember, you can input 
too little information but you 
can't input too much! 

Editing 

Much of the data entered into 
the program is edited for valid 
content. This is done in an at- 
tempt to avoid the "garbage in- 
garbage out" computer tradi- 
tion. For example, if you wanted 
to enter a horse's finish position 
as 10, but the key bounced and 
you got 100, this could certainly 
produce some curious results. 
In a case such as this the pro- 
gram would recognize an obvi- 
ous error and simply reprint the 
prompt for that category. You 
would then re-enter the correct 
reply. For most categories you 
will be asked if the data you 
have just entered is correct. If it 
isn't, simply reply N to re-enter. 

A more subtle error, with dev- 
astating effects, can occur 
when entering the critical 
time/distance relationship. Take 
the example of a horse that ran a 
six-furlong race in 1:13.2. When 
you put the information into the 





Distance 


Enter 




2 furlongs 


2F 




3 furlongs 


3F 




3 1/2 furlongs 


3.5F 




4 furlongs 


4F 




4 1/2 furlongs 


4.5F 




5 furlongs 


5F 




5 1/2 furlongs 


5.5F 




6 furlongs 


6F 




6 1/2 furlongs 


6.5F 




7 furlongs 


7F 




7 1/2 furlongs 


7.5F 




7 3/4 furlongs 


7.75F 




1 mile 


W 




1 mile 40 yards 


W40Y 




1 mile 70 yards 


1M 70Y 




1 1/16 mile 


1 1/161^ 




1 1/8 mile 


1 1/8hA 




1 1/4 mile 


1 1/4M 




1 1/2 mile 


1 1/2M 




1 5/8 mile 


1 5/8M 




1 3/4 mile 


13/4M 




2 miles 


2M 


Table 1 


The program wilt accept race distance of two furlongs 


to two miles. The following examples show how to enter the | 


different distances. 
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program you accidentally enter 
ttie time as 1:33.2— a common 
mistake. The short edit at line 
1 160 determines the time of the 
race on a per furlong basis. If the 
per furlong is outside of an ac- 
ceptable range, a message tell- 
ing you that a possible mistake 
has occurred appears. It will 
show you the time and distance 
entered. U the time or distance 
is an error, responding R to the 
query "Enter Another Past Per- 
formance For Horse Number n" 
allows you to re-enter the previ- 
ous past performance. 

Using the Program: 
Race Information 

This section {lines 550-588) 
sets up the basic parameters for 
each race. Fig. 1 shows the 
prompts and replies used. The 
prompts for race number and 
the number of horses are self- 
explanatory. The distance for 
the race to be run is Seven fur- 
longs. Table 1 shows how the 
different distances are lo be 
entered. The track record ts 
used to compute an actual fin- 
ish time for each horse. The cor- 
rect method for entering times is 
shown in Table 2. 

The next four lines determine 
which of the optional categories 
allowed will be used. In the ex- 
ample, all four are to be used in 
the analysis. Whether or not a 
particular track has a bias is 
generally subjective in nature. 
For example, if the response to 
the subjective data prompt was 
Y, an adjustment for this situa- 
tion is allowed. Depending on 
which portion of the track con- 
tains the suspected bias, lines 
582-586 make the appropriate 
adjustment. 

Set-up for Each Horse 

This section allows the entry 
of basic information for each 
horse in the race. Fig. 2 shows 
how this information is entered. 
As can be seen, this information 
is obtained from Fig. 3 which 
charts past performance. This 
chart also corresponds to the 
way information is presented in 
the daily racing form. 

Past Performances 

You can enter from one to ten 
past performances for each 



horse. One is required. Entering 
four or five will optimize the 
analysis. The top portion of Fig. 
3 shows a sample past perfor- 
mance chart. The bottom por- 
tion shows how the information 
would be entered into the com- 
puter. In this sample, the race 
distance tor the past perfor- 
mance being entered was six fur- 
longs. The winner's finishing 
time was 1:13.2 {Tables 1 and 2). 
Our sample horse finished sec- 
ond, a head behind the winner. 
The following shows how 
lengths should be entered if the 
horse is not the winner: 



nose {or winner) 

In the last line you will be asked 
to enter the speed rating, and 
track variant (if used). 

Subjective Data 

The Idea of class is a rather 
controversial subject to most 
handicappers. Some insist that 
the use of class Is the only ra- 



tional way to handicap a race. 
Others Insist just as stubbornly 
that it is an absolutely worthless 
idea. The answer probably lies 
somewhere in between. Be- 
cause of this, class rating was 
made an optional category. 

The top portion of Fig. 4 
shows the range of variation 
allowed. The movement in class 



Lengths Behind 


Enter 


2 


2 


V/i 


1.5 


3V4 


3.75 


Vi 


.5 


V* 


.25 


neck 


.2 


head 


.1 



Time 


Enter 


:37 


37 


■42 215 


42.4 


1:09 


109 


1:12 3/5 


112.6 


1:36 1/5 


136.2 


2:10 


210 


2:20 3/5 


220.6 


3:12 


312 


3:40 1/5 


340.2 


Table 2. All race times must be entered ir 


decimal form. Fifths 


of seconds should be converted to tenths. This table shows | 


the correct method for entering times. 





Ch. f . 4, tiy Micro Boy-Bulter, by Memory Chip 
Br, -Micro Stables 
Tr.-W. Gr»en 112 



SI. 1st 2nd 3fcl Amt. 
1979 Id 2 4 5 20.2:^ 



11Nov79-7Blr tst 6f 


;23 


;47 1/5 


1:13 1/5 Allowance 7 7 5 4 4 2hd Herold fl H b 112 7.10 74,33 


2Nov7»«Lrl tst 71 


:23 


:46 3/5 


1:25 2/5 Allowance 2 9 8 8 6 3nk Herold R H b 114 4.50 81,16 
— SainpMIMtlanc* Chart 00:08:52 






3F 


5F 7F 1M40Y 13/8M 






3.5F 


5,5F 7.5F 1M70Y I 1/2M 






4F 


6F 7.7SF 1 1«M 1 3/4M 






4.5F 


6.5F 1M 1 1/4M 2M 



<«« Past Perlormance — Horse Number 2 — Race » 1 >>>>> 

Race Distarice — (Use Table Above} "^ 6F 

Winner's Finish Time - (EX: 112.4) "? I'^-S 

Horses' Finish Position (EX: 4) ' ^ 

Length's Behind Winner — (EX: 4.25 — OIF NONE) ? -1 

Speed Rating and Track Variant - (EX: 76,12) ■? 74,33- 

Fig. 3 Sample Distance Chart 



ClaaaTaW* 

< > A Lol 

<> Moderate » Up In Class 

< > Slight 

< > Equal Class 

< > Slight 

< > Moderate .. » Down In Class 

< > ALot 

Using the Table Above. Indicate the Horse's Class Rating as 

Compared lo Itw Other Horses io tt>e Race. 

?0- 

Sobjectjw Data 

Is Jockey in Top 5 Ratings - <Y> OH <N>? N 

Is Trainer in Tops Ratings - <Y> OR <N>? N 

Is Horse Showing Consisleni Improvement — <Y>Ofl<N>?N 

Does Horse Close Consistently In Stretch Ron — <Y> OR <N>? Y 

Has Horse Been Idle (or More Than 30 Days - <Y> OR <N>? N- 

Fig. 4 
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is not as difficult to determine 
as the degree of that movement. 
Whether a horse is changing 
class slightly, moderately or a 
lot isleft to the experience of the 
individual handicapper using 
this program. The bottom por- 
tion of Fig. 4 shows the other 
subjective data classification. It 
should be pointed out that only 
a Y response has any effect on 
the arw'ysis. A response of N 



leaves the ratings unchanged. 

Interpreting The Results 

Once all the data for an up- 
coming race has been entered, 
the program goes into the analy- 
sis phase of its operation (lines 
5000-5999). The program com- 
pares each horse's relative 
standing to the other horses in 
the race for each of the primary 
categories (5020-5096). Points 



Program Listing 1 



COMP. 


AVE 




EARN/ SFVTV 








H# TIME 


FIN. 


%WPS 


START AVE, 


COMP 


POINTS 


ODDS 


1 127.1 


48 


133 


396 88 8 


45.0 


50 


20-1 


2 125.7 


3,0 


76,6 


1445 102.0 


5.3 


32,8 


5-2 •■ ■ 


3 126 5 


2,5 


42 9 


1894 100.5 


7,7 


22 6 


4-1 


4 127.0 


1 8 


667 


1414 102.0 


7,5 


23.2 


4-1 • 


5 128 6 


4.3 


52 9 


1134 89.0 


15,2 


11.6 


7-1 


6 126.9 


4.0 


47 1 


1162 98,0 


10,3 


17.0 


5-1 


7 126,7 


4,0 


44,4 


1061 100,3 


9.8 


178 


5-1 


8 126,3 


2,0 


42 9 


1067 102,7 


6.B 


25 9 


7-3 •• 


9 126,9 


2,3 


364 


970 102,7 


9.1 


19,3 


9-2 


'"Wagering" 














e 00 On #2 Win & Place 










S2,00 On # 8 Show 












Exactas 














2—8 2-4 














Fig. 5. 


Comparative analysis for Race it8 





THOROUGHBRED HANDICAPPING 

COPYRIGHT 1979 

RAY HEROLD 

B36) SHADY GROVE CIR. 

HANASSAS Vft. 22118 



10 
2B 

3e 

40 

50 

60 ' 

1B0 CLEAE200!DIK HD( 20 , 1 1 ) , WC ( 20) , WN ( 20) ,ODS I 2B) 

200 CLS:PRINTe40 0, 'THOROUGHBRED HANDICAPPING- : FORX= ITO1000; NEXTX 

500 CLSiPRINTiPRINT'ENTEB RACE INFORMATION' ; PRINT 

518 INPUT'RACE NUMBER'jRN 

515 INPUT-NUMBER OF HORSES IN RACE" ;NH : IFNH<5ORHH>20THEN515 

520 INPUT'WHAT IS THE DISTANCE FOR THIS RACE" ;WDS;G0SUB13BB: DR-W 

D:irDR=aTHEN520 

525 INPUT-WHAT IS THE TRACK RECORD FOR THIS DISTANCE" ; TR: IFTR<15 

ORTR>400THEN525 

530 RS-0 

53 5 IFTR>99THENRS = RS-'60:TR-TR-1B0:GOTO535 

540 RS'RS*TR 

545 Sl-fl:S2=a:S3-B:S4'BiS5-B 

55B OS-"*:INPUT*USE CLASS RATINGS IN THE ANALYSIS - <Y> OR <N> ; 

OS:1FOS="Y"THENS2=1:ELSEIFOS<>"N*THEN5 50 

560 OS = ""!lNPUT"USE TRACK VARIANTS IN THE ANALYSIS - <Y> OH <«■>' 

jOS:IFOS'"Y"THENS3-l:ELSEIPOS<>"N"THEN56B 

570 OS-"!lNPUT-USE SUBJECTIVE DATA IN THE ANALYSIS - <Y> OR <N> 

■;OS:IFOS^"Y"THENS4-1;ELSEIFOS<>'N"THEN57 

572 OS-"":INPUT-iJSE WORKOUT TIMES IN ANALYSIS - <Y> OR <N>";0S:1 
FOS="Y"THENS5-l:ELSEIFOS<>"N"THEN57 2 

573 OS='"!PRINT;INPUT"IS THE ABOVE DATA CORRECT - <Y> OR <N>"jOS 
■IFOS="N'THEN5BBELSEIPOS<>"Y"THeN5 7 3 

575 IFS4O1THEN6B0 

580 CLS:0-B!PRINT!PRINTTAB(5r-- TRACK BIAS ADJUSTMENT — *:PRINT 

"<B> - N0NE"!PR1NT"<1> - INSIDE" ;PRINT"<2> - MIDDLE" !pRINT" <3 > ' 

OUTSIDE"!lNPUT-WH!CH ONE";0 
582 IF0-lTHENF0RX-lT04iHD[X,lB)=HD(X,lB)+( (NH/2)-X) ;NEXTX 
5B4 IF0-2THENF0RX-5T08:HD(X,1B)-HD(X,1B)»2!NEXTX 
586 IFO-3ANDNH>=9THENFORX=9TONH:HD(X,i0)=HD(X,10)*(NH".251 : NEXTX 

588 IFO<eORO>3THEN580 

600 F0RCH=1T0NH 

fi0 5 TT=0:RC-0:TP=0:RB-0:CT=0:WO=0:BT-999 

GOSUB16 00:GOSLIB1000 

IFS5-lTHENGOSUBn00 

IFS2 = 1THENGOS[JB1500 

IfS4=lTHENGOSUB2flBB 
690 NEXTCH 

90B GOSUB5flBB:GOSUB4B0B:GOSUB6a00:CLS!PRINTg4B0,"NEXT RACE.,,";F 
OfiX-lTO20;FORY-lTOll:HD(X,Y) -BiNEXTYi NEXTX :G0T05BB 

Progon) continues 



61B 
615 
61fi 
620 



CONVERT YOUR TRS-80 MODEL-I INTO A 

DEVELOPMENT SYSTEM 

No* you can develop Z 80 based standalone devices such as games. ro6ols, 
inslrumenis and pe'ipherai conlroller'^, Dy using your TRS-SO iS a ()eve*opff>ent System 
The OEVELOPMATE p'ugs mio the expansion cooneciDi ol your TRS-80 and aOds 
PROU PnOGRAMMING and IH-CIRCUIT-CUULATION capabilities to your 
system i*ith or without expansion tnterlacel 

Comptele instructions arxl Sample schematics are included to help you design your 
own simple stand-alone micrcxompuler systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs oneTTL circuil lor clock and reset, a Z-80. an EPROM, and 
one peripneral iniertace chip 

When Ihe in -Circuit- Simulation cable is plugged 
into Ihe Z-00 sockel of youf sland-alone systein 
Ihe system tjecomes a part ot your TRS-80 Vou 
can use ihe full power ol your editor /assembler s 
debug and I race programs lo check out both Ihe 
hardware and fie so'lware Simple tesl loops 
can be used lo check oul the hardware, then the 
system program can be run to debug the logic ol 
your stand-alone device 

Since the program is kept in THS-80 RAM 
changes can be made quickly ana easily When 
your stand alone devi-e works as desired you 
use the Devetopmale i PROM PRIDGBAMMER 
ID copy Ihe program into a PROM With Ihis 
PROM and a Z-80 i-" place ot the emulalion 
cable yc«r s*3nd-Tlonedev'ce will rtork by itsell 

The DEVELOPMATE is entremely compact Both the PROM programmer and the 
In -Circuit -Emulator are in one small plastic box only 3 2-54 A line-plug mounted 
power supply is included The PROM programmer has a personality module which 
de'ines the voltages and conneciions of the PROM so ihai luture devices can pe 
accommodated However the system comes with a universal personality module 
which handles 2758 2S0BI8Kj 2716 2516) 16K) 2532I33KI. as well as Ihe new elec- 
mcaiiy alterable 2816 and 480161 16K EEPROMs) 




Thie COMPLETE DEVELOPMATE 81. wilh sottware power Supply 
table TfS-30caDie and universal personality module ijONlyS329' 
The PROW PHOGHAMMER IS available separately for OMLY S239 



ORION INSrnUHENTS 

1 72 131 IS Avenue DepI M Woodside C^ 94062 
(415(85M'73 

Mastef Charge and Visa phone orders accepted 
Calilornia residents pieaae add 6°o sales Ia« 



ulalion 



LOW PRICES ON TRS-80* 

From Radio Ranch, Inc. 




— — -Jik_;3fci**»- 



In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80* 



COMPUTERS & 



Accessories 
Software 



TRS-Bfl Mod II h4K J440.(K) 

TRS-HO .Mod III - UK, J Dr 219S.00 

TRS-BO line Printer b 1020.0() 

CORVLiS ■ S-10'2() M Hard Disks . . . Call For Prices 
Call for LOW PRICES on other models 

Full Factory Warranty - Complete Service Department 

J^odliy Raunck.3no. 



Cert, Check 
Cdshipfs Ck. 

Call Toll Free 80(M35-83IO 

V -lijHi-m.irt \in\-, ( nip 



^n3 

Route 3, Radio Ranch Airport 
Polo, Illinois 61064 
In III. Call 81S 946-2371 

1 r.id.'indil l"i.riU> -.slrm^ l-li 
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MODEL 




-4160 
4161 
4162 
-4530 
• 4512 
4511 
-4501 
-4506 



DISCOUNT 

TRS-80® -c, 

COMPUTER SPECIALISTS 

wnLL Uo. > > 

SI03400 OllV t lwl\/l«L I 
2 Df.ve Exp 1574.00 

Sc^i'siHi"^ 265 00 We carry the »ull line of TRS-80 Computers. All 

Profile II 162 00 Other software, furniture, and occessories at dis- 

visicaic II 265 00 count from cotolog pfice. We stock most items 

Gen Ledger 180 00 ^^ assure you fost delivery end save you money. 



Moil List 



72.00 



PRINTERS 




26-1140 Exponston Inlerfoce $249 00 

26-1141 16K Exp InfeHace 339.00 

26 1142 32KE«p Interface 429.00 

26 1145 RS232C Board 84.00 

26-1160-1 Mini Disk Drive 419,00 

26-1563 Scnpsil-Disk 7*'-00 

26 1566 Visicak 83.00 



•PRINTERS* 



cEnTRonics 

BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



26 11 55 Quick Printer 187,00 

26 1 167 Line Printer VII 360.00 

26-1166 Line Printer VI 1080 00 

26 1158 Daisy Wheel II 1799.00 

26 1168 line Printer VIII 720.00 



Pocket Computer 

26 3501 1 9K P C $188 00 

26 3503 Cassette IF 45.00 

14 812 Recorder .72,00 



WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL III 




261061 4KI $609,00 

26-1062 16K III 849.00 

26-1066 48K 111 

W 2 Drives, RS232 2149.00 

COLOR 




26 3001 -iK . , 

26 3002 16K Ent Bosic 
26 3008 Joysticks- 
26 3010 Color Video . 
26 1206 Recorder. . 



$318 00 

, , 488 00 

22 50 

353 00 

. , . 54 00 




commodore 

AUTHORIZED DEALER 
CALL FOR PRICES 



ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 ToII Free Order Entry 



I MiCRg Mfll^flGEMEMT SVSTEITIS, IMC 



DOWNTOWN PLAZA SHOPPING CENTER 
DEFT, #4 
115 C. SECOND AVE. S.W. 

CAIRO, GEORGIA 31728 

(912) 377-7120 Ga. Phone No. & Export 

Fronri Stock on Most Items tits m ti > r«Biii«t«4 trod»nwri> o* the T«ndv co<p. 



No Taxes on Out Of 
State Shipments 

Immediate Shipment 



A copy of the monu(oclore/s wor 
ranty con be obtained tree upon 
(peci'ic written request to the 
Electronics Deporlmenf of our 
Cairo Georgia Retoil Store 



^5m LM oI 4dvartiHrs on fMO* 354 
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Program continued 



1000 FORCF-ITOIB 

101B CLS!GOSUB1150e:PRINT*<<<<< PAST PERFORMANCE - HORSE HUH 

BER";CH!" - RACE «" ;CR; ">>>>>" 

1110 PRINTe64B,"RACE DISTANCE - (USE TABLE ABOVE] 

'CINPUTWDS 

1115 GOSUB13B0:RD=WDiIFRD=0THEHlllB 

1117 FT^-l:PRINTi7B4,'WI(raERS'S FINISH TIME - (EX: 112.4)... 
■;!IKPI;TPT 

1118 IFFT<=15ORFT>400THEK1117 

112B FP=-l:PRINTe76B, "HORSES' FINISH POSITION (EX! 4) 

■;iINPUTFP 

1121 IFFP<0ORFP>25THEN1120 

1122 TP-TP+FP 

1124 LB=~l;PRINTeB32, 'LENGTH'S BEHIND WINNER - [EX: 4.25 - 

IF NONE) ,. .".-iINPUTLB 
1126 IFLB*(pRLB>5BTHENli24 

1130 SR=-*fe'TV--l:IFS3 = lTHENPRINTe896, "SPEED HATING AND TRACK V 

ARIANT - [EX: 76,12) " J : INPUTSR,TV;RB=RR+SR+TV:EI,SEPBIN 

Tgese, -SPEED RATING - [EX: B2 ) ■, 

iINPUTSR 

1131 IF3R<2BORSR>12eTHENRB=RR-(SR+TV) !GOT0113» 

1132 IFS3-1AND(TV<B0RTV>75)THEHRR»RR-[ST+TV) JGOTO1130 
115fl TS=e!HT-FT:GOSUB1200 

1160 IFUT/RD<10ORl)T/RD>13,5THENCLS:PRINT!PRINT"A POSSIBLE INPU 
T ERROR HAS OCCURED. * :PRINT: PRINT"THE FOLLOWING WAS ENTERED: ■• iPR 

INT"RACE DISTANCE * ;HDS! PRINT'RACE TIME " iHT: PRINTi IN 

PUT-PRESS ENTER'fAS 

1175 CLS;OS-""!PHINT!PRINT"ENTER ANOTHER PAST PERFORMANCE FOR 
HORSE NUMBEB"fCH!lNPUT"<¥> OR <N> - <R> TO RE-ENTER PREVIOUS 
RACE*fOS!lFOS="N'THENCR-llELSEIFOS="R"THENCR=CR-l!RC-RC-l!RR-RB- 
(SR+TV) !CT-CT-CCiTP=TP-FP!TT-TT-AT 

1176 IFOS<>"N''ANDOS<>''Y"ANDOS<>''R"THEN1175 

1179 NEXTCR 

1180 IFRC>BTHENHD(CH,l)'TT/lRCtWO) ! HD(CH,1) -HDCCH, 1) - [ (HD(CH,1) - 
BT)*.2S) :HD[CH,2)-TP/RCiHD{CH,9)=Rfi/RC;ELSECLS!pRINT;PRINT''REQIJI 
RED RACE INFO MISSING FOR HORSE NUMBER" ;CH: PRINT"RETRY DATA ENTH 
Y,":INP1IT"PRESS ENTER* (AS iCH-CH-l ; RETURN 

1190 IFHD(CH,2)<3AHDNR<4THENHD(CH,18).HD(CH,1B)-(NH*.2) 

1199 RETURN 

1200 IFFT>99THENTS=TS+6 3:FT=FT-100!GOTO12fl8;ELSETS-TS+FT 

1210 UT=TS*[LB/5) :IFOR<>RDTHENAT=UTFLSETH-UT-({100-SH)/6) :AT-[JT* 

(RS-TR) 

1215 IFDR<>RDTBENAT=( tAT/RD)*DR) ;GOSUB14fl0 

1220 TT=TT-'AT:RC=RC+1 

1230 IFAT<BTTHENBT"AT 

129B RETURN 

1300 WD-0:E1D$=WD$ 

1310 IFRIGHTS(»fDS,l)'''F-THENWDS = LEFTS(WDS,LEN|WDS)-l) !WO=VAL(WDS 

1 ! I FWD<20RWD>7,9THENWD''a: RETURN: ELSERETURN 

1320 IFRIGHTS(WDS,I)<>"M"ANDRIGHTS[WDS,1)<>"Y'THB(IRET0RN 

1325 IFWDS='lM*THENWD-8 

1330 IFWDS--1 1/16H"THENWD=8.5 

1335 irWDS=*l l/BM"THENVfD = 9 

1346 IFHDS-'l 3/16M'THENWD=9.5 

1345 IFNDS="1 1/4K"THENWD-10 

1358 IFWDS="1 5/16K"THENWD-10.5 

13S5 :FWDS-"1 3/8l!"TaENWD=ll 

1360 IFWDS-'l 7/16M''TaENWD=11.5 

1365 IFWDS-=-l 1/2M-THENWD-12 

1367 IFWDS="1 9/16M'THENWD=12.5 

1370 IFWDS--1 5/8M''THENWI>=13 

1372 IFWDS--1 11/16M-THENWD=13.5 

1375 IFWDS=''l 3/4M"THENWD-14 

1377 IFHDS="1 13/16M-THEKWD-14.5 

13Bfl IFWDS="1 7/8M"THENWD=15 

1382 IFWDS="1 15/16N"THENWD=15.5 

1384 IFWDS="2M"THENWD=16 

1386 IFWDS=-1M 40Y-THENWD=8.18i8 

1388 IFWDS-'IM 7BY'THENWD=8.31B2 

1390 RETURN 

14B0 X1=0!X2.1.3!X3-'DR-RD 

1410 IFX3<0THEN1450 

1420 IFX3>-lTHENXl-Xl*X2:X2=X2'1.35:X3-X3-l!GOTO1420 

143B IFX3>0THENXl-Xl*((X2*X3)-t-(X3/2)) 

1440 GOT0149B 

I45fl X1=1.1*X3 

1490 AT=AT+X1 

1499 RETURN 

1500 CLSiGOSUB11000 

1510 CC=0!PRINT'USING THE TABLE ABOVE, INDICATE THE HORSE'S CLAS 

S RATING AS'lPRINT'CWIPAHED TO THE OTHER HORSES IN THE RACE." 

15 20 INPUTCC!lFCC<-3ORCC>3THEN1500 

1530 IFCC>0THENHD[CH,10)=HD{CH,1B)-{CC+1) 

1540 IFCC<8THENHD[CH,1B)-HD{CH,10)+ABS!CC-1) 

1590 RETURN 

1600 CLSjPRINTiPRlNT- HORSE NUMBER" jCHj " "tPRIHT 

1605 EYI-B:NR-8 

161B INPUT-NUMBER OF TIMES RACED THIS YEAR" jNRi IFNR<iORNR>60THBN 

1610 

1620 INPUT'NUMBER OF TIMES FINISHED 1ST THIS YEAR" jHD(CH,3) i IFHD 

(CH,3)<BOBHD(CB,3)>50ORHD(CH,3)>NBTaBS1620 

1630 INPOT'NUMBER OF TIMES 2ND OR 3RD THIS YEAR" ;HD(CH,4) i IFBD(C 

H,4)<0ORHD(CH,4)>50ORi3D(CH,4)>NRTHEN163B 

1648 INPUT-TOTAL EARNINGS FOR THE YEAR" lEYt i IFEyt<0OREYI>200B0BB 

THEN1640 

1658 IFNR;'0THENHD(CH,6)-EY#/NR:HD(CH,5)-{(HD[CH,3}+aD(CH,4))/NR) 
•100 

1660 IFaD(CH,5)>55ANDNR>5ANDHD(CH,3)-0THENHD(CH,ie)-aD(CH,10)-(N 

1678 IFHD{CH,S)>=60ANDNR<6THENHD(CH,10)«HD(CH,10)-(NB*.15) 

1675 IFHD{CH,5)>-5BANDNR<3THENHD{Ca,10)-HD(Ca,18)-(NH*.15) 

1680 IHPUT'EHTER WEIGHT TO BE CARRIED" jHD(CB, 7) : IFHD(CH,7)<80ORH 

D(CH,7) >160THSN168B 

1690 RETURN 

1700 CLS:PRINT:PRINT"EIJTER RECENT WORKOUT TIKE FOR HORSE NUMBER" 

)CH:0¥-'";INPUT"<Y> OR <N>"(OS 

1710 IFOS="N*THENRETURN 

1720 IFOS<>"V"THEN1700 

l-'38 WT=0:WDS=""iPRINT 

1740 INPUT"TIME ",WT 



Program conllnues 



are allocated on this basis, with 
each category being weighed 
according to its importance on 
the outcome of the race. The re- 
sult of this analysis is displayed 
on the screen as a row of statis- 
tics for each horse {Fig. 5). The 
information listed includes 
horse number, speed rating in 
minutes, seconds and tenths, 
average finish position, earn- 
ings per start, total point accu- 
mulation, a numerical compari- 
son ratio, and computed odds. 
In addition, the horse with the 
highest rating will have ' * ' next 
to his odds. The second will 
have **, and the third *. If you 
route the results to a line printer, 
the above information will be 
listed along with the average 
speed rating/track variant total 
for each horse. 

The speed rating Is the pro- 
jected time for each horse to 
cover the distance. It should be 
emphasized however, that the 
horse with the best speed rating 
time Is not always the projected 
winner. In fact, he may not even 
be in the top three. This Is be- 
cause all aspects of a horse's 
past performance are taken into 
account. The horse may have 
earned a good speed rating on 
the basis of one, never to be 
repeated, exceptional perfor- 
mance. The keyword here Is con- 
sistency! 

The columns for average fin- 
ish, percent in the money, and 
earnings per start are self-ex- 
planatory. The column for 
points is the horse's accumulat- 
ed total for all areas of perfor- 
mance. The highest point total 
represents the projected winner. 
It is important to understand 
that each horse's point total Is 
useful only for the current race. 
He would probably earn a com- 
pletely different total when 
matched against a different 
field of horses. 

The column titled Comp is 
used as a comparison ratio in 
the wagering and odds calcula- 
tion routines. It is simply the 
total points for each horse divid- 
ed into the total points allocated 
for the race. The computed odds 
represent what the computer 
thinks the chance of each horse 
winning actually Is. They may or 
may not be similar to the odds at 
race time. 



The wagering suggestions 
are only meant to be used as a 
guide. What the suggestions tell 
you is how strongly the com- 
puter feels about Its selected 
winner. If, for example, the com- 
puter suggests betting $2 to 
place and show on Its projected 
winner, it is telling you that the 
selection is somewhat shaky. 
On the other hand, if the com- 
puter suggests betting $5 to win 
and place on the horse, it is tell- 
ing you that it has a great deal of 
confidence in the selection. For 
those of you who like to see a 
visual representation of data, a 
bar graph routine has been in- 
cluded in the program. The bars 
will show each horse's point 
total. 

Horse Racing Tips 

First, ignore most tips! Peo- 
ple who insist they have inside 
information abound at the track 
like bees around honey. A little 
common sense fs in order here. 
If I were someone who had true 
inside Information, I'd be 
damned If I would tell anyone. 

Don't bet more money than 
you can realistically afford to 
lose. This seems so obvious, yet 
is ignored by more people who 
should know better. Along the 
same line, don't go to the track 
with the idea of making a killing. 
You'll be eating hotdogs and 
beans for the rest of the week. 
Go to have a good time. 

Try to avoid being influenced 
by the odds. There is a great 
tendency {experience speaking 
here) to bet on a horse that has 
attractive odds. If you like a par- 
ticular horse, stick with him. 
Even if his odds go to 2-1, it's 
better to collect $6 than zilch. 
It's amazing how large the size 
of the discarded ticket pile at 
your feet will get by betting on 
longshots. 

Lastly, If you see ads for 
handicapping programs promis- 
ing 80 and 90 percent winners, 
avoid them like the plague. If I 
had a program that picked 80 
per cent winners, I'd be on my 
yacht heading for Bermuda. 
This program, if used correctly, 
will pick roughly 40 percent win- 
ners. That won't buy you a 
Cadillac, but it may pay for a 
couple of those programs 
you've been wanting. ■ 
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, 5)ANDBD(R1,3 
,4)THENCS[1)- 



Progiam continues 

1741 IPHT<lSORHT>4flflTHES174e 

1745 INPUT" DISTANCE ' [WDS: 005081380 : D-WD: I FD = 0THeN: 7 45 

1746 WS'0 

17 5B IFWT>99THENWS-WS*6B:MT=WT-iee:GOT017 5fliELSEWS-WS»WT 

17 6 IFDR<>DTHENWS-1[WS/D1'DR) : RD-D: AT-WS :GOSUB14e0:W3-AT 

177B TT=TT*WS:W0-W0+1 

1798 RETURN 

2BBB CLSiPRINTjPEINT" -- SUBJECTIVE DATA — " 

2010 OS-"'iPRINT!lNPUT'IS JOCKEY IN TOP 5 RATINGS - <Y> OR <N> 

"[OS:1FOS-'Y-THENHD(CH,10)-HD(CH,1B)+(NH*.2) : ELSEIP0S<>"N-THEN2e 

10 

2020 OS-":INPUT-IS TRAINER IN TOP 5 RATINGS - <t> OR <N>*jOS: 

IFOS-'VTHEHHD(CH,10)-HD(CH,1B)+(NH'.3) : ELSEIPOS<>'N"TBEK2B20 

20JB OS-"":INPUT"IS HORSE SHOWING CONSISTENT IMPROVEMENT - <V> 

OR <N>*jOS:IFOS="yTHEKHD(CB,ia)-HD{CH,ie)+(NH'.2) :ELSEIFOS<>"N 
'THEN2I30 

2040 0S-"lI«PUT-DOES HORSE CLOSE CONSISTENTLY IN STRETCH RUN - 
|CY> OR <N>';OS;IFOS'"Y*THENHD(CH,10)-HD(CH,iai + [NH*.3) :ELSEIFOS< 
>"N"THEN2B40 
205B OS-""lIMPl)T"HAS HORSE BEEN IDLE FOR MORE THAN 30 DAYS - <V> 

OR <N>"iOSlirOS-*Y'THENHD(CH,ie)«HD(CH,lB)-(HH*.3) i ELSEIFOSO'N 
"THBN20S0 
209B RETURN 
4flBB BIS-' WIN PLACE Ir SH0W"!B2!=- WIN & PLACE"!B3S-" WIN":B4S=" 

PLACE k SH0W":B5S=" PLACE'jSeS-" SHOW 
4eB5 F0RX-1T04:CS(X1-""!NEXTX 

4flie B7S"'S1B.BB ON t ":BeS-'S5.fl» ON I ■:B9S'"S2.B0 OH # " 
40 28 GOSUB*1BO!GOSUB4200.-G'^SIJB43B0:GOS-IF<'.-.: 
4090 RETURN 

4100 IFBD(Rl,ll)<=NH'.6AMDHD(Rl,10)>HD(R2,lB)t[NB*.9)ANDHD(Rl,3) 
>1TBBNCS(1)-87S+STHS|R1)+B3S:RETURN 

4118 IFBD(Rl,ll)<-NH'.6ANDHD{Rl,10)>HDlR2,la)+(NH',7)ANDHD(Rl,3) 
>«THENCS(l)-BeS+STRS(fill+B2S;RETUBH 

412a IFHD1R1,11)<=NH*.63AIJDBD(R1,1B) >HD(R2 , 10) + (NH' 
1 >BTHENCS [ 1] -B9S+STBS (Rl ) +B1 S : RETURN 

413B IFHDIB1,11)<=NH'.66ANDHD(R1,:B) >KD { R2 , IB) + (KH« 
B9S+STRS(R1)*B1 Si RETURN 
41 4B IFHD(R1,111<=NH*.6BANDHD(B1,IB) >HD { R2 , IB) + INH" . 25) THENCS 1 1) 
-B9S+STR51R11+B3S 

4150 IFHDfRl.ll) <=NH*.7ANDHD(Rl,lfl)>HD(R2,lB)+(NH*.2)THENCS(l)-B 
9S+STRS|Rl)tB4S: RETURN 

416 IFHD(R1,1B1 >HD (R2, 101 + (NH* . 4] THENCS=B9S*STRS (Rl) *B2S :RETl!RN 
:ELSECS11)-B9S+STHS(R1|+B4S;RETURN 

4200 IFBD(f(l,10)>HD(R2,10) + {NH*.25)ANDHD[B2,lfll>-HD[R3,lBl + (NB". 
5) THENCS ( 2 ) -89 S+STRS ( R2) +84 S : RETURN 

4210 IFHD(R2,10)>HD(R3,1B)+(NH*.4)THENCS(2)=B9S+STRS(R2)+B5S:RET 
URN: ELSECS (2). 89S+STRS(R2)tB6S! RETURN 

4300 IFHD(R3,1B)>HD(R4,10)+(NH*,3)AHDHD(R3,11)<=NH'.71THENCS(3)' 
B9S+STRS(R3)tB6S 
43 IB RETURN 

44BB IFHD[fil,ll)<NH*.6ANDHD(Rl,lB) >HD[R2 , 10) + (NH' . 9) THENCS ( 4 ) =ST 
RS(R1)+* -•tSTRS(R2)f ■tSTfiS(Rl)*" -■+STRS (R3) *" ■+STRS(B1)+" 

- ■ +-STRS ( R4) * ■ " +STBS ( Rl ) * ' - " +STB S I R5 ) i RETURN 
441 B IFKD(Rl,H)+BDlR2,i:)+HD(R3,ll) <NH'2ANDHD(R3 , 10] >HD(B4,10)» 
[NH*.7S)TRENCSi4)-"BOX NUMBER ■+STRS(R1)+" -"tSTHS [R21 +" -'tSTB? 
(R3) :RETURN 

442B IFHD(R1,11)*BD(R2,11) <NH*1 .3ANDHD( R2 , 10] >HD(R3 , 10] + (NH* .75) 
THENCS(4)-STPS(B11+" -■■i-STRS{R2)+" '♦STRS(E2)+' -'tSTRSiftl) :RE 
TURN 

4430 1FHD(R1,11)+HD(B2,11)<NH*1.3ANDHD{R2,10)>HD<R3,1B)+(HH*.5)T 
BEHCS(4)-STRS(R1)+" -■+STRS(R2) +■ ■tSTRS{R2) +" -'tSTRS (Rl) +' " 
■fSTRS(Rl)->" --tSTRSlRS)*" ■+STBS(B2)+' -■+STRS (R3) : RETURN 
4440 lFBD(Rl,ll)<NH*,62ANDHD(fil,10)>HD(R2,10)+{NH*.4)ANDHD(R2,10 
) >HD(B3,1B)+(HH*.3)ANDHD(B3,10)>HD(R4,10)+(SH*.5)THENCS(4)=STRS( 
Rl)+' -•+STRS(R2)+" •+STRS(R1)+" -"tSTRS (R3) +" •+STRS(fi2)+" -■ 
+STBS(R3) :RBTUHN 

4450 IFHD(R1,11) <NH* .63ANDHD{B1 ,10) >HD{R2, 10) + (NH* .6) ANDBD(B2 ,10 
)<=HD(R3,:B)*(NH*.3)THENCS(4)'STRS(R1)+* -■+STRS(B2)+- •♦STRS(R 
!)♦■ -■+STRS(R3) :RETURN 
446B CS(4)-'-- NONE --■:RETURN 

SBBB CLS:PRINTe4aB, "COMPARATIVE ANALYSIS IK PBOGBESS.,." 
5B10 FORX-ITONH 
5820 FORY-ITONH 

5B3B IF(HD1X,1)<-HD(Y,1)1 ANI3S3-1THENHD(X,101-HD1X,1B)+1.1 

5 8 40 IF(HD[X,l)<-HD(y,l))ANDS3<>lTHENHD(X,lfl)-HD[X,lB)-t2.1 

5B5B IF[HD(X,9) >-KD( Y, 9) ) ANDS3-1THENHD (X,1B) 'HD (X, IB) +1 

5B6fl IFHD(X,2)<-BD[Y,2)THENHD{X,10)''HD{X,ieH-.6 

5B7B IFHD(X,S) >-HD(Y ,5) THENHD{X,10) -HD{X, IB) t.6 

5080 IFH0(X,6) >-HD(Y,6)THENHD{X,10)-HD(X,li)+.6 

509B IFBD(X,7) >HD( Y,7) +3THEHHD1X, IB) -HDIX.H) -.3 

5095 HEXTY 

5096 NEXTX 



5097 
509B 
5099 
51B0 
5200 
5300 
5305 
5310 
532B 
5330 
5340 
5350 
5360 
5390 
5400 
5500 
5505 
5510 
5 5 20 
5530 
5600 
5610 
5612 
5616 
562B 
5625 
5fi3B 
5635 
5640 
5645 



FORX-ITOHB 

IFHD(X,10)<->THENBD(X,lfl)«l 
NEXTX 

TP-a:FOHX»lTONH:TP-TP+HD(X,lB) : NEXTX 
FORX-1TONH!HD[X,11)-TP/HD(X,1B) ! NEXTX 
F0RX-1T0NH!WC(X)-KD(X,11) ! WN (X) -X iNEXTX 
SS-B!F0RX=1T0NH-1 

IFWC(X] <-WC(X+l)THEN536B 

H1-WC[XI !H2''WN(X1 

WCIX)-VIC[X+1) :HN(X)-WN(X + 1) 

HC(X+1)-H1:WN(X*1)-U2 

SS-1 
NEXTX 

IFSS-1THEN5305 

Rl-WK(l) !R2-HH(2) iR3-WN(3) !R4-WN{4) :R5-HN(5) 
FOftX-lTONB 

TI-0 

IFHD(X,l)>60THENTI-Tl+iaB:HD[X,l)-HD(X,l)-6B:GOTO55i0 

TI-TItHD(X,l) rHDtX.D-TI 
NEXTX 
FOfiX-lTONH 

IFNH>9THENOD-HD(X,ll)*.9ELSEOD-BD(X,ll) 

1FNH>14THEN0D-0D*.9 

IFOD<-3.5THENODS(X)-"3-2' 

IFOD>3.5ANDOD<-4,5THENODSIX)' 

1F0D>4 . 5ANDOD<-5 . 5THEN0DS (X) ■ 

IFDD>5.SANDOD<-6.5THENODS[X). 

IFOD>fi.5ANDOD<-7.5THENODSlX)' 

IFOD>7.5ANDOD<-e.5THENODS{X) 



-•2-1* 
■■5-2' 
■■3-1- 
.•7-2- 
■■4-1' 
IFOD>B,5ANDOD<-9.5THEKODS(X}-*9-2* 
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Programming drive 
you wild? 

We have the high quality programs you demand 
at a price that will please. Send for FREE catalog. 

VTHE BERC WORKS ^351 .. 

Box 742C Mnesvilk, Wl 53547 ^J/ 




SPEAK-EAZY 



t;he 

:human quality: 

"VOICE'* 
for your TRS-SO* that is 
so good you \A/ont believe it 
Phone for demo. ®9Q Q 00 
6 programs on Z U 3 

tape or disk. -f user manual 



-NEW- 
DOUBLE DENSITY 
DISK CONTROLER WITH 
16-K ONBOARD RAM 
FOR YOUR MODEL I. 
NO EXPANSION INTER- 
FACE NEEDED. RUNS 
SINGLE OR DOUBLE DEN. 



-NEW- 
2gy SUPER 
SENSITIVE 
LI6HT PEN 



SIMPLIFY 
TOUR TAPE LOADING 

WITH reload: 

THE 
LED -VU METER 
$ 29. - 



«TRS-80 IS A TRADEMARK OF RADIO SHACK* 
PROGRESSIVE ELECTRONICS .,77 
643 E. CHESTNUT ST 
LANCASTER OH. 43130 
PHONE - 614-687-101? 



^Sm U»t of AOitmttlamn on p%Qt 354 
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LOAD 
80 

LOADS 
EASY 



(SMS) 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 



In the April, 1981 issue of 80 Microcomputing, we in- 
troduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputing. 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of80 Microcomputing are also available with the LOAD 
80 cassettes for $2.50. With the complete documenta- 
tion found in the companion magazine issue, you 
should have no difficulty loading any of BO's major pro- 
grams. 



Ptease send me the following: 
TAPES MAGAZINES 

1-1 April, 1981 C: April, 1981 

G May, 1981 :: May, 1981 

G June, 1981 □ June, 1981 

n July, 1981 C! July, 1981 

11 August, 1981 U August, 1981 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 
overseas, add $i.00 


S9 96 






80 MIcrocomputmg 

add J1 SO loi poslage and 

handling If ordering magazines 


S2.5C 








T 


DTAL 





n Check Enclosed Bill my; O MC ^ AE Z VISA 



NAME __ 

ADDRESS 

CITY ___ 

CARD# 

SIGNATURE 



STATE_ 



__ _ZIP 
_ EXP. DATE. 
INTERBANK*. 



Please allow 4.0 w«e4<s (oi detlvefy 

LOAD eo ■ 80 Pine Slreel • PBlert)Ofoogh NH 03456 

Attn. Debfa Boudfieau 




COMP. 
TIME 



til.t 



AVE. 
FIN. 



1 t" 



IMPS 



EARN/ 
START 



II. I lii.i mill 



COMP. POINTS 
II. I *t.l 



Program continues 

565B IFC[]>9.5ANDOD(-11.5THt;NODSlX) -'^-l* 

5655 IFOt)>11.5ANDOD<-13.5THENODSlX)-"6-l* 

566 B lFOD>:3.5ANDOD<-15.5THENDDSUl-"7-l* 

5 66 5 :FOD>15.5ANDOD<-17.5THENODS(X1 -"8-1" 

56 71 IFOD>17.5AHDOD<-19.5THENGdS(X1 -"9-1 " 

^6 7 5 IfOD>J9.5ANDOD':-2i.5THENCDS(XI -"IB-l- 

56 88 IPOD>21,5ANDOD<-23,5THENODS(X) -"ll-l" 

5 6 B3 IFO[)>23,5aKD()D<-25,5TKENODS|X1 ""12-1 " 

56 85 rFOD>25.5ANDOD<-27.5THESODS(XI -"l^-l" 

56 6 7 IFOD>27.5AHDOD<-29.5THENDDS1X)--14-1" 

56 98 :FOD)29.5ANDOD<-31.5THENODSU)-"15-1" 

56 9 2 IF0D>31 , 5rHEN0DS(X) -'28-1" 

56 9 5 IFX-WN!ljTIIEMODS(X) -ODSl 

56 96 IFX-WN{2)rKENCDS(X| -ODSl 

5 6 97 IFX-Vm[3; THENODS (XI -ODSl 

5699 NEXTX 

5999 PETUHK 

6BBB CLS 

6B1B P1S-' 

682B P2S--H( 

ODDS" 
6138 HSS-"»» 

» »• 

6S4B IPNH<IlTHENPL-inieLSEPL-lI 
6858 1-1 

618B PRINTP1S!PRINTP2S : PRINT 
6185 FORX-ITOPL 

611B PRINT USING MSS ; X,HU (X, 1 1 ,HD ( X , 2 ) , HD ( X , 5 1 , HD( X ,6 ) , HD [ X , 11 
) ,HD(X,181 ,ODS|X) 
612* NEXTX 
6125 IFPr.Jl2THEN614e 

L-NH:CL™GOTO61Br''"^'*'''''''"* ^""^ ^"^ «0HE-,aNPtlTAS.I-13.P 

61*» PHINTf96B,-l-WAGEBlHG 2-GRAPH 3-PRINT 4-MEXr RACE- 

I-.IFNH>;2THENPRI[n- S-RBLIST*) 

6158 O-BiINPL'TO 

6168 IF0-lGGy(:R7BflB 

6170 :FO-2C,CHL'Baa00 

61 SB IFO-3GOSUB98BB 

619B IF0-4THE(IRETUfiN 

6199 G0T06BBB 

7flBB CLSiPHINTiPRINT- 

701H PRINTCSI 1 ) :PHINT( S!2; 

?028 PRlUTiPRINl- EXALTAS' 

78JB PRINTCS{4) 

78aB PRINTiPRrNTiINPUT-pHESS ENTER", AS 

7B9fl RETURN 

HBSa CI.f;:PRINTtiB36,STRINGS(59,CHRS|14B) ] , 

Rr»T p = l!:T^^r'-"''^'" '>'"'"'«-l™l'»'P«INTI,,NEXTX, PRINT- 2-,,P 
RINT:PRIhT-Kt ';iFGRX.lT09iPHI»TX,,NBXTX 
8828 FDHX-eT09.PRINTXj!NEXrX:PRINTe, 
6838 PRIKT^B.-TH ■( STRINGS I 55 ,'-■ ) 

"|ETHINGS(59,"-"] 

"lSTRISGS(59,'-") 

■ ii;TRINGS(59,"-") 

•;STRINGS(B9,»-*) 

■;STRINGS(59,'-") 

"lSTRINGS(59,"-«( 

■lSTRlN<;S|59,'-') 

■;STRISGS(59,*-") 

';.'iTRINGS(59,'-") 

■(STHII*GS(59,"-") 

';STRINCS[59,'-") 

■;STRINr,S(59,"-") J 



WAGERING ""iPfilNT 
:PB!HTCS(3) 



K831 PRINTe64,"72 
BB32 PRINT§12H,'66 
«BJL PR:NTfil92, '68 
BB36 Pk;ntP256 , "54 

8837 PBlNT^JSfl.MS 

8838 PR1NT§384,"42 
BB40 PRlNTe448,*36 
'■(B'.B PR:ntS512, "38 
B06B PKr!JT(l'i7 6,'2fl 
6863 1-RIMTP640 , "18 
8865 PRINTp7B4,"12 
aB7B PRIVTe76B," 6 
dieB tllRX-lTONH 

H105 itHD[x,181<-a8THENHP.HDIX,ie>ELSEHP-e» 

81 !B FCPi'-4»TO(4»-(HP/2))STEP-l 

8I2B SET((X»61t2,Y) 

B13B NEXTY 

lil4B NEXTX 

8158 AS---:IFINKEi;S-"'THEN815B 
89y9 RETURN 

^?S\.^^^ii^^^"'^"^^''^^'™'''''P"^'""''*^'"'''«I"TER NOT READY - PR 
ESb fcNTER ;: rNP[;TAS:RFTUKNELSEPHlfJTg410, -PRINTING 
9BB5 PHS--COMPARAT;vE ANALY.SIS FOR RACE NUMBER 



AVE. 
FIN, 



II. i 



iwps 



EARN/ 
START 



llt.t MUM 



SR/TV- 
AVE. 



III. I 



COM 
It. 



9B18 P1S-" COMP. 

9B2B P2S-"H( TIME 

P. POINTS ODDS' 

9B30 PLS--M IK. I 

• Mt.l I 

91 8 8 LPRINT:I.PRINTTAB[2B) PHS;RN 

9118 1.PRINT;LPR:NTP1S;LPRINTP2SiLPB]NT 

92B8 FORX-ITONH 

9228 NEXTX 

9238 LPHINT:LPRIHT;LPRINT 

IN^CSl'fiLPRINT* "*'=^« = ''« —'l-PRINT.LPRINTCSat.LPRIOTCSCSj.LPR 

9258 LPRINT- EXACTAS" : I.PRINTCS ( 4) iLPRINT: LPRINTiLPRINT 

9298 RETURN 

11888 CLS:PRINTTAB(15)'— CLASS TABLE --.PKINT 



11818 PfiINT-<3> A LOT 

1182B PRINT-<2> MODERATE 

->> 'JP IN CLASS" 

11838 PRINT-<1> SLIGHT 

11848 PRINT-<8> EQUAL CLASS 

11858 PRINT-<'-l> SLIGHT 

llfl6B PH!NT"<-2> MODERATE 

->> DOWN IN CLASS" 

11878 PPINT-<-3> A LOT 

I1B97 PHINTSTHINGS(63 , "-"I 

11B99 RETURN 

11588 PRINTTABdSI ■— SAMPLE DISTANCE CHART — -iPfiINT 

11518 PRINTTABI 5J-3F 5F 7F !¥ 

3/SM" -^^ 

11528 PRINTTAB[5) "3.5F 5 . 5F 7 , 5F IM 

1/2M" 
11538 PRINTTAH(5)'4F 6F 7 75? 

3/4M" 
1)54B PRINTTAa|5)"4,5F 6 . 5F 1M 

M" 
1155B PRINT!PRI|JTSTRI»GS:63,"."| t PRINT iRBTORN 



■,CHRSI1491 

"|CHRS|1491 ;CHRS{149) , *- 

■;CHRS|149) 

"ICHHSI149) 
■;CHRSa49]iCHRS1149) ('- 

■;CHRS1L49) 



I l/SM 
1 1/4H 
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WowJ a'e caw o^^e^ {^cLtt^A and 
IncXucfing UPS upon 'leque-Si.' 



PUALCASE* 

UPPER/lowercase, full time from power-up; 
NO software; Standard typewriter keyboard 
operation (shift to UPPERCASE); Control cliarac- 
ters can be displayed; 128 Total character set 
plus full graphics. 

SWITCHABIE* 

No switches. No driver. Operates from key- 
board. Totally disables "PATCH" functions. 

KEYBOARD DEBOUNCE" 



Extra keyboard debounce, fuil time from 
power-up; NO software. If dirty keys are a prob- 
lem, this is for you. 

BLOCK CURSOR* 



Replaces the underline style cursor directly. 
Easier to locate on a full screen. No distracting 
blinking. 

SHORT CASSETTE LEADER* 



For tape based systems. Does NOT change 
baud rate. Only shortens recorded leader. Saves 
four seconds of waiting time. Great for data files! 
No conflict with high baud rate cassette systems. 

ELECTRONIC SHIFT-LOCK* 



No extra keys or switches. Simply tap either 
shift key, UPPERCASE lock, normal shift unlocks. 

TRS-80 is a Trademark of Tandy Corp. ORDER 



"THE PATCH" is not only a lowercase modi- 
fication, but a complete system offering many 
of the enhancements you would like available on 
your TRS-80. How is this possible? "THE PATCH" 
is a "smart chip" which monitors the same ad- 
dress lines as the ROM in your TRS-80 Model I 
Level 11. "THE PATCH" recognizes certain ad- 
dresses, turns off the Lll ROM, then substitutes 
its' own byte of data. This "Patching" is what 
allows ALL these enhancements with NO soft- 
ware overhead, thus NO software conflict. In 
fact "THE PATCH" is the ONLY lowercase modifi- 
cation that is compatible with both Basic and ma- 
chine language programs AND the ONLY all 
hardware lowercase modification. 

You install "THE PATCH", no need to send 
your TRS-80 away so there's no hidden installa- 
tion cost. Detailed instructions guide even the 
most inexperienced owner to complete installa- 
tion in about 30 minutes. Works with the two or 
three chip ROM set. "THE PATCH" unit plugs into 
the ROM sockets (does not replace existing ROM). 
Lowercase does require installation of the extra 
video RAM (supplied with "THE PATCH"). 

"THE PATCH" is compatible with any word 
processor, any DOS and also other languages 
which use ROM sub-routines. "THE PATCH" is 
never obsolete. As new features become avail- 
able they can be installed in your "PATCH". 

"THE PATCH" is covered with a one year 
limited warranty on materials and workmanship. 
(Does void Radio Shack's 90 day warranty). Ask 
for details . . . we can install for a small fee. 

CECDAT, INC. 

p. O, Box 497 
Hayden Lake, ID 83835 

'THE PATCH" is a trademark ot CECDAT, INC. 



CALL NOW 
(208) 772-9571 



INFORMATION 



Name 
Street 
City .. 



State 



ZIP 



Signature — 

D Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase Order* {add 3%) 

Card/PO No - - 

Expiration Date Today's Date . ... 

You must check one: 

n "MEM SIZE" □ "MEMORY SIZE" 

Price valid through December 31. 1981 



"THE PATCH 2" Switchable C" $94.97 ea. 

OPTIONS: (please check) 

□ "Electronic Shift-Lock" Add $30.00 
n "Short Cassette Leader" Add $10,00 
n "Block Cursor" No Charge 

□ "Debounce" No Charge 

Ship. & Hand. @ 2.50 ea. 
COD ADD 5% . . . . 
ID Sales Tax 3% (Id Res) 
TOTAL ORDER .... 



'Sm UtX ot JitfMrtJsvra on pag* 354 
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EDUCATION 



Modify ISFs teacher program for network operation. 



Teacher Mod 




Madeleine Fish 
Grant Union High School 
1400 Grand Ave. 
Sacramento, CA 95838 



In this article I present a very 
simple modification to Instant 
Software's Teacher program. 
The changes enable a teacher 
using a network system to for- 
mat a lesson using Teacher and 
then send all the questions at 
once to a classroom of com- 
puters via the network. The pro- 
gram as sold cannot be used on 



the network. The original format 
requires each student to individ- 
ually load questions from tape. 

Once you make these changes, 
save the two programs (original 
and modified) on tape or disk. 
The questions must be stored on 
tape using this program. 

The Teacher requires a two- 
step load with the first program 
being the logo. Save the second 
program on a tape or disk. It is 
this program that we will modi- 
fy. We are going to create a pro- 
gram to load our questions 
through the network by making 



the following changes: Delete 
40,50,90-560,580-1 630,21 60- 
3420. Add these lines: 



60 CLS:INPIJT"DO YOU WISH TO INPUT 

DATA FROM A CASSETTE (ANSWER NO 

IF WISH TO SEND ALREADY LOADED 

QUESTIONS TO THE NETWORK)";BB 

85 IF BB = "NO" THEN 569 

570 INPUT-PRESS ENTER TO SEND 

YOUR QUESTIONS OUT TO THE NET- 

W0RK"^2: GOTO 1640 

1640PRINT#-1,BT 

1642 PRINT #-1,N,BN 

1650 FOR = 1 TO N 

1660 PRINT#-1,A(Q),B(Q):PRINT @ 576, 

•■QUESTION";Q 

1670 NEXT Q 

1680 GOTO 60 

2140 CLS:GOTO 570 



The procedure for using our 
new system is as follows: 

• Create a question tape fol- 
lowing exactly the directions 
supplied with the software, 

• Load into your control com- 
puter the original unmodified 
program that was saved (pro- 
gram as sold without the in- 
itial logo program). 

• Send this program via the 
network to the students' com- 
puters. 



• The students' display will 
ask if they want to load from 
tape. They (or the teacher) 
should respond with yes and 
follow directions as if a tape 
load was to follow. 

• Load the shortened modi- 
fied program into the control 
computer. Follow directions 
and load your question tape. 

• The computer will then in- 
struct you to depress the Enter 
key when you are ready send 
out the questions via the net- 
work. 

There are some disk-based 
authorware systems available 
for theTRS-80. They will also pre- 
sent a problem as far as the net- 
work is concerned since we are 
transmitting information through 
the cassette port and the speed 
of our information transfer is 
necessarily slow. 

This is by no means an ele- 
gant or complete authorware 
system, but for an investment of 
$10, teachers can begin to cus- 
tomize lessons for their students 
and specific educational pro- 
gram. ■ 
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Are my TRS-80* business systems really that good? 

Michael Tannenbaum thinks so. 

Here's what he said about my Model II 
systems in the August "80 Microcomputing." 



On the General Ledger's ability to file and report; 

"...the best I have yet 
seen in a microcomputer 
system." 

On the Accounts Receivable system: 

"...clear and simple to 
follow; 



fv 



ift 



99 



...the first time I have 
seen this feature in a 
microcomputer system.' 

(referring to its ability to calculate a salesman's commission) 



On our policy of customizing our systems 
to each buyer's needs: 

"...Taranto does his 
customers an enormous 
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service. 



And on our systems in general: 

"...a comprehensive and ivell-documented 
system, an impressive product at a very 
reasonable price." 



Thank you, Michael. 



Taranto 

& ASSOCIATES, INC. ^45 

The Total System Store. 

121 Paul Drive. San Rafael CA 94903- 

Outside California. toU free (800) 227-2868- In California. (415) 472-2670. 

Authorized dealers throughout America. 



^SM U»t ofAd¥9iV$»n en pag* 3M 
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TM 



fJlC-T0C 80 

"Micro Clock 

Pur o wrist worch on your Computer. Gives Time, Dore. 
and Doy of week, wittiout the need of operafof input. 
Runs on Dotreries, so if never needs to be reset. Gives 
you the obility to enter data with the knowledge that 
the Dote and rime ore correct. Includes complete 
documenforion. ond somple routines. 

Mod I Version $99 .CX) 

Mod III Version $109.00 

NEW DOS PLUS SUPPORTED!! 



LIGHT PEN 

Model I & II Light Pen. Needs only o 9 Volt Dotrery. 
AtToches through the cassette recorder for ease of 
operation. Eosy to use and progrom. Comes complete 
with hordwore and extensive documentation and 
sample routines. All this power for only S 1 9.95 



LYNX MODEMS 

Expond your horizons, allow yourself to communicote 
with other computers, ond for others to communicote 
with your computer!! Now this is easy to do with the NEW 
Model I 6 III LYNX Modem with AuTo Answer/Dial 
features. Needs no R5232-C Doord instolled in the TRS- 
flO'".Full 1 year worronry. All this for only .... S299 95 



UNITERM 

UNIVERSAL TERMINAL PROGRAM 
by Pete Roberrs 

The first ond only fully intelligent terminal program for 
BOTH Mod t and Mod III users! Includesoll features found 
in Terminal programs costing MUCH more, plus many not 
found anywhere else. Includes extensive 
Documentotion ond handsome binder. 
Price $79.95 



RUN YOUR OWN 
COMPUTER BULLETIN 
BOARD 

Become a CONNEQION-SO SYSOP (System Operotor) 
with a LYNXModem. and CONNEaiON-SOBDS Progrom 
by Tom Vonde-Stouwe 6 Rich Toylor. All for only |399 
($1 00 off regular price). 

CONNEQION-flO BBS Alone $199.95 

LYNX Auto Modem Alone $299.95 



DOS PLUS 



MODEL III MEMORY KIT 

Upgrade your Model III to 02 or 46 K with the RIGHT 
Memory Chips. These ore Prime 150ns (Fosri!) chips 
Beware of slower chips. osfurureMod III upgrades moy 
nor work wirh rhem! 
1 6K ser t^ c nn 

^2K- :::::::::::::::::::s^^ 



This is rhe BEST Operating System currently ovoiloble for 
the TRS-fiO'". It offers you all the features you could ever 
use, speed, reliability and much more.Avoilableforrhe 
Model I ond III. Single ond double density systems 
ovoiloble. Only 99.95 either system. 



COPY Ml byDickBolcom 

Load in rhe 500 Baud sysrem ropes in 1 /3 rhe rime wirh 
Copy III. This urihry will read in your 500 baud sysrem 
tapes, ond then wrire rhem our or 1 500 boud This qives 
you backup protecrion as well o speeding up your ropes 
AmusrforollModellliCosserreusers" 

SPECIAI ^W;.CT3. 



CASOP 

^H ^i?'' ""'''^ *'" °"°* ^"^ '° "Py ^/"e^is rapes 
Z^^Z °"''' '^^°^°'^ P'°5'°'" blocks ond merge 

ro;x?Tx;es°^"'^'-^°^;'°-""''~ 



UTILITY PACK 

by Mike Friedman 

FOR THE SERIOUS TR5-S0^" USER 

CONTAINS: 

Igooler: Very fost. Allows poge porometers 6 Perf Skip 

This spooler ollows you to switch Dos's without 

Inteojpting printing!! 

Erase: Super progrom. purge utility with mony modes of 

operation. You will never use KILL ogain" 

^& Ptoces a sector mop of your disk on the saeen 

Shows free, used and locked out qrans 

All for only j^^ ^^ 



MODEL III DISK DIREQORY 

PROGRAM byDillMoxey 

CotalogueyourDisketreswiththlseasytouseCatoloQue 
P^??;?7;^°;,Model m Disk systems. Con run on os litrllos 
a 32K 1 Disk system. Helps you keep trock of ALL of your 
programs. ' 

Q^^^ S19.95 



171 HowklnsRoQd^-22 
Cenfereoch, New York 11720 

(516) 981-8566 (Voice) 
(516) 588-5836 (Data) 
MNET-70031 105 




Dealer Inquiries Welcome 

Add S2.00 s & H 
NYS res. odd oppr. tox 
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AMBE 



EYE FATIGUE- Much 
discussion has token 
place regording 
screen Color and 
controsr. Extensive 
reseorcli has 
produced o 
breoktlirougli in the 
prevention of 
Operator Eye Fotigue. 




Amber has been found 
to be much more effec- 
tive in preventing eye 



TM 



fatigue than any other 
color. Put on Amber 
Eoze Filter on yourTRS- 
60'" or any other 
computer monitor. 
Contoctone of the 
dealers below. 

Model I S19.95 

Model II & III.. $24.95 
Other Computers Coll 



■\ 



The Copyright Kit 

How ro Copyright your Computer Sofrwore' 



A self-instruction 
booklet on 
copyrighting the 
computer programs 
you write. INCLUDES: 
Step by step 
instruaions, sample 
forms. OS well os 
discussions of 
copyrights, potients 
ond trade secrets, your 
rights secured by 




copyrights, legol 
remedies upon 
infringements, 
moteriol not 
copyrightoble and 



MUCH MOKE! Written 
by Attorneys. 
Published by Norionol 
Attorneys Publicotions 
Inc. ond distributed 
exclusively through 
D.T. Enterprises and 
available from the 
deolers below. IF YOU 
EVER WROTE A 
COMPUTER PROGfWv^, 
YOU NEED THIS BOOK!! 



Available At 



Oreeze Compuring 
P.O. Dox 1013 
DerWey,MI4fl072 
313-288-9422 

Programs Unlimited 
20 Jericho Tpke. 
Jericho, NY 11 753 
600-645-6036 

ConrempororyCommCorp. 
5562 Corel Way 
Hoslert. Ml 46840 
517-339-1028 



Computer Mogic Inc. 
1 1 5 Welrshire Ave. 
Louisville, KY 40207 
302-893-9334 

Son John Enterprises 
P.O. Dox 1671 
Freemonr.CA 94536 
415-651-4147 

Stevens Rodio Shock 
562 Nun Rood 
Phoenixville. PA 19460 
800-345-6279 



All Systems Go 

lOSW.PlonrSt. 

Winter Gorden.FL 32761 

305-677-2830 

DobsT.V. 

93-1 5 66rh Drive 

WoodhQven, NY 11421 

212-441-2807 

Soft Sector Marketing 
6250 Middle Belt Rd. 
GordenCiry, MI46135 
313-425-4020 



CPU Computer Corp. 
175 Main Street 
Chorieston. MA02129 



Computer Serv. of Donbury 
P.O. Dox 993 
Donbury. Ci.06610 
203-744-5516 

Omni Systems Associotes 
P.O. Dox 632 
W.Coldwell.NJ 07006 
201-226-9165 




171 Hawkins Rood ^ ij: 
Cenrereoch New York 11720 
(516) 961-8566 (Voice) 
(516) 588-5836 (Doro) 
MNET-70331, 105 



Deoler Inquiries Welcome 

Add t2 00 S H 
NYS tes odd appi rox 
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UTILITY 



Though not probable, it's possible. 



Serial Printing 
With EDTASM-Plus 



Howard H. Cohen 
1204 Branch Lane 
Glen Burnie, MD 21061 



After purchasing a Microsoft 
Editor/Assembler-Plus I 
wanted a printer for hard copy. 
After months of waiting i bought 
a used Selectric terminai and 
Smaii System's TRS232. How- 
ever, to my dismay the Microsoft 
EDTASM Plus does not support 
seriai printers and there is no 
company policy to integrate the 
two products. Therefore, I had to 
iritegrate thenn myself. 
.Using Small System's RSM 
Monitor I searched, moved, and 
changed some locations suc- 
cessfully. These changes as- 
sume you have the following 
software and at least 32K of 
memory: RSM Small Systems 
Monitor, Microsoft's EDTASM 
Plus (version 1.06) and the 
TRS232 Formatter software. If 
you do not have the Formatter, 
get it. It's well worth $14.95. 

Run EDTASM Plus and l<ey in 
the Formatter program from the 
supplied listing. While you are 
keying in Formatter, you must 



change the parameters that you 
would normally change using 
the Basic load version (e.g., 
BAUD, NULLCT, etc. I have the 
newer Model I TRS-80, therefore 
I don't use the keyboard de- 
bounce program in the Format- 
ter. With a bit more work, inte- 
gration of the debouncer could 
be accomplished.) Add the code 
in Table 1 in front of the start 
label. Add the following End 
card at the end of the Formatter: 

END PRNTDR. 

Then assemble the new For- 
matter with: A NEWFOR 
/MO/WE/ and record it on 
cassette tape. 

Next, reload EDTASM Plus 
but do not Enter. Load in the 
RSM Monitor at ACOOH and ex- 
ecute it. Enter the following 
commands: 

E4561 Change the 3B to 81 

E 4562 Change tfie 00 to 72 

E4459 Change DD to F7 

E 4460 Change the 71 to 73 

Now load the tape you made 
{system '? NEWFOR). Go back 
to RSM (SYSTEM *? /44032) 
which was loaded ACOOH. Issue 



the following command to 
create your composite program 
tape: P 4380 73F7 4380 ED- 
TASM. (The last step can be re- 
peated to record two copies.) 

Next, load your new program. 
Turn on your serial printer and 
print away. 

Note the two key addresses 
(above) in EDTASM Plus, 4561 H 
and 4459H. Address 4561 H is 
where the printer driver is called 
and 4459H is the address that 
sets up the start of the EDTASM 
Plus text buffer. The address at 



4561 H was changed to call the 
new printer routine. The address 
at 4459H was changed to allow 
the Formatter to become part of 
EDTASM Plus. 

It is important to note tfiat 
once the EDTASM Plus and the 
TRS232 Formatter are merged, 
the Quash function in EDTASM 
Plus should not be used. If it is, 
It will cause EDTASM Plus to 
make an error. The code will call 
the Formatter that was quashed 
along with Z-Bug or the Assem- 
bler. ■ 



ORG 


7281 H 


, ORG THE FORMATTER BEHIND 
THE EDTASM + 


PRNTDR PUSH 


AF 


; SAVE ALL EDTASM + 'S REGISTER 


PUSH 


BC 




PUSH 


DE 




PUSH 


HL 




PUSH 


IX 




PUSH 


IV 




LD 


C,A 


; MOVE THE CHAR TO C-REG 
WHERE TRS232 IS EXPECTING IT 


CALL 


START 


; CALLTRS232 


POP 


lY 


; RESTORE ALL REGISTERS 


POP 


IX 




POP 


HL 




POP 


DE 




POP 


BC 




POP 


AF 




RET 




; RETURN TO EDTASM + 

Table 1 
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SUPER MICRO-PRO CESSOR FOOTBALL 



-.r.^: -t r:» iDfiF-j-t^ - i 



: .1 a zi ii "fit ^ i :i :i 
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lint ^ [5 vcds aFfr'is:v; blpv hmi 



i;i.[!a IS siiWtlNG - T:it ItnOINiNC U : .^ ■ PUK TIMSP c 



AnitnaiBfl Graphics Game Tinie Clock 

i48K-32Kl Avarlable for TRS80' Lll Ml nr M3 
48K DISC ^22 95 - 32K DISC M9,95 (48K 
has more of ftvervlhinc)'''! ^^^ 

16K DISC OR TAPE n2.95 

Many more super procjrams Please writt^ lor 
tree Irslmy and program tlftHi's 

Attentions Software Authors— We want good 
programs Tnp royalty |ilnn Dealer inquiries 
weicortif^d 

' TRS80 IS a Reg Tradtemark ot Tandy Corp 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Cumming, Georgia 30130 



•— $$ DISCOUNT PRICES $$ •— 

SCOTCH DISKETTES 

Soft SttCtor - Singia [>ansity - 5V. Inch 

32% l«ss ibtaslv* than the industry awaraga. 

Soft box olio $27 96 

Storage box o( 10 S28 95 

3M Disk Drive Cleanmq Kit (5 v. incti) S22.95 
snipping & insurance for each box/kit $1 .00 
TRS-80 SOFTWARE 
Ds8lgn«d/t«sted with TRSOOS & NEWDOS-t- 
Requires 16 K and on* disk driva uniass notad. 
Software pricas Includas shipplrtg & Insurance, 
Diractory Librarian with diskelte order S9.00' 
Reads directofies ol up lo 99 diskettes. Main 
tains a master lilarary of names and tree grans. 
Fast sorts. Supports printer Req's 48K. 
Typing Taactwr with diskette order MOO* 

Teaches touch typing. Letter, word, and para- 
graph eKercises, Monitors typing speed. 
Math Drills with diskette order $2.00- 

Prints personatized practice worksheets (or 5 
lypes of matfi problems. Ages 5-9. Req's MX80. 
Qama Pack W1 with diskette order S2.00' 

Exciting arcade games - Duel, Race S Ma^e 
All tour programs with diskette order $14.00' 
'without diskette order add $5 00 for 1 or more 

EPSON MX80 PRINTER 

80 chars/sac 9x9 matrix - latter quality 

Epson provldas 90-dey warranW tor MXSO 

- Regular tractor model w/TRSSO cable $519 00 
■ FrictionyTractor model w/TRS80 cable $619.00 

- Shipping & insurance (10.00 

- Friction Feed Adaptor (incl. shipping) 554,95 

PAPER & LABELS 

special proposal quality paper • pin tad 
Pure white 20 <b. bond with watarmarfc 

- Box 0(2300 sheets- 9 Vj m inch $37.00 

- Shipping & insurance for each l>ox $9.00 
Pressure Sanslllve Labels 

- Box of 5000 labels- 3 Vt x 7,iinch $19,00 

- Shipping & insurance for each box $4.00 

SUPER SPECIAL PACKAGE 
Everything In this advertisement! 

Diskettes (1 tx)«), cleaning ktt. MX80 (w/cable- 
add $100 for MX80FT), all software, paper & 
lat)els (1 box ea). Includes shipping. $649.00 

JBL 9B Visa and Mastercard accepted. 
Michigan residents add sales tav. 

THE COMPUTER ANSWER ,.471 
P,0. Box 573 T 
Blrmlngtijim. Michigan 48009 
(31 3) 642-4338 (Order Phone • 24 hoursJday} a 



CANADIANS 

NOW IN STOCK 
ACORN SOFTWARE 

PINBALL 

BASKETBALL 

INVADERS FROM SPACE 

Super action with SOUND 
& Machine Language SPEED 

Each avail for Mod 1 on 
CASS $19,95 DISK $24.95 

SYSTEM SAVERS 

Will copy SYSTEM TAPES 

onto DISK or Cassette 
Mod 1 DISK SYSTEM $19,95 

MEMOREX 5V4" DISKETTES 
$5.50 ea 10 for $50.00 

MORE TO COME (& Mod 3) 

SEND FOR FREE INFORMATION 

We accept VISA 

CMD MICRO ^459 

PC BOX 1212 

EDMONTON, ALBERTA 

T5J 2M4 



STOCKCHART ■ I 

MORE THAN JUST A COMPUTER PROGRAM 

IT'S AN INVESTMENT TOOL 



•written for TRS-80' model-l 
•requires 16K RAM lor cassette, 32K 
RAM & 1 -drive for disk version 
•printer option 

•disk version $50,00 

• cassette version $30.00 

to order, send check, money order, or COD 



to: 



HJS. 



— Micro- Investment Software 
9621 Bowie Way 

Stockton. CA, 95209 ^46 



APPLE ir & ATARI 800' version available 
soon, write tor more intormalion 

- rw o' Tantjy Cofp . ^pple ComoiJtef Aran 'especltvely 




• generate price-chart from HIGH, LOW, & 
CLOSE PRICES 

• price-trend analysis assist investors in 
BUY/SELL decision 

• auto scaling for price-chart generation 

• accept fractions, allow users to enter 
prices as appear in newspapers 

• SPLIT routine to adjust prices for stock 
split 

• EDIT capability lor users lo change 
price data 

• STATUS mode lo display pnce-Irend 
signals 

• PURGE utility to delete unwanted data 
from disk (disk version only) 



GET THE PRICE ■ TREND PICTURE 



WITH 



STOCKCHART - I 



DEALERS INQUIRIES INVITED 



^ 5«a U»t of Jlcfvartfsars orr pa0« $$4 
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REVIEW 



An improved operating system for the Model IL 



Snapp's XBasic 



Rick Lederman 

3375 Airport Highway 

Toledo, OH 43609 



The Snapp Inc. advertise- 
ment promised "the best of 
Apparat's features in im- 
plementing NEWDOS Basic". 
After one phone call, one 
plastic cash number and three 
days, my disk arrived. 

Snapp's installation Instruc- 
tions are clear and it takes only 
a few minutes to modify a disk. 
To my amazement the software 
worked as good as or better 
than the ad claimed. 

The first of XBasic's modules 
are designed to reduce the 
number of keystrokes that are 
required during programming 
or software modification. 

There are the six single 
keystroke commands: The left 
arrow Mats the first line of a pro- 
gram; the right arrow lists the 
last line of a program; the up ar- 
row lists the previous line; the 
down arrow lists the next line; the 
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lists the current line; and the 
comma edits the current line. 

There are also 10 abbrevia- 
tions for commands: 

A Auto L List 

C CLS M Merge 

D Delete N New 

E Edit P Llist 

KKilJ S System 

Listing and editing your pro- 
gram becomes a piece of cake 
if you need only type the left ar- 
row (list first line) then type the 
right arrow (list next line) while 
holding the Repeat key. This 
causes the program to list until 
you release the Repeat key. 
Then type a comma and you are 
in the edit mode for the current 
line. That is much quicker than 
typing LLIST (enter) then 
(Break) and edit (line number). 

The Model II DOS 1.2 also re- 
quires that you enter System"l" 
immediately before swapping 
disks whereas DOS 2.0 requires 
that you enter System"!" after 
swapping disks. The abbrevia- 
tion S"\" Is appreciated. 

The next and, for me, the 
most valuable routine is XREF, 
Snapp's cross reference facili- 
ty. This utility Is similar to Ap- 
parat's in that you may list 
references to the screen and 
printer and list references to 
line numbers or integer con- 
stants and variables. But XREF 
also places an asterisk in front 



of any line number not an in- The enhanced renumbering 



teger constant. It also places 
the asterisk before line num- 
bers during the variable listing 
if the variable is modified in 
that line. 



facility corrects some prob- 
lems with Radio Shack's Re- 
number and allows you to 
specify an upper limit on a 
block of lines that are to be re- 
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1 DEFINT J-LiOIKA5(12):PI. 3. 1415927 

2 IFPI>3THEN4ELSEPI"PI15 

3 G0TO2 

4 P0RX»-lT01fl:AS(X%)-STRS(PI*Xll!NEXTX%tBS-"»01( PRIRT IWE HIAY' 
PI.INT8S = FOfiX».lT012:PBINTAS(X,) X%:Be"«:eNO 

5 REM ...*. XBTEST *•••• 

It ™ * PfiOGRAK TO DEKONSTRATE SNAPP, INC. XBASIC 
20 REM FOR THE TRS-BB NODEL II '■•"aix. 

is ™ ^"^^ PROGRAM IS DESIGNED TO 00 SOraiHG 

5B DEFINTJ-L 

6fl DIHAS(12l 

79 PI-3, 1415927 

BB IF PI>3 THEN GOTO 108 ELSE PI-PIIS 

9« GOTO 8i 

1>» FOR X%-1 TO 10 

11> A$(X%)-STR5(PI*Xt) 

121 MBXT St 

131 BS-'IIOM PRIWT THE ARRAY' 

140 PRIKT BS 

150 FOR X»»1T0I2 

168 PRim AS(X%)|X% 

170 tlEXTX% 

1B0 END 



Program Listing 1 



^^^^^^^^^^^H 


^^^^■^^■1 


Ji^B^^^I 


■^^^^^^^^^^H 


^^1 


j2d 
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ilL 


[^^1 


FEATURES: 

1} Radio Shack compatibility 

2) Erfor tree variable length records 

3) Full iower case dflection and support 

4) Repeating keytioard with NO keytjounca EVER 

5) Shift |0| typewriter keyboarO option 

6) Execute only protection feature for BASIC programs 

7) Automatic track support tor 35 through 80 track drives (mixed) 
S) Device I/O handling with FORCE command 

9) Supports high speed ckick modification (up b 4 Omhz) 
10) Supports mixed mode (single & double density) automatically 
11} Allows disable-enable ot break key 

12) Allows user to define step rate per drive and re-contigure system disk 

13) Allows for efficient use of double-headed drives 

14) Built in screen printer (shift [CLEAR]) with [BREAK] key abort 

15) Multiple command chaining with "DO" 

16) Built in memory lest with CLEAR command 

17) New printer driver wtiich altows complete forms control and paging 

18) Automatic serial printer driver with optional auto linefeed 

19) Execute any DOS command from BASIC and retum to BASIC 

20) Free space map of diskette with optional output to printer 




DOSPLUS grves you more of what you buy an opera- 
ting system for. Speed and reliability without sacrificing 
simplicity and power. If you need extra power wtthout 
extra wait, then you need DOSPLUS! 

Single or double density systems available fpr ^odel i. 
Model 1 1 1 DOSPLUS ready for immediate delivery. j 

Perhaps the best investment you can m^ke for yourl 
TRS-80! List^ to what others have had to say nhout 
DOSPLUS. 

"Overall, DOSPLUS la the fastest operating aystam 
1 have seen..." 

PeteCarrlnaO-USJot^nai. 

& ^' ^ 

P'008PUJ8..,thabettermousetrap." 

Stewart Fason in 80-Mlcrooomputing^ 



21) Copy with variable length files 

22) Complete RS232 control from keyboard with status ctwck 

23) Create and pre-aiiocale files from DOS 
24| Display curent date and time from DOS 

25) More information Irom Directory with optional printer output 

26) Enter DEBUG with shrtt [BREAK] to allow use of [BREAK] from BASIC 

27) New DISKDUMP/CMD sector display/modify program (works with filespecs) 
26) New DISKZAP/CMD single/double density disk editor 

29) New BACKUP (more reliabie, no more pack ID check) 

30) New FORMAT (more reliable, no need to bulk erase disk first) 

31) fJew MAP utility (maps out disk, showing where files are tocated) 

New DOSPLUS Z80 Extended Disk BASIC 

1) Faster loads and saves 

2) BASIC Reference utility (lines, variables, keywords, primer optkjn) 

3) BASIC Renumber utility (renumber section of text, block text move) 

4) Shortfiand features for almost ANY direct command (LOAD SAVE, etc ) 

5) Shorthand features for editing (listing and editing witfi single Key) 

6) CMD"M' instantly displays currently set variables 

7) Global search and replace in BASIC texl 

8) Line printer TAB lo 255 

9) OPEN "E' lo end ot sequential file (for output) 

10) Dl (delete and insert text line) 

11) DU (duplicate text line) 

12) ' R' & .V options after LOAD and RUN (files open & save variables) 

13) OPEN' D ■ allowed (Model II compatible) equal to OPEN'R" 

14) DOS commands from BASIC 

lb) Automatic, error-free vanable length records 

16) Single step execution with TRON (fabulous for debugging) 

17) CRUNCH (BASIC program compressor) 

16) New TBASIC (tiny BASIC) offers full BASIC commands 

19) TBASIC and DOSPLUS together only use8K of RAM (40K left in 48K TRS-80) 

***** 7 IWORE untmES ***** 

1) Single dnve copy 

2) Restore (dead files) 

3) Purge (unwanted tiles) 

4) Clearfile (destroys data by writing zeros to file) 

5) Transfer (moves all user tiles from one disk to another) 
5) Spooler (allows printing of text while freeing up the CPU) 
7) Crunch (Basic program compressor) 



ALSO 



prOn a scale of 1 tolO, I give DOSPLUS a sdld 9l*' 

■* Reese Fowler in 80-Microcomputing 
{Model IK DOSPLUS review) 
For the BASIC programmer, our features are un-; 
■"^ matched. For the average businessman, our speed and^f 
. simplicity cannot be beat. 

So, join the satisfied users who have joined DOSPLU! 
excellence! Experience DOSPLUS! 




)SPLUS comes complete with full utHltlas, PLUS 
a FREE patch to enable Modal I Scripalt/Super 
Script to run on Model III, UNLIMITED Backupal 



Model I DOSPLUS — 'gg^^ 

Model III DOSPLUS— 'gg'' 

Model I double density upgrade— M75°° 

Master Directory 1.2 (double density)— '2g' 



New I/O package 30% (aster 

No BREAK key death from DOS 

No closing kilied tiles and ruining diskettes 



STEP ON THOSE 

DOS BUGS!! 
ORDER TODAY!! 





Specializing in the Tarxjy Line 
(305) 9S3-3390 



.^384 




5846 Funston Street 
Hollywood, PL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(BOO) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHAROE/C.O.D. ORDCRS 

CalifOfTa ^al (600) 852 7777. Operalof 193 
Alaska ana Hawaii dial (900) 824-7919, Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications arxJ Tecfiriical intorfnal>or>. call 
(305) 983-3390 or drop us a card 



Daalers mqtinss mvitcd 



SINCE YOU 

COULDN'T 
WAIT...... 

WE DIDN'T 




DITBODDCES THE 

rmsT m a series 

OF ACTIOM PACKED, 
mOH RESOLUTIOH 

COMPUTER SIMULATIONS. 



HETEDP 



BTDRh 



£> 1481 

COM AISS HIGH HESOLLTIOS.SOL'SDESHANCED 
LASFKBHSTi COCKPIT PERSPKlhE \ ARI^BLE SKILI 
LFVEL AUTOMATIC Ml LTI-GAME iCOKETALL> AML- 
JOYSTICK OPERATION iJOYSTICKsm I^CLIDED i 

EXCLUSIVELY DESIGNED FOR 

TRS-80' COLOR 
EXTENDED CoMPl TER 

Srv.i\ <^h(ck or munr^ onlrr »1Z.95 
[!VIB : ILL[ MTRAT Ell MEMORY BANkS 
P.O. BOX 2S9 
WILLIAMSTO«^. M* 0IZ67 t- 467 

• ATKAtJFMAB).OFIASD> CORPORATION 



r ^ 



HAVE YOU 
« GOT YOURS? 



DISK A OTHER MYSTERIES: how 

to recover disk files, the layout of infor- 
mation on disks, memory maps, problem 
solutions, and more ■■ the fixit book for 
disk users! $22.50. 130+ pages. 

MICROSOFT BASIC DECODED: a 

detailed, commented guide to the Level 
11 ROM. $29.95,300+ pages. 

CUSTOM TRS^O: brand new & full 
of super info oncuslomizingyourSO. In- 
cluded subjecis are high res graphics, up- 
per and lower case, reverse video, high 
speed clocks, and more. Software sec- 
rion, too! $29.95, 300+ pages. 



SPECIAL 




OFFER 



If you clip this ad, or mention il in your 
order, you can subtract 83.00 off the 
cost of each book thai you order! Each 
order musl be accompanied with $2.00 to 
cover shipping expenses. Mail to: TAS, 
1806 Ada Street, Unsing. Ml 48910, or 
phone (517) 4873358 or 485-0:144. (Add 
$1.50 for COD, 4% for charge cards). 

-•138 



TRS-80- MODEL III 
DISK DRIVE KITS 

Process Control Technology s Dis* Dnve Comroller 
offers more performance lor less Dollars' 

Jumper program nearlyanycombinetion of internal 
and enlBrral OisK Dnves. (All four drtves can t>e 
eilernai. or up to two drives can be internal ) 

Hardware compataBte with 40. 80. or 77 track (B 
inch) drives' 

Hardware compatabte with double sided drives' 

TRS-SO* MODEL III 

With Twft mtvmal Dttk Drtvaa, 32K RAM $1899 

TRS-M' MODEL III, MODEL III BASIC, 

1SK RAM $899 

INTERNAL DRIVE KITS 

DISK OniVE 1 $679 

DISK DRIVE 2 S279 

EXTERNAL DRIVES 

DISK DRIVE 3 (Includes Cable) $359 

DISK DRIVE 4 $329 

Fully Warranted for 90 Days 

■TRS-80 is a trademark of Radio Shack 



PROCESS CONTROL ^408 
TECHNOLOGY 

P.O. BOX S82S 

STOCKTON. CA 99206 

(20S) 9S2-S576 





THE 

UNINTERRUPTIBLE 
POWER SUPPLY 



. . . that keeps your computer on 
when the power fails . . . 

Mayday protects the computer and disk system from power surges, sudden drops in 
voltage, or a complete disruption of power. 
Most problems operators or programmers have are caused by voltage or current interruptions of the computer. 

There are 12 different Mayday UPS power supplies, one of which is specifically designed to handle your computer 
system from 50 wafts up to over 600 watts. 

Pretect your time and investment. One power failure could well cost you the price of the Mayday. Prices start at 
$240 for the 150 watt system. (Line surge voltage regulator protection is available at additional cost). 
For more information, please call or write. 



from, 



.^161 




Box 210 New Durham, NH 03855 
(603)859-7110 TWX 510-297-4444 
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A I (0) ■■ ■■ (1) ■■ 3.14159" (2) ■■ 6.28319"' (3) ■' 9.42478'' (4) " 12,5664" 
(5) '■ 15.708'' (6) ■■ 18.8496' (7) - 21,9912" (8) " 2 .1327" (9) 
■■28.2743"(10) -31.4159" (11) ■■■ (12)"" B S "NOW PRINT THE ARRAY" 

PI I 3.14159 

X % 13 



Fig. 2 



numbered. It also allows you to 
scan the text for renumbering 
errors such as undefined line 
numbers or other errors in the 
text, after which the text num- 
bering remains unchanged. 

XRENUM also allows a block 
of text to be duplicated in 
another area of the program 
without destroying the original 
text or its renumbering. When 
renumbering a very large pro- 
gram XRENUM is as much as 
30 times faster than Radio 
Sfiack's Renumber, 

Beyond NEWDOS utilities for 
the Model I, Snapp offers the 
Model II user XDUMP, a 
dynamic variable-print facility. 
This facility prints the current 
value of any or all variables on 
the screen or printer. 

Fig. 2 demonstrates the 
results of Invoking XDump after 
the program is run. 8y entering 
the command Z, the computer 
prints the current value of each 
variable. In the example, PI is in 
single precision form and 
equals 3.14159 while X is an in- 
teger and equals 13. 

XBasic also includes the 
string/key word cross reference 
facility called XFind. This facili- 
ty displays the line numbers 
where key words appear. This is 
indispensable for converting 
from one Basic to another. 
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Fig. 3. 



XFind also displays all line 
numbers that reference any 
string or portion of a string 
which you select. This is very 
handy for reducing space re- 
quired for quoted strings that 
are used more than once. 

Fig. 3 demonstrates the 
results of entering F, which in- 
structs the computer to display 
the line number locations for alt 
key words in the program. The 
key word Print appears in lines 
140 and 160. The string search 
function is invoked by entering 
F," " which requests all string 
references beginning with a 
null and continued through 
Z2ZZ2 be output to the printer. 
The example program contains 
only one fixed string reference 
which is in line 130. 

Finally, XBasic offers XCom- 
press which reduces your pro- 
gram size to an absolute mini- 
mum. This is accomplished In 
several phases, most of which 
may be optionally selected. 
These phases are: 

•removal of remarks; 

• removal of irrelevant 
blanks; 

• removal of irrelevant tab 
characters; 

• removal of extraneous 
colons; 

• removal of the Let key 
word; 

• removal of quotes at the 
end of a line, 

• removal of GOTO follow- 
ing a Then; 

• removal of non-signifi- 
cant characters from long 

variable names; 

• removal of non-executable 

code; 

• removal of variable typing 
characters ( !#$% ) when 
given a DEFxxx; 

• merging of multiple state- 
ments into single lines; 

• renumbering the program 
on a one-by-one basis. 

The XCompress facility is in- 



voked by entering H followed 
by any special parameters you 
may require. I usually request 
that the program not be renum- 
bered, which allows me to keep 
track of differences between 
program versions more easily. 

DOSFIX 

The previously discussed 
utilities are well worth the 
price, but Snapp Inc. chooses 
to add at no charge their 
DOSFIX, a set of repairs to the 
Model II disk operating system. 
These include both official Fort 
Worth and Snapp originals. 

The first 16 remove unneces- 
sary files from the operating 
system, some which don't work 
anyway, plus junk like SYSU 
SYS which only prints the logo 



on the screen during the power- 
up sequence. Another patch 
moves the Break key to CTRL6. 
This patch has appeared in 80 
Microcomputing before and 
has often saved me from enter- 
ing CONT (enter) which lets the 
program continue from where it 
stopped after accidentally hit- 
ting the Break key vihWe trying 
to use the backspace key. 

The last DOS fix has stopped 
my cussing upon power up or 
reset when the Forms com- 
mand initializes the printer and 
the computer issues two line 
feeds, destroying my top-ot- 
form alignment. 

Thanks to Snapp XBasic and 
their DOSFIX, my Model II no 
longer seems to fight my every 
move. ■ 



1 DEFINT J-L:DI«AS[12) :PI-3.]415927 

2 IFPI>3THEN<ELSEP1=PI|5 

i goto; 

4 F0(0<» = lT01B:AS|Xtl -STRS(PI*X%) ;NEXTX*:BS = 'NOW PHINT T«E ARAY" 
PRINTBSiF0R>;» = lT012:PRlNTAS(X»l ; X» : NEXTX* i END 



Program Listing 2 



JOE COMPUTER Presents Handicapping Software 

ITS FOOTBALL SEASON ! - ^ 

Pro and Colii B Footbai tmn SOL: ^ow w\m new manual - o\a pnce' in^t ', 

rigfil. Ken Perrv o( SDL reluses lo raise me O'ice Joe teeis mal l^iis progfam iiouia sen 

lor IMO OQi Why' Because il works - belief mar 65% against Ide Las Vegas Une 1o' 

Ifie last 3 yeats on picking upsels — a whopping 73% lasi year' A proven wmnei' n 

lakes atMHJt 10 minules a weed to record ttie weekend s resjils Then sit Pack ano W 

yout computer ptedicl next weekend s points tor 2S pro learns or 78 college leans Eacti program 

comes witn a prior season data tile 16K TRS-M Pro FooUul vwiion iwk aniUble 

Pn FooOmI CMum (TRS-n M ilppit) S21 95 

Dbh S26 95 

CnitOt FtOlM Cauatt* |37K TnS-80 or K^fkt) , i.^'. . ' S71 95 

Disk _ '.....f. J2695 

Brand Nawl Pro Foolbrt HMory 

This unique prograrr with Oata tiles displays the scores ano Las Vegas lines lor the last live years lor an 
NFL regular anO post season games including itie Super Bowl An 28 teams mcioOed Itiis ddta is tiard 
to find — now it can De in your computer Data is dispiayeO via a variety ol search keys A must lor 
serious football lans 
TnS-80 « Apple 48K Dltk only ;. >9 95 

f^J^^ Horse Haca Handicapping! Our Oiggesi seller - ProOaPiiiiy Handicapping Device I 
T^* Tins IS a comprefiensive tiorse racing system lor spoiling overlays m IhoroughDred 
(j sprint races Easy entry of data trom ttie racing form A complete users manuai lakes 

ft»i you step Dy step Ifirougb a sample race and explains overlay Pelting ano money 
. "»■ management Tfie user s manual contains a detailed tab run of a 100 consecutive race 
system workout sfwwmg an amazing Si 50 relorned lor each Si 00 wagereO (Note this is not fie 
same program as Winning at the Races ) You may purchase the manual seperaieiy lor i? 95 ana 
credit PHO-1 itnMnsltiblttarCI>/M(BMic-80. M-Bauc) PHO-lUtw sMtrHtilinduuettiloc 
16K AppH II ApptoSOtt. SK ONt ScwNmc (tpacHv IPw 4P). 16K TRS-80 MoM I Ot III S29 35 

AppkorTRS-BODItli S34 95 

CP/M S" or B" Shigli Danstiv Diti Dtik S39 95 

Dfl. QUIRIN'S FAMOUS DISCOVERIES! 

Winning it t!>iRK«S. This is the program using the algorithms from D' Quirmsbook Higtily praised 
and endorsed Dy Dr Ouinn. Itirs program is Ihe Desl availaDle today Again. Ken refuses to raise me 
pricei Our loss is your gam Screen edil type data entry makes entering data a Dree?e Order now 
Before Joe convinces Ken to raise the price' 
Wnnint M Rn Rscts CmMi |3n TRS-N w Applt) ^ WM 



»tk 



S39.95 



WWitwig It th* Hk«s — lUe book by William Quinn Pti D This is ine Oesi computenzeo study of 
inoroughbred racing ever publisfied This 300 page hardbound oook shows oeiailed studies ol high im 
pact value lactors and ir>clitdes Or Quirm s farmus Par Times 
A Tom Until wmnanCireM Bask t?i 95 

BaiSog tM Rkm wKh i Computtr Py Steve Brecher A good How To book or) multiple regression 
techniques applied to Pan Mutual handicapping Some heavy maili S14.95 



Mtu cntcts DiriDii to JOE COWPUTEf - 
a»ral lo JOeCOMPU'EP ;2'13v«niu(> 
Cali10r...a roSMjt"!. 



'$•• Utt ot AdvmrttMrt on p»^ 354 
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UTILITY 



Using Model I Scripsit on the Model III. 



Patching Across 



Richard Koch 
2740 Washington St. 
Eugene, OR 97405 

Recently Radio Shack an- 
nounced that the Model III 
verpion of Scripsit can be copied 
a limited number of times. 
Owners can duplicate the pro- 
gram twice, after which backup 
skips over the Scripsit program; 
the duplicated programs cannot 
be copied at all. 

If Scripsit cannot be duplicat- 
ed, things I do with the Model I 
are impossible on the Model III. I 
keep a copy of Scripsit on each 
disk to document computing 
tasks as soon as they are com- 
pleted. Apparently that is not 
possible on the Model III. 
Moreover, I use a serial printer 
which prints at 1200 baud, pro- 
vided it can shake hands with 
the output program. I have 
modified Scripsit to provide this 
handshake, but a program that 
cannot be duplicated cannot 
easily be modified. 

I predict that Scripsit's limi- 
ted backup ability wMI be 
dropped wtien Radio Shack de- 



cides to emphasize the word 
processing ability of the Model 
III. But in the meantime, many of 
us have a problem. Luckily, it 
turns out that the old Model I 
Scripsit package can be easily 
modified to work on the Model 
III. 

Making the Modification 

This modification requires the 
disk version of Scripsit. Recall 
that the disk comes with two 
programs, Scripsit/UC and 



to the printer. The cassette re- 
corder doesn't work either. 

Scripsit starts at 5200H, over- 
lapping the end of Debug. First 
lift it higher in memory so Debug 
can inspect the code. The trick 
runs like this: 

Use Debug to insert the fol- 
lowing hex code starting at ad- 
dress 9AB0. F3 21 00 72 1 1 00 52 
01 BO 28 ED 80 FB C3 3F 52 F3 
21 AF 7A 1 1 AF 9A 01 BO 28 ED 
88 FB C3 2D 40. Quit Debug and 
enter the command Dump Move/ 



"If Scripsit cannot be duplicated, 
things I do with the Model I 
are impossible on the Model III. " 



Scrlpsit/LC. Naturally we will 
use Scripsit/LC. t>ecause Model 
III displays lowercase. 

Begin by placing Scripsit on a 
Model III disk using Convert. 
You might like to try this unmod- 
ified Scripsit; in large measure, 
it still works. The right shift key 
fails, and nothing can be output 



CMD (Start = 9A80, End = 9AD0, 
TRA = 9AC0). Then run the un- 
modified Scripsit/LC. As soon 
as it begins, enter the command 
End to return to DOS. Next enter 
the command Move. The DOS 
prompt will return. Enter Dump 
SCR/CMD (Start = 7200, End = 
9AC0, TRA = 9A80). If every- 



thing works, you now have a pro- 
gram on disk called SCR. When 
this program runs, it provides 
the unmodified Scripsit. But 
SCR can also be loaded for in- 
spection. 

The modifications we must 
make now are rather minor. Our 
first problem is that Scripsit 
doesn't print anything. In the 
Model I, a character is printed by 
placing it in the accumulator 
and then performing LD 
(37E8H),A. For the Model III. the 
analogous command is Out 
{0F8H),A. 

To make Scripsit print. Load 
SCR/CMD and then turn on De- 
bug. Use the M command to 
change the code 32 E8 37 to D3 
F8 00; this change must be 
made five times, at locations 
7244, 865E, 8722, 9A97 and 
9A9E. 

Our second problem is that 
the right shift key does not work. 
The computer reads the status 
of the shift key by examining 
memory location 3880. In the 
Mode! I, this location contains a 
zero when no shift key is 
pressed and a one otherwise. 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or III 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes PICA overpayment — Includes "OWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — Morel 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Scfiedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

V .1 

35-page Descriptive Manual - $7.50 

(Refundable on order) ^ 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES . 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 

•TRS-80 is B iranemark ot Tandy Corp. ■ 



'5«« Uat of Aav«rtla»n on p»go 354 



SO Microcomputing, September 1981 • 283 



But in the Model III, the location 
contains either zero, one, two or 
three depending on the combi- 
nation of left and right keys 
pressed. The code which reads 
the status ot the shift key is LD 
A,{3880H). We will change this 
code to Call 78A2H. 

Use Debug to change the 
code 3A 80 38 to CD A2 78. This 
change must be made twice, at 
locations 80CD and 80F9. 

Of course we need code to 
process this call. The new 
routine will read LD A,{3880H); 
OR A; RET Z; LD A,1; RET. Room 
will be made for this code by 
shortening the message "RS232 
Interface Not Ready" to "RS232 
Not Ready." 

: Use Debug to change the 
code starting at 9891 from 1 A 52 
53 2D 32 33 32 20 49 4E 54 45 52 
46 41 43 45 20 4E 4F 54 20 52 45 
41 to 10 52 53 2D 32 33 32 20 4E 
4F 54 20 52 45 41 44 59 3A 80 38 
B7C8 3E01 C9. 

The cassette recorder must 
be repaired. We will use ROM 
routines; five are involved. 

Use Debug to change CD FO 
63 to C3 87 02 starting at 83CB, 



to change CD FO 63 to 03 96 02 
starting at 83DA, to change D9 
F5 OE to C3 64 02 starting at 
83AF, to change D9 OE 08 to 03 
35 02 starting at 8381, and to 
change E5 21 00 to 03 F8 01 
starting at 83F9. 

Finally, the serial printer rou- 
tine must be changed. If you 



pulses. In technical language, 
the board must be initialized. 

In the Model I, this Initializa- 
tion is done in a strange way. 
The RS232 board contains eight 
very small switches, called DIP 
switches. The particular method 
used in serial output is pro- 
grammed by setting these 



"The RS232 serial interface. . . 
converts data. . . into a stream of 
pulses that can be sent to a printer. 



have an ordinary parallel printer, 
you might want to skip this one. 

Fixing the Serial Printer 

The RS232 serial interface is a 
device that converts data used 
by the computer into a stream of 
pulses that can be sent over a 
wire to a printer. There is no 
unique way to do the conver- 
sion; Radio Shack's board can 
do it several different ways. 
Before data can be output, 
therefore, the tward must be 
told how it will convert data into 



switches. But, mysteriously, the 
switches are not connected to 
the RS232 board in any serious 
way. Instead, the computer 
must tell the board which meth- 
od to use. Whenever Scripsit is 
run, the program asks the RS232 
board how the switches have 
been set. It then initializes the 
board as the switches com- 
mand. 

The Model III does not have 
DIP switches. We must tell 
Scripsit from the beginning how 
the board should be initialized. 



To do that, we replace the code 
starting at 661A by: LD A, (Baud 
Rate); Out (0E9H),A; LD A, (Parity 
and Stop Bits); Out (OEAH),A; JR 
15H. 

Using Debug, find the follow- 
ing code at location 861A; DB E9 
E6 F8 F6 D3 EA DB E9. Replace 
this code with 3E*- D3E9 3E## 
D3 EA 18 15. The values chosen 
for * ■ and ## will depend on your 
printer. The value " must be 
computed using the information 
"Transmit/Receive Baud Rate 
Code" on pages 8/5 and 8/6 of 
the Model III Operation and 
Basic Language Reference 
Manual. The value ## must be 
computed using the information 
"Parity/Word Length/Stop-Bit 
Code" on pages 8/6 and 8/7 of 
the same manual. 

Finishing the Task 

After the above changes have 
been made, turn off Debug and 
issue the command Dump Scrip- 
sit/CMD (Start = 7200, End = 
9AC0, TRA = 9AB0). Test the 
resulting program. It should 
work exactly as it did on the 
Model \.m 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80, 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-3 IS ALREADY IN THE LEVEL II ROM! SCRIPSIT. PEN- 
CIL. RSM 2. ST80D, NEWDOS, FORTRAN, BASIC etc. all work as 
if a parallel printer was in use. 

The UPI-3 IS completely self contained and ready to use, A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial prmter. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C 'nd 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 

Division of Bindry Devices 

11560 TIMBERLAKE LANE 
NOBLESVILLE. IN 46060 
►^275 

IRS 80 IS J trademark ol Tandy 



Also available from 
YE ODDE SHOPPE 
(317) 925-04% 



VISA MasterCard 




Switch selectable options include; 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-CI 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-3 assembled with 90 day warranty 

UPI-4 for use with Model 1 and RS Pnnlef 

Interface Cable (no expansion interface fequiredl 

Manual only (may be applied to order) 

Ten day return privilege 

Shipping and Handling on all orders 

Specify BAUD rale 50-%00 BAUD 



$n9.cr> 

$14*^.9', 
$ S.IK) 

$ 4.00 
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A**1V* «**«*««Ai^«**4A*««A* «** it-tr-trlr irititidritiritlrlftcirltiririiititiririi 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 



COWARE THt FEATURES IMD PERFORMANCE 
FEATURES LNH80 PMC-BO" 



TRS-30* 
MOOEL III 




Uhen you've coopartd the festurei of an LNHSO Computer, you'll quickly 
understand wfiy the LNW80 is the ultinate TRSBO software compatible system. 
LNW RESEARCH offers the most complete mlcroconputer system »t an outstand- 
ing low crice. 

We back up our product with an unconventional 6 month wrranty and a 10 
days full refund policy, less shipping charges. 

LNW80 Computer SI ,450.00 

LNwao Computer <i/BIM Monitor 1 one 5" Drive 51,914,00 

All orders must be prepaid, ZA residents please Include 6% sales tax. 
contact us for Hhippiog charges 



TRS80 
PMC 



Product of Tandy Corporation. 

Product of Personal microcomputer. Inc. 



PROCESSOR 




4.0 MHZ 


1,8 MHZ 


2,0 MHZ 


LEVEL 11 BASIC INTERP. 

TRS80 MODEL 1 LEVEL 11 COMPATIBLE 


YES 

YES 


YES 
YES 


LEVEL 111 
BASIC 

NO 


48K BYTES RAH 




YES 


YES 


YES 


CASSETTE BAUD RATE 




600/1000 


soo 


500/1600 


aOPPY DISK CONTROLLER 




SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 
DOUBLE 


SERIAL R5232 PORT 




TES 


YES 


YES 


PRINTER PORT 




YES 


YES 


VES ' 


HEAL TIHE CLOCK 




YES 


YES 


VES 


24 X 80 CHARACTERS 




YES 


NO 


m 


VIDEO MONITOR 




YES 


YES 


YES 


UPPER A»0 LOWER CASE 




YES 


OPTIONAL 


YES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARD 




63 KEY 


53 KEY 


53 KEY 


HUHERIC KEY PAD 




VES 


NO 


YES 


B/W GRAPHICS, 128 X 48 




YES 


YES 


YES 


HI -RESOLUTION B/W GRAPHICS. 


480 X 192 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS 
128 X 192 IN 8 COLORS 


(NTSC), 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS (RGB), 
384 X 192 IN 8 COLORS 


OPTIONAL 


NO 


NO 


WARRANTY 




5 HONTHS 


90 DAYS 


90 DAYS 


TOTAL SYSTEM PRICE 




51 ,914.00 


SI, 840, 00 


$2,187.00 


LESS MONITOR AND DISK DRIVE 




51 ,450.00 


$1,375,00 


— 



LNW80 

- BARE PRINTED CIHCLIIT BOARD i MANUAL W9.95 

The LKW80 - A high-speed color computer totally conpatlble with 
the TRS-80*. The LNW80 gives you the edge 1ji satisfying your 
computation needs In business, scientific and personal coopiita- 
tion. With performance of 4 HHi. Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that is ccmparable to the most 
enpenslve microcoiiiputer with the conpatibl llty to the world's 
mst popular computer (TRS-80*) resulting in the widest soft- 
ware base. 

FEATURES; 

. TRS-80 Model 1 Level II Software Compatible 
High Resolution Graphics 

RGB Output - 384 x 192 in 8 Colors 
. NTSC Video or RF MOD - 128 » 192 in 8 Colors 
. Black and White - 480 i 192 
4 MH7 CPU 

SOO/1000 Baud Cassette 
Upper and Lower Case 
16K Bytes RAM, 12K Bytes ROM 
Solder Masked and Sllkscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

AND MANUAL t69.95 

WITH GOLD CONNECTORS J84.95 



The Syste* Expansion will allow you to expand your LHM80, TRS-80*. 
or PMC-80** to a co(pplete computer system that Is still totally 
software co^iatlble with the TRS-80" Model 1 Level 11. 

FEATURES: 

32K Bytes Memory 

5" Floppy Controller 

Serial RS2J2 20na 1/0 

Parallel Printer 

Real Time Clock 

Screen Printer Bus 

On Board Power Supply 

Solder Masked and Silkscreened 



LNW RESEARCH 

CORPORATION 
2620 WALNUT 
TUSTIN CA. 92680 ^53 



LNDoublerADOS PLUS 3.3D 



- Assembled and Tested W/DOS PLUS 3. 3D SI 75. 00 

Double- density disk storage for the LNW Research's "Systan Expan- 
sion" or the Tandy's "Expansion Interface", The LNDoubler™ is 
totally software compatible with any double density software 
generated for the Percom's Doubler***, The LNDoubler™ provides 
the following outstanding features. 

. Store up to 350K bytes on a single 5" disk 

. Single and double density data separation 

. Precision write precompensation circuit 

. Software switch between single and double density 

. Easy plug in installation requiring no etch cuts, jumpers 

or soldering 
. 35. 40. 77, 80 track 5" disk operation 
120 day parts and labor Warranty 

•" Doubler is a product of Percom Data Company, Inc. 

DOS PLUS 3.JD 

Micro Systems software's double density disk operating system. 
This operating system contains ill the outstanding features of 
a well developed DOS, with ease In useablllty. 

KEYBOARD 



LNW80 KEYBOARD KIT 184,95 

The Keyboard Kit contains a 63 key plus a 10 key, P,C, board, and 
remaining components. 



CASE 



LHW80 CASE , , . iB4.95 

The streaallne design of this metal case will house the LNW80. 
LWH System Expansion, LNN80 Keyboard, power supply and fan, 
LNDoubler™, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. Add SI2.00 foi shipping 

PARTS AVAILABLE FROM LNW RESERARCH 
. 4116 - 200ns RAM 

6 Chip set *, J26.0D 

8 chip set $33.50 

16 chip set 164.00 

24 chip set $94,00 

32 chip set $124.00 

LNW80 "Start up parts set" LNW80-1 $82. OO 

LNW80 "Video parts set" LNW80-2 $31,00 

LNW80 Transformer LNW80-3 $18.00 

LNW80 Keyboard cable LNW80-4 $16.00 

40 Pin computer to expansion cable , . $16.00 

System Expansion Transformer $19,00 

Floppy Controller (FD1771) and llART ITRI602) , , , $30,00 



ORDERS A I N PO. NO. 714 - 544 - S744 
SERVICE Na 714-641 -88S0 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED 

AIXt S3 FOR SHIPPINGi 



APPLICATION 



Stand up and be computed! 



The Secret Ballot 



David D. Busch 

515 E Highland Avenue 

Ravenna, OH 44266 



Secret Ballot allows any rea- 
sonably small group to hold 
an election using the TRS-80 
Model I computer as an impar- 
tial, incorruptible voting ma- 
chine. Users' groups, computer 
clubs, social groups — any orga- 
nization that eiects officers can 
use the computer to conduct a 
secret ballot. 

Only voters who have regis- 
tered ahead of time can vote; the 
program asks for the name of 
the person voting, and then 
strikes that name off its list. It is 
possible, of course, to vote in 
the name of someone else— but 
if that person later tries to vote, 
he or she will be barred, possibly 
invalidating the election. 

Secret Ballot does not keep 
track of who voted for whom; as 
long as other members of the 
group cannot watch the screen, 
balloting is 100 percent secret. 
Write-in votes are not allowed. 

As written, Secret Ballot ac- 
commodates 100 group mem- 
tters; this can be enlarged to the 
limits of memory by making a 
single change in the DIM state- 



ment on line 20. Eligible voters 
may be input ahead of time, and 
stored in a disk file named Vot- 
ers. Up to 20 candidates for 
each of 20 different offices may 
be input and stored in two addi- 
tional disk files, Jobs, which 
stores the names of the offices, 
and Candid, which keeps track 
of the candidates. 



Input Voters' Names 

This module is contained in 
lines 220-460. If an existing 
voter file is being updated, it is 
first loaded from disk in a rou- 
tine at lines 480-540. The cur- 
rent number of voters in the file, 
NV, is input first, and then a 
For . . . Next loop of one to N V re- 
trieves the names and loads 
them into a string array, VOT- 
ERS$(n). 

Line 360 adds new names. As 
each name is input, NV is incre- 
mented by one, so the latest 
name is deposited in the array 
one element beyond the most 
recent entry. NV begins at zero if 
a new file is being created. Cau- 
tion: If you create a new Voters 
disk file, it erases any existing 
file by that name on that disk. Be 
sure you want to initialize a new 
file before beginning. The user 
Inputs X instead of a name when 
finished adding voters to the 
file. 

There is no way to delete a 
voter's name from the file be- 
cause the voter list is used only 
as a check to see that someone 



is voting just once. A ballot-box 
stuffer could conceivably vote in 
the name of a departed member, 
if he or she understood the pro- 
gram, if your group has a num- 
ber of despicable members who 
would attempt to cheat, you 
could probably write an en- 
hancement to Secret Ballot to 
deletenames, or rig a trap within 
the program. 

W/hen all the voters have been 
entered, the file is saved to disk 
{lines 400-460), and control re- 
turns to the menu. 



Input Candidates Names 

Unlike the Voters disk file, the 
candidates/offices files can on- 
ly be created from scratch, not 
updated. Usually, a slate of 
candidates will be finalized just 
before an election, and changed 
for the next one. The eligible vot- 
ers will essentially remain the 
same, requiring only minor up- 
dates. 

To put forth a new slate, the 
election officer first has to enter 
a list of the names of the posi- 
tions to be filled (lines 710-780). 
The program will handle up to 20 
jobs. After the offices have been 
saved to disk (lines 800-850), the 
candidates may be entered. The 
title of the office is listed, and 
the candidates entered in a For 
. . . Next loop contained at lines 
870-980. The candidate data is 
stored in a two-dimensional ar- 
ray, CA${row, col.). Each row 
accounts for a particular can- 



didate, while the columns of the 
array point to the specific job. 
That is, if president were the 
first office entered into JOB$(n), 
then the first three candidates 
would be assigned CA${1,1), 
CA${2,1).CA$(3,1), etc. The first 
vice presidential candidate 
would be CA$(1,2). and so on. 
This string array is saved to disk 
in lines 1000-1070. 



Inspect List of 
Candidates and Voters 

You may wish to check the 
lists before balloting begins. 
This option loads all the data 
files, and lists them to the 
screen in lines 1430-1690. Be- 
cause X is used to exit the data 
entry process, that character 
will always be the last in each 
candidate or voter file. The pro- 
gram looks for the X, and sets 
CFLAG to tell the program 
whether or not to print an array 
element to the screen. You 
could direct the program to exit 
the display loop when it encoun- 
tered the X, but the loop is so 
short in most cases (five or six 
offices), that little time is saved. 
Take note when you exit a For 
...Next loop prematurely, be- 
cause of the error that might be 
generated the next time you re- 
use that loop counter in the 
same, or similar, For... Next 
loop. 

Voting 

To conduct the actual polling. 
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Color computer owners 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 





excellence in electronics 

exatron 



DEALER ENQUIRIES INVITED 



Exatron. ►^^oo 

181 Commercial Street, 

Sunnyvale, CA 94086 



D Please send a 32K Color Computer 
Interface for $199,00 

[J Please send a CCI Disk Card for $99.00 

n Please include CCDOS and manual 

for $29.95 

:: Also include a ROM Backup adaptor 
for $19.95 

Please add $5,00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

Slate Zip 

Charge my: 

D MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 



■''i 



Signature 



■TIK H.XM plu% Disk Inlcrfat-r 



TKS-fvU is a trademark of Tandv 



the computer should be set up in 
a location where curious on- 
lookers cannot see who a mem- 
ber is voting for. The first step is 



to enter the member's name as 
it appears on the membership 
roster. This entry must match 
exactly the entry in VOTERSfn). 



Using the full legal name (with 
middle initial or name) when 
compiling Voter$(n) provides an 
extra measure of security. Any- 



one trying to vote for someone 
else must i^now the full name of 
the person they are trying to im- 
personate. 













1 ■ 




91B 


PRINT 


« ■ 


92B 


PRINT "ENTER CANDIDATES' NAMES" 


2 ' * SECRET BALLOT * 


93B 


PRINT "ENTER ' X ' WHEN FINISHED' 


■■ t * 


940 


INPUT CAS[C,N2) 


• DAVID D. BilSCH • 


950 


IF CASlCrN2)-"X" GOTO 970 


, 3 1 * 515 E. HIGHLAND AVE. • 


960 


GOTO 880 


• RAVENHA, MIIO 44266 • 


970 


C-0 


> * 


980 t NEXT N2 




990 !>>*••* SAVE CAMDIBATE FILE TO DIPK **•*•» 


IB CLEAR leaa 

20 Din VOTER$(10B) ,CAS(20,20) ,BAL(2a,2«) ,J0B$(2B) 
3g . txtt* ^EHU ****** 


1000 OPEN "0",1, "CANDID* 
101B ; FOR R0W=1 TO 20 


1020 : FOB C0L=1 TO NJ 


40 CLSi PRINT 


1030 : PRINT #1,CASIR0W,C0L) )*,"j 


5B PRINT • Mini SECRET BALLOT !:::!:• 

60 PRINT 

70 PRINT "DO iOU WANT TO :' 

BB PRINT' 1. INPUT VOTERS' NAMES" 


1040 ! NEXT COL 

1050 ; NEXT ROM 

1060 CLOSE 1 

1B7B RETURN 

1080 ' ♦••**• VOTE ••■*•■ 


90 PRINT* 2. INPUT CANDIDATES' NAMES" 


100 PRINT* 3. VOTE* 

110 PRINT* 4. INSPECT LIST OF CANDIDATES AND VOTERS" 


1090 GOSUB 480 
110B GOSUB 560 
1110 '*•*••* QUALIFY VOTER •••••• 


120 PRINT* 5. SEE RESULTS OF ELECTION" 
130 PRINT 


1*0 PRINT ' ENTER CHOICE i "j 
1S0 AS-INKE¥S:IF AS=** GOTO 150 


1120 CLSiPRINTiPRINT 

1130 INPUT "PLEASE ENTER YOUR NAME !"(VTS 


160 A>VAL(A$) 


1140 IF VTS''"END" RETURN 


170 IF A<1 OR A>6 GOTO 150 


115B VFLAG=0 


1B0 PRINT A 


116B ! FOR N6=l TO NV 


190 ON A G05UB 220,710,1098,1430,1780 


1170 1 IF V0TERS(N6)-VT$ THEN VFLAG«l!V0TERS(N6) -"* 


200 GOTO 40 


iisa I HEXT Ne 


210 ' •••*** ENTER NAMES OF VOTERS ••*■•• 


1190 IF VFLAG-1 GOTO 1270 




1200 PRINT * SORRY, *|VT$j* BUT YOUR NAME DOES NOT* 


220 CLSiPRINTiPRINT 


1210 PRINT ■ APPEAR IN OUR VOTER LIST. EITHER YOU HAVE* 


230 PRINT "ARE YOU ;* 


1220 PRINT * ALREADY VOTED, ARE INELIGIBLE, OR SPELLED YOUR* 


240 PRINT " 1.] CREATING A NEW VOTER FILE" 


1230 PRINT " NAME DIFFERENTLY THAN IT APPEARS IN OUR LIST * 


250 PRINT " 2.1 UPDATING EXISTING VOTER FILE* 


1240 PRINT 


26 PRINT 


1250 ! FOB N7-1 TO 50fl0;NEXT N7 : GOTO 1120 


270 INPUT • ENTER CHOICE:"iBS 


1260 ' ••*•• CONDUCT POLLING •••*•• 


2110 B-VAL(B$) 




29fl IP B<1 OR B>2 GOTO 220 


1270 ! FOB NW-1 TO NJ 


3B0 ON B GOTO 320,310 


1280 ! CLStPRINT 


310 G05UB 48B 


1290 I PRINT JOB$(HW) 


320 CLSiPBINT:PRINT 


1300 


PRINT 


330 NV"NV*1 


1310 


FOR N8=l TO 20 


340 PRINT "ENTER VOTER'S NAKE't 


1320 


IF CAS(N8,NW)-"X' THEN CPLAG-1 


350 PRINT * BNTEK ' X ' WHEN FINISHED * 


1330 


IF CFLAGOl PRINT N8i".l "iCAS(N8,NW) 


36B INPUT VOTERS(NV) 


1340 


NEXT N8 


370 IF VOTERSlNV)''"X" THEN NV-NV-1 : GOTO 400 


1350 


PBINT 


3BB GOTO 320 


1360 


INPUT 'PLEASE VOTEi*jV0TES 


39B •■*■■>■ SAVE VOTER FILE TO DISK *•***• 


1370 


V0TE-VAL(V0TES1 




1380 t BAL(V0TE,NN)-BAL[V0TE,NW)+1 


400 OPEN "CI, •VOTERS* 


1390 1 CFLAG-0 


410 PRINT tl,NV 


1400 : NEXT NH 


420 J FOB N2-1 TO NV 


1410 GOTO 1120 


430 1 PRINT #1,V0TEBS(N21 /",-| 


1420 '•••••' INSPECT LIST ••*••• 


440 : NEXT N2 




4S0 CLOSE 1 


1430 GOSUB 480 


460 RETl'RN 


1440 GOSUB 560 


470 1 ...<•< LOAD VOTER FILE FROM DISK **•**• 


1450 CLSiPRINT 




1460 1 FOB N2-1 TO NJ 


4S0 OPEN 'I", 1, "VOTERS" 


1470 ! PRINT J0BS(N2) 


490 INPUT 11, NV 


14 80 : PRINT 


500 


FOR N2-1 TO NV 


1490 1 PRINT "CANDIDATES. " 


510 


INPUT ll,V0TERS(N2) 


1500 1 PRINT 


520 


NEXT N2 


1510 


FOR N4=l TO 20 


530 CLOSt; 1 


1520 


IF CAS[N4,N2)-''X" THEN CFLAG=1 


540 RETURN 


1530 


IF CFLAGOl THEN PRINT CAS[N4,H2) 


55a '*•*••• LOAD CANDIDATES FROM DISK »'•••* 


1540 


NEXT N4 




1550 


GOSUB 1710 


560 OPEN "I", 1, -JOBS" 


1560 


CFlJvG-0 


57a INPUT tl,NJ 


1570 


NEXT N2 


58B 


FOR N2=l TO NJ 


1580 PRINT 


590 


INPUT fl,jaBSIN2) 


1590 CLS:PRINT 


600 


NEXT N2 


1600 PRINT "VOTERS :"jpfiINT 


610 CLOSE 1 


1610 T-0 


620 OPEN "I", 1, "CANDID" 


1620 


FOR N5-1 TO NV 


630 ! FOR ROW=i TO 20 


1630 


T-T+1 


640 : FOB COL-1 TO NJ 


1640 


IF T/1B.INT(T/1B1 GOSUB 1710 


65B ! INPUT »1,CA$(R0W,C0L) 


1650 


PRINT V0TERS(N5) 


66B ! NEXT COL 


1«60 


NEXT N5 


670 ! NEXT ROW 


1670 PRINT 


6B0 CLOSE 1 


16B0 GOSUB 1710 


6 90 KETUHN 


16 90 RETURN 


700 1 *..*.. ENTER NAMES OF OFFICES •••••• 


1700 1 •••**> 'PAGE' SUBROUTINE •••*•• 


710 CLSiPRINTiPRINT 


1710 PRINT 


728 INPUT "HOW MANY OFFICES WILL BE ELECTED'fANS 


1720 PRINT "HIT ENTER TO SEE REST OF LIST") 


73B NJ-VAL(ANS) 


1730 INPUT AS 


740 


FOR AN-^l TO NJ 


1740 CLSiPRINT 


75B 


CLSiPRINTiPRINT 


17 SB RETURN 


760 


PHINT"ENTEE NAME OF OFFICE t"jAN| 


1760 ' ••••** PRINT OUT RESULTS ■••••• 


73£ 


INPUT JOBSIAN) 




'Ws 


NEXT AN 


17 70 CFLAG>B 


l^g0' .*.•.. SAVE NAMES OF OFFICES TO DISK •'•••• 


17B0 


FOR NQ-1 TO NJ 




17 90 


CLSiPRINT 


800 OPEN '0" ,1, "JOBS" 


1800 


PRINT JOBS(NO) 


eia PRINT ti,Nj 


1810 


PRINT 


820 


FOB N2=l TO NJ 


1820 


PRINT •CAHDinATE","NO. VOTES' 


03 


PRINT #1,J0BS(N2) j","( 


1830 


FOB N9-1 TO 20 


840 


NEXT N2 


1840 


IF CAS(N9,NQ)»"X" THEN CFLAG-1 


850 CLOSE 1 


1850 


IF CFLAGOl PBINT CAS(N9 ,N0) ,BAL1N9,N01 


860 ' •••■■• ENTER CANDIDATES' NAMES **•*•• 


1B6B t NEXT N9 




1870 ! GOSUB 1710 


870 ! FOR N2'l TO NJ 


1880 t CFLAG-B 


880 I CLSiPfilNTtPRINT 


1890 : NEXT NQ 


890 1 C=C+1 


1900 GOSUB 1710 


90B : PRINT J0BS(N2I 


1910 RETUBN 


Program 


Listing 
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When the name is entered in 
line 1130, a For... Next loop 
looks at every name in 
VOTER$(n), and, if the name is 
located, a flag, VFLAG, is set to 
one, which empowers the per- 
son to vote. The name is also re- 
moved from the array (line 1170), 
so that person cannot vote 
twice in that session. The origi- 
nal disk file, of course, remains 
unchanged, so it can be loaded 
and reused for repeated ballot- 
ings. If no name match is found 
in VOTER$<n), a scolding mes- 
sage appears on the screen, and 
control goes back to the name 
input stage. 

Two nested loops at lines 
1270-1410 present each office 
and its candidates, and allow 
the voter to cast a ballot. Candi- 
dates' totals are stored in an ar- 
ray, BAL(row, col.), in which the 
rows and columns correspond 
with the positions of the candi- 
dates names in CA$(row, col.). 
Each element of BAL(row, col.) is 
incremented each time the ap- 
propriate candidate receives a 
vote. Nothing prevents a mem- 



ber from throwing away a vote 
by entering a number (or charac- 
ter) that does not have a corre- 
sponding candidate. 

Balloting is ended by entering 
the word End, instead of a name. 
At this point, control branches 
back to the menu, where offi- 
cials can choose to have the re- 
sults printed out to the screen. 

Print Out Results 

This short subroutine at lines 
1770-1910 uses two nested For 
. . . Next loops to print out all the 
elements of CA$(row. col.), and 
their respective vote totals in 
BAL(row, col.). 

Secret Ballot provides a sim- 
ple way to conduct a computer 
club's election. Obviously, a 
users* group is a bad place to 
depend on the security of a TRS- 
80 to protect the integrity of an 
election. You may want to add 
an appropriate POKE or two to 
disable the Break key. Or, you 
could compile this program us- 
ing Microsoft's Basic compiler 
as a way of discouraging tam- 
pering. ■ 



MODELS I '^"o III 

ALL PROGRAMS USE TESTED 

MICRO -TYPIT A tejit editing progran that uses the keyboard 
■'as is" like a typewriter. All edit and prompt f^jnctions are 

"built in" so instruction or learning is minimum. Text can be 
generated three pages at a time and printed either numbered, or 
unnumbered single or double spaced. Also, right justification 
is optional. Does not require substitution of @ for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free te/l with large print 
titles. Excellent for specifications, agreements, instructions, 
form letters or announcements. Complete with so^nd for TRC-80 
Wodel I or III and Microteck printer easily adaptable to most 
other printers, PRICE $25. OG 

CLIENT FILES Allows keeping several contracts for up ',o 20 
clients. Enter contracts including either payment amounLii or 
percentages. As bills are sent out and payments received, the 

program is a record by contract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to 3 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGKA-MS 

LIGHTING CALCULATIONS Calculates the requ.red nL.nber of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three standard fixtures are "built in" 

so that 8 room calculations are made to compare results sjch as 
watts, footcandles and number of fixtures. FRIG?: $ 3C . 00 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 1977 ASHRAE Fundamental 
Guide page 25.2. Three programs are: Calculations, Geographic 
and Variable Data and Data Generator. PRICE $35.00 

All tapes furnished with full documentation and instructions. 
Documentation, Instmctions and Source List alone $15.00 

All programs on tape require Level II and 16K . Printer is 

required for MICBO-TYPIT and optional on all others. Do not 
forget to include the Model Nu-nber I'l 'ir III) with your order. 



?nd Check or Money "rd^r 



►^62 



Coolidge & Associates 



I3IT S.C0N6RESS #10 AUSTIN, TEXAS 76704 



[512) 443 ■ 5329 



EDfIS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of 'GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS . The Editor provides 
block move ft global change 
withBASICsyntax editing. EDAS 
provides power with ease of 
use. S79 + $SeH. 



DJTJJ. 



DUTIL is a utility to examine, 
clear, initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O, More* $20. 



cmuii 



Npw you can append two or more 
CMDttlesand/orSYSTEMtapes. 
Perform transfer to & from disk/ 
tapeof SYSTEM/CMD modules 
with offset capabilities. $20. 




LDOS is the latest generation of sophisti- 
cated operating systems for the TRS-80 
computers. LDOS is completelv docu- 
mented in a 2S2-page reference manual. 
Total suppon Is provided from some of 
the most knowledgeable people in the 
industry. You owe it to yourself to inves- 
tigate this system. Call or write for details. 
LDOS is priced at $149 plus $4 S&H. 



LDQS 5.Q 



DBI^BLR 



Complement your assernbly langupge tools with this 
2-80 disassemb^ whi{^ ppoducesscreen, printer, 
cassette, or (M'^le Qtttpstf^! A *iVo pass process 
provides S^fliBC^fOr 1 6-bit «dd|BS3^«l 8-bit rel- 
ative.it%#0^^QUates ft ORGjilvVteraied. 
IS ft.^iff 
'^l for nbA-cftsk niir is 





eCM^,Cft«)PILE, DSM8LR Specify M( 

$1 S&H + fStrpenwj^grarn.^ ^j eliW ^m s add 4%. 

MISOSYS&ept. MU2 ^^22i 

5904 Edgfehill Drive 

Alexandria, Virginia 22303 

703 960 2998 MicroNET 70140,310 

Dealers Inquiry Invited 



■I 



DJShlUQD 

Turn your Editor Assenrtbler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add futt disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, ft FREE. Upgrade your 
EDTASM! $20. 

THE B00K 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed. Volume II tells you eve- , 
thing you wanted to know ab*" '^ ^ 
the Level II I/O — printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKS will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $14,95 or buy both for $24.95 
Add $1.50 SEtH per book. 



^ S»* U»t of Advmrttmmn on pmg* 354 
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REVIEW 



Exploit the 737's features with enhanced softvoare. 



Enhanced Word Processing 



John F. Rogers 
600 Seventh St. 
Morgan City, LA 70380 

Flaxtext 

Apparat, Inc. 

Danvar, CO 

S29.9S 

Subscript 5.0 

Prosoft 

No. Hollywood, CA $79.95 

Radio Shack introduced its 
Line Printer IV (Centronics 
737-1) as liaving fonts of word 
processing quality. However, 
the July, 1980 newsletter an- 
nouncement and the advertise- 
ment both carefully minimized 
the fact that the Scripsit word 
processor could not right-justify 
the proportional font, which is 
the high quality one, nor use any 
of the other special features, 
such as underlining, sub and 
superscripting, elongated char- 
acters, or forward and reverse 
linefeeds. 

Happily for TRS-80 users who 
have the Centronics 737 printer, 
there are several software pack- 
ages available that will allow 
you to take advantage of most 



or all of that printer's capabili- 
ties. Some are enhancements of 
Scripsit, such as Apparat's Flex- 
text, Terry Fiveash's Scriptmod, 
or Acorn's Superscript. Others 
are complete programs, such as 
Prosoft's Newscript and Sub- 
script 5.0 or SSM's Lazy Writer. 
Computex's PEN737 enhances 
Electric Pencil to utilize the 737 
fully. 

Flaxtext 

Apparat, the Denver people 
who upgraded TRSDOS so well 
with NEWDOS, show off their 
enhancement of Scripsit with a 
handsome full-page ad totally 
prepared on the Centronics 
737-1 printer. Flextext modifies 
Scripsit on disk so that printer 
function commands embedded 
in text use almost every ability 
of the printer— proportional font 
right-justification (mixed with 
elongated and compressed 
characters), underlining, super 
scripts and subscripts— all any- 
where within a document. 

A special file called Modify/ 
SCP is entered in DOS to incor- 
porate Flextext comments in 
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Scripsit. The modification is 
stored as a separate file named 
SCP/LC or SCP/UC without any 
alteration of the original Scripsit 
file. (LC and UC stand for lower- 
case and uppercase.) SCP/xx 
has all of Scripsifs features. 
Simply enter SCP/LC or SCP/UC 
instead of Scripsit/xx. 

The embedded-in-text printer 
commands always begin with 
the Escape character (the iess- 
than symbol-<) followed by a 
primary action code (either an S 
or an E, for Start or End) fol- 
lowed by a secondary action 
code that identifies the 737 
printer function to be activated 
(or halted). For example. <SU 
would begin the underlining 
function. 

Oneexcellent feature actually 
overcomes a 737 shortcoming- 
stopping elongated printing at 
the end of a print line. Flextext 
continues double-width printing 
for line after line if desired. 
Special print commands acti- 
vate Flextext when it is time to 
print a document. They are 
P.FLX for continuous forms and 
P,FLX,P for single pages. 



With Apparat's Flextext, 
Radio Shack's Scripsit com- 
bined with the Centronics 737 
printer becomes an outstanding 
word processor. 

Subscript 

Subscript 5.0 combines pro- 
grams named Edit, Script, Prop, 
and Mininit into a Basic/ma- 
chine-code package that is line- 
oriented rather than character- 
oriented like Scnpspt. The user 
composes in Edit mode, insert- 
ing print format commands as 
he goes along. Since this is 
done in Basic, one must hit 
Enter after each 255 characters, 
or preferably, at the end of each 
display line (64 characters). 

When the document is ready 
for printing. Script is called up to 
read the printer function com- 
mands and, combined with ma- 
chine-code Prop, format and 
print the document using all of 
the 737's abilities. 

Mininit is an upper/lowercase 
driver that supports Radio 
Shack's modification. It also 
delects Basic's string compres- 
sion mode, which can appear 



like a CPU hangup, since Basic 
is reallocating string space; a 
graphic C is displayed in the up- 
per right corner of the display. 
Mininit also has a screen-print 
routine— shift-zero transfers the 
display contents to the printer. 
Keyboard debounce is built in. 

Even though Subscript is a 
Basic-centered pacl<age, it has 
some features not found in 
Scripsit or Electric Pencil. One 
Is a darkness control code, 
which causes the printing to be 
overstruck for darker type. 
When this code is operating, the 
737 prints a line, does a carriage 
return, then prints the same line 
again on top of the first printing. 

Another is a table-of-contents 
code which builds up a separate 
file of strings which will be 
printed as the table of contents 
pages, automatically adding the 
number of the page where each 
string is located. Still another is 
you to number paragraphs. 

A fourth extra feature is the 
alter code that can print charac- 
ters that are not on the key- 
board, such as square brack- 
ets or braces, a vertical line or 
backward slash, or any other 



special character that the 737 
can print. These characters are 

conveniently listed. 

However, Flextext wins over 
Prop in right-justification ability. 
Prop can right-justify single and 
double-width proportional styles 
mixed on a line, but not a mix- 
ture of proportional and com- 
pressed fonts, while Flex-text 
handles ait combinations (ex- 
cluding 10 characters per inch). 



NEWSCRIPT 

Prosoft has further upgraded 
Subscript 5.0, Newscript com- 
bines prop and Mininit with new 
machine language routines into 
a single command: NS/CMD, 
which automatically invokes 
Basic and brings up the menu 
program. The menu is written in 
Basic, allowing you to easily 
change it to suit your particular 
needs. While Subscript 5.0 can 
run in 32K TRS-80's, Newscript 
requires 48K. 

Some important changes and 
additions make Newscript even 
more convenient and versatile 
than subscript. It is a full-screen 
editor rather than the usual line- 



oriented editor. The cursor can 
be placed anywhere in the text 
to make changes or additions. It 
is no longer necessary to hit 
Enter after every 255 characters, 
but only when memory is full. 
When Enter is hit, Edit pro- 
cesses everything on the screen 
and then generates a blank line 
so the user may continue typing. 

The alter function has been 
dropped in favor of direct entry 
of special characters while in 
Shift-Clear control mode; single- 
key entry of square brackets, 
braces, etc.. Is much quicker. 

The Directory command 
displays a disk's directory 
(NEWDOS/80 or Model III). An in- 
dex is generated by inserting the 
proper control word near the 
words or phrases to be indexed. 
The "Line Manipulation Area" 
(LIMA) commands, displayed 
down the left side of the screen, 
let you insert, delete, duplicate, 
and mark lines for various pur- 
poses. 

The Read control word allows 
creation of form letters with dif- 
ferent names and addresses 
taken from a disk file. Newscript 
and Subscript also support 



some of the special functions of 
the Epson N^X-80, IBM Selectric, 
and Diablo 1620 printers. 

The documentation for both 
packages is absolutely first rate 
—probably the best I've ever 
seen! The Newscript manual 
even has a How To section. 

Newscript (and Subscript 5.0) 
comes on disk from which the 
user should create a DOS disk 
containing all the necessary 
files. With two disk drives, 
creating a System disk with 
Newscript on it is simplicity 
itself: In DOS mode, enter IN- 
STALLiI and the installation is 
completed without operator 
inten/ention—very thoughtful of 
Prosoft. 

Summary 

The main difference between 
Scripsit/Flextext and Newscript/ 
Subscript is in printing speed. 
Because Script is in Basic, it 
reads controls more slowly than 
Flextext does, and there are 
noticeable pauses during print- 
ing. This is not, however, a major 
shortcoming; a few seconds 
here and there really aren't in- 
convenient, ■ 



MORE GREAT SOFTWARE FOR PEANUTS FROM P80NUT HOME OF 

THE doc:ljmeimte:r: 

CRAIG EARON'S TELEMESSABE - Telewssaqe is a iessage service proqrai for as 
little as UK. Also, YOU DO NOT NEED DISK! It runs on Model I or III. Hhen used ttith an auto-ansHer lodei, 
the prograi iiill provide the folIoMing functions; enter, suiiarize, retrieve, and kill lessages; list other 
systei nuibers; list systei bulletins; chat Kith systei operator; protected reiote systei operation) and 
autoiatic sign-off. YES you can believe your eyes it said UK and TAPE. For a deio CAU t THE DACULA FIA6SHIF 
(404) 962-0616 AIL this for only 149. 9S Disk version available soon. Contact us if interested. 

FORGOTTEN GRAPHICS - Forgotten graphics is a KEY ACTIVATED lachine language screen duip 
that works for all printable characters on the NX-BO and OKIDATA printers. The tape also includes fully 
coiiented source code so YOU can relocate the prograi or lodify it for other printers! The operating instructions 
are included on the tape. Unlike other itell known screen print routines, forgotten graphics Kill even 
print graphics. Nodel III owners love it and it runs on Nodel 1. ONLY $14.95 

THE DOCUMENTER -The Docueenter is a unique prograi that will turn your Nodel I or III 
into a fantastic prograiiing aid. YOU can now have your TRS-BO(Tandy Corporation Tradeiark) display or 
print a flowchart and branch lap of any BASIC Level 11 and Disc Basic prograi using THE DOCUNENTER. This 
powerful prograi has lany uses including; flowcharting your prograis and the prograis of others; an aid to 
learning prograiiing; aid to error detection; etc. If docuientation is a problei for you, SOLVE IT. 
t » $ BUY THE DOCUNENTER t t t TAPE VERSION - $19.95 DISK VERSION - $29.95 

When ordering PLEASE SPECIFYi Program desirBcis Model I or III; 
MEMORY SIZE 16K 32K ASK ; and Tape or Disk version 
t t DON'T FORSET ADDRESS PHONE NO. AND $1.05 FOR POSTAGE AND HANDLIN6 8a. Res. add 4X sales tax t t 

PSONUT SOFTWARE PO BOX 490 LILBURN, BA. 30247 (404) 469-0056 

VISA AND MASTERCHARQE ACCEPTED ^469 DEALER INQUIRIES INVITED 
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EDUCATION 



And on the 7th day at this Sunday school, they computed. 



The Walls of Jericho 



Chuck and Jo McNichots 
2052 Granada Drive 
Dayton. OH 45431 



The TRS-80 can capture 
student interest and help 
with teaching chores in a Sun- 
day school, since motivation is 
a major problem when kids feel 
they've already done their time 
in class during the week. This 
article presents a 16K Level II 
TRS-80 program that combines 
an attention-getting welcome 
sequence with a game that 
makes memorizing Bible facts 
and terminology enjoyable. 

The open classroom ap- 
proach te Sunday school, which 
features teaming centers and 
gtv«8 . students flexibility in 
choosing activities, makes it 
easy tq work a computer center 
into Iheteaching program. Many 
Protestant churches now use 
the Christian Education: Shared 
Approaches (CESA) materials 
that support teaching with learn- 



ing centers. We've found it rela- 
tively easy to get our computer 
center started by adapting some 
CESA workbook ideas, but other 
educational materials work as 
well. 

The Computer Center 

Our fourth and fifth-grade 
learning center is just a large 
table that holds the computer 
and two mounted posters which 
identify the center and provide 
instructions for operating the 
computer. It shows the location 
of the TRS-80 space bar and 
says any further instructions 
will appear on the video display. 
We've chosen to control pro- 
grams primarily with space bar 
input because the location of 
specific keys is difficult for non- 
touch typists. 

As children arrive in the 
classroom, they are greeted by 
a welcoming message that 
displays their first names ran- 
domly on the screen. This is 
followed by the drawing of a 
happy face. The welcoming se- 
quence repeats until a shift A is 
input to begin the game. 

Playing the Walls of Jericho 

This game was designed for 
use with a unit on the battle of 



Jericho, but the questions can 
be easily altered for other 
topics. The object is to knock 
down the wall of Jericho by cor- 
rectly answering a sequence of 
multiple choice questions. 

Following an introduction 
describing the game's rules, a 
wall is drawn. Then, a term 
taken from the lesson flashes 
on and off at a randomly se- 
lected block in the wall while 
multiple choice responses are 
displayed at the bottom of the 
screen. An arrow cycles among 
the responses, pausing for a 
few seconds at each one. The 
player presses the space bar 
when the phrase believed to 
match the flashing word is in- 
dicated. A correct response 
causes the wall above the 
flashing word to crumble; an in- 
correct response leaves the 
wall intact. The player gets 20 
tries to knock down the entire 
wall. Each player's score is the 
number of chances remaining 
when the wall Is gone. At the 
end of each game a "next 
player" message is displayed 
and the program Is set up for 
the next contestant. The best 
score achieved so far Is re- 
tained and displayed while suc- 
cessive games are in progress. 



Program Instructions 

To alter the number of names 
displayed in the welcoming 
segment, the value of NX in line 
180 should be changed. New 
nine-character string con- 
stants can then be set up repre- 
senting students' first names. 
Mixing a blank or two (like 
NM$(21)) in the list adds to the 
visual impact of the display. 
The happy-face routine (lines 
510-850) relies on a circle- 
drawing technique used for 
many years with vector-graph- 
ics computers. 

To customize the Walls of 
Jericho game, it's necessary to 
change the data statements at 
lines 1230-1400, the response 
subroutines that begin at line 
3460, and the computed 
GOSUB on line 2360. The data 
statement at line 1240 gives the 
number of terms available for 
display at random locations in 
the wall, and is the value of NO. 
Responses for each question 
are displayed as a result of the 
computed GOSUB on line 2360. 
The index for this GOSUB Is ob- 
tained from the array entry 0(1, 
1) where I is the index of the 
term currently being displayed. 
The GOSUB index values are 
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FIELD PROVEN!! 

10 MEGABYTES and MORE for the TRS-80* Model II 
plus SHARED ACCESS to HARD DISK DRIVE 

Hard/Sott Disk System (HSDS) Software allows access as single drive. You can have that 10 Megabyte continuous file - ttiat 50,000 name maillist or inventory' 
Or a directory with 1000 entries! All completely compatible witti TRSDOS 2.0 BASIC. You can mix floppy and tiard disk drives. Includes special utilities including 
HPURGE, DCS Directory Catalog System, HZAP Hard Disk Superzap, and many special formatting options. Three to eigtit times faster than floppy! RACET quality 

HARD DISK DRIVE 4 CONTROLLER $5995, Second User $595. HSDS Software $4DD.(Note: HSDS now also available for CORVUS drives' n 
KFS-80 (1 drive 32K Min Mod II 54K) Mod I and III $100, Mod I! $175 

Assembly language ISAM facility! Interlaces with BASIC. Very fast access to records in large files. Access/insert limes 1 -4 seconds, 

B-Trec directory structure eliminates record search. No file reorganization required. Sector buffering reduces media and drive wear while increasing performance. 

Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive 

tile maintenance and debugging utilities are included. Attentfon applications programmers - Save time in implementing your custom database application software 

MAILLIST (1 -drive 32K Mm - Mod II 64K) Mod I and III $75, Mod II $150 

This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes 

Mask and query selection. Record access/update time 1-4 seconds' i 

DISCAT (32K 1 -drive Min) Mod I and III $50 

This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program 

works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette 

free space, RS232 drivers and other features. 

LPSPOOL (32K 1 -drive Min) Mod I $75 

LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues 

maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. 

BASIC LINK FACILITY 'BUNK' (Mod I Min 32K 1 disk) Mod I $25; Mod II $50; Mod III $30 

Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program 

may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may 

be specified! 

INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 

Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! 

Select only functions you want to optimize memory usage. 

INFINITE BUSINESS (Requires Infinite BASIC) Mod I i III $30 

Complete printer pagination controls — auto headers, foolers, page numbers. Packed decimal arithmetic — 127 digit accuracy +, - , *. I . Binary search of 

sorted and unsorted arrays Hash codes, 

COMPROC (Mod I & Mod III - Disk only) Mod I $20; Mod III $30 

Command Processor. Auto your disk to perform any sequence of instructions that you can give from Ihe keyboard, DIR, FREE, pause, wail for user Input, BASIC, 

No. of FILES and MEM SIZE, RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver software, debounce and screenprint! 

GSF (Mod I & III Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 

Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful! 

Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES, Includes sample programs. 

DSM(Modl Min 32K2-dnve system. Mod II 64K 1 -drive. Mod 111 Min 32K 1 -drive) Mod I $75; Mod II $150; Mod III $90 

Disk Sort/Merge for RANDOM files. All machine language stand-alone package tor sorting speed. Establish sort specification in simple BASIC command File. 

Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O 

times make this the fastest Disk Sort/Merge available on the TRS. 

UTILITY PACKAGE (Mod II 64K) $150 

Important enhancements to the Mod II The tile recovery capabilities alone will pay for the package in even one application! Fully documented in 1 24 page manual' 

XHIT, XGAT, XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, 

absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0, and absolute disk backup/copy with I/O 

recovery DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk 

ID with DISKID. XCREATE preallocates tiles and sets 'LOF' to end to speed disk accesses. DEBUG!! adds single step, trace, subroutine calling, program looping. 

dynamic disassembly and more! ! 

BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 

SEEK and FIND functions for Variables, Line Numoers, Strings, Keywords. All' options available for line numbers and variables. Load from BASIC — Call with 

'CTRL'R. Output to screen or printer! 

DEVELOPMENT PACKAGE (Mod II 64K) $125 

Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including 

uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler -f and documentation for Mod I, Assemble directly 

into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands. 

DEALER inquiries invited. System Houses - check tor special pricing on hard drives and software. 



CIRCLE READER REQUEST FOR FREE 24-PAGE CATALOG 
■TRS-80 IS A TRADEMARK OF TANDV CORPORATION 



CHECK VISA M.'C C . PURCHASE ORDER 
TELEPHONE ORDERS ACCEPTED (711) 997-4950 
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loaded by the same data state- 
ments that load the terms (lines 
1280-1400). 

The W(„) matrix controls the 
overall graphic display. The 
screen is divided into a 12 by 



6'blocK matrix, each repre- 
sented by a string variable and 
drawn by one of the sub- 
routines beginning at line 3180. 
Drawing or removing the wall is 
controlled by calling these 



Welcoming Segment 


NX 


Number of names lor welcoming massaga. 


NM$(30) 


Array holding names as nlna-characier strings. 


LN(IO) 


Scraen locations lor dtsplay ol namas. 


W 


Controls length of time-delay subroutine. 


FL 


It FL = 1, circle drawing subroutine draws lull circla. Other- 




wise, a sernicircle is drawn. 


N 


Numbar of increments dallning the circle. 


R 


Radius Ol the circle. 


s 


Starting angle lor circle. 


E 


Ending angle for circle. 


Walls of Jericho Game 


W(12. 6, 2) 


Describes the 12 row by 6 column grid that dellnas the wall. 


0(20,3) 


Question control array. The Ihraa values provldad for each 




question represent the Index of the computed GOSUB that 




displays the responses, the number ol the correct response 




(one if A is correct, two for B, three for 0), and the number ol 




responses (up to three). 0(1,0) Is sat to zero when a term has 




been correctly Identified. 


Q$420) 


Nine^haracier terms that represent the questions. 


NB 


Holds best score across multiple players. 


P.R.S 


Define screen locations lor displaying responses 


SS<6) 


Displayed sequentially to dislniegrala the wall. 


BFJ. BR$. etc 


Nine-character graphics strings whlcf> represent the various 




wall components. 




Table 1. Major Variables and Arrays 



subroutines using computed 
GOSUBs at tines 2090 and 2640. 
The main loop for play of the 
game begins at line 2160 and 
ends at line 2900. A wall loca- 
tion In the lower nine rows of 
the 12 by 6 block grid that has 
not been disintegrated yet is 
randomly chosen for display of 
the term (lines 2190-2220). 
Seventy percent of the time one 
of the bottom four rows is 
chosen with the current code. 
Then a term is randomly se- 
lected from those not yet cor- 
rectly matched with a re- 
sponse. When all terms have 
been correctly Identified, the 
entire set is again made avail- 
able. Thus, there can be less 
than 20 terms In a game with 20 
chances for the player. 

The possible responses are 
then displayed in a routine that 
also flashes the term and 
moves the response arrow (be- 
ginning at line 2320). Routines 
for reacting to an incorrect or 
correct response begin at lines 
2540 and 2660 respectively. 



Every time part of the wall is 
removed, the W(„) matrix is 
checl^ed to see if anything Is 
left (lines 2830-2890). If not, we 
have a winner, and an ap- 
propriate message at line 3120 
precedes the recycle of the 
game for the next player. If the 
wall survives 20 tries by the 
player to match terms, the code 
at line 2910 is used to restart 
the game. 

Our Experience 
WKh the TRS-60 

The biggest problem we've 
encountered Is needing an- 
other machine for the class, 
which numbers over 20 stu- 
dents. Today's fourth and fifth 
graders seem very comfortable 
working and playing in a com- 
puter environment. We plan to 
continue our experimentation 
with this learning medium, and 
would enjoy sharing experi- 
ences with other Sunday 
school teachers who have 
found similar use for their 
microcomputers. ■ 



"mqo^^' 



POCKET COMPUTER NEWSLETTER 

P.O. BOX 232, Seymour, CT 06483 ^^2? 



ton POCKET COMPUTER "users! ' "* 

N«ws and Product R««i«ws 

Programming T ipa 

Oparoting Ttmasavars 

Tuloriali 

Cuitomising YoMr Unit 

Short Call 

Practical Programs 

Tachnical Daloils 

Insido Ulormalion 

Application Forums '^ ' 



D YES1 Sign me up as a charter subscriber for issues 1 - 10. 
Enclosed is my $20.00 for U.S. delivery. (U.S. $24.00 to 
Canadat. U.S. $30.00 elsewhere.) 

D Npt sure. Enclosed is $2.00 tor a sample issue in U.S., $3.00 
for a sample issue elsewhere. 

NAME. 

ADDR. 

CITY 



MC/VISA # 
_ Signature 




Program Listing 



l»V ULEAR mull 

lie DIH W(12,6,2),0[Za,J),0S(28),NMS{3B),LN(ie 
120 ■ 

110 'HELCOMC MESSAGE AND HAPPY PACE 

141 ■ 

ISe CLS 

160 PRINT CHR$t23)i 

170 'NX IS NUMBER OP NAKE ENTRIES, UP TO 30 

180 NX-24 

'iNM$(:)-*LAURie 
•iNIlS(5)."LISA 
•jHMSiej-'KATIE 
■!miS{ll)""LAURA 
':NM$(U)-'JENIlIFEIt 'ilMStlS) 
:HHS(lI)-"Ann -tMStlSl 



190 NMSID-'ANN 
200 HKS{4)-'R0BERT 
210 NI1S{7)--P0LK 
220 NMSdB). -ELLEN 
230 N)1$(131-*ASHLEY 
240 NK$I16) -"BILLY 
250 H»lS(191--|tATlE 
260 NMS(221 -'SCOTT 



■iNMSI3)-"0AVID 
-iNN$(6)->BARBARA 
■iIWS(9)--AKNE 
•:NHS{12)«'LEXY 

'EVAN 



■|HII«{2l}*-SnEVBIi ■ini$(21). 

■>,« .=Bi,-.»-o^i — ■tiqiSCaai-'JMON ■ilfflS(24) --MICHAEL ■ 

270 -SETUP SCREEN P0SXTJIW8 POR MllDaK NAME DISPLAY 

280 LH{l)-200:LN[2)-Z3CiIli|3)-34aiUI(4|-3e0:LN{5)-4Se 

H! ^iti.ti*!'""''"""'"'f"''«20;LH(9)-7B4iLH(:0).746 

300 PRINTM.-HELCOBE TO TBE WESTMINSTER', 164, -LEABNING CENTER.., 

I 
310 'INCREASE W IN NEXT LINE TO WAIT LONGER AFTER MESSAGE 
320 H-400:GOSUB 860 

330 'K LIMIT TELLS HOW MANY TIMES TO REPEAT EACH NAME 
340 FOB R-l TO 3 
350 FOR I-l TO NX 

360 'LC IS RANDOMLY SELECTED SCREEN POSITION 
370 LC-RND(10J 
380 PRlMTeLK[LC),NMS(Ili 

390 'INCREASE H IK NEXT LINE TO BOLD NAME LONGER 
400 U>50:COSUB 860 
410 'CHECK FOB EXIT REQUEST 
420 GOSUB 670 
430 NEXT I 
440 NEXT K 
450 FOR J-1 TO 10 
460 PRIWT0LN(J) ,• -, 

470 NEXT J 

480 PRINT0960,- WE'RE GLAD YOU'RE HERE 11-- 
490 W-1000:GOSUB 860 
500 GOSUB 670 
510 -DRAW HAPPY FACE 
520 PRINT CHR$(28}; 

54" ^;^r;0'r"""''"'**™*^' '«-^/«"^^«/'' 

SS0 GOSUB 670 

560 FL-0:N.lBl:H.28:S-7*E/K:E-Et2*E/N 

570 GOSUB 700 

580 GOSUB 670 

590 'SETUP BOSE.NS, AND EYES.ES 

fi?S S!"^II^!'!";*'^"«*<i"'*<^HRS(Ufl)tCBRS[140)tCHRSI142) 
t\l "*;S"S!i"*'*<^"''''""*CHRS(176)tCHRSaS2 

620 PRINT#l7e,E5;:PRINTMe5,ES;:PfilNTe6e6 N5; 
630 W-2B0B:COSUe 860 



Program continued 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 



I 



FOR TRS-80* Model I 

CCI-100 5'..", 40 Track (102K) $299 

ADDON DRIVES FOR ZENITH Z-89 
CCI-1B9 5 ' * ". 40 Track (102Kj $394 

Z-87 Dual 5 '/* - system $995 



External card edge and power supply included, 90 day warranty/one 
year on power supply 



RAW DRIVES 

S'.'TEACorTANDON 



SCALL POWERSUPPLtES $ CALL 



DISKETTES - box o\ io 

5V4' Maxell $40 

8' Maxell $45 

PLASTIC FILE BOX-Holds 50 5 V, 
PLASTIC LIBRARY CASE 
HEAD CLEANING DISKETTE 
FLOPPY SAVER $11.95 



BASF/Vertatim 
BASF/ Verbatim 



i"diskei!es 
5'.' $3.00 



RINGS 

2 for $37 

Jumpers 



$26.95 
$36,00 
$19.00 
$ 4.00 
$25.00 
$ 6.95 

$19 

$2.50 



16K RAM KITS 

200ns for TRS-80,*Apple II. (specify): 

SYSTEM SPECIAL 

Apple II Plus 48K w/drive and controller. Epson MX-80 printer and 
interface SUP-R f-1od RF Modulator List $2966 You Pay $2299 

COMPUTERS/TERMINALS 



ARCHIVES 64K. 2-Drives. 77 Track 

ALTOS ACS8000 Series 

ZENITH 48K, allin one computer 

ZENITH Z-19 

TELEVIDEO 910 $559 920C $ 729 

IBM 3101 Display Terminal 

ATARI 400 $ 429 

MATTEL INTELLIVISION 

APPLE PERIPHERALS 



960 



800 



$CALL 
$CALL 
$2200 
$ 725 
$1039 
$1189 
$ 795 
$ 259 
$CALL 



S-100 CALIFORNIA COMPUTER SYSTEMS 




MAINFRAME 


Model 2200 A 


Z80CPU 


Model 2810 


MOTHER BOARD 


fvlodel 2501 


16K STATIC RAM. 200ns 


Model 2116C 


32K STATIC RAM, 200ns 


Model 2032C 


64K DYNAMIC RAM 


Model 2065C 


FLOPPY DISC CONTROLLER 


ivlodel 2422A 


EXTENDER BOARD 


Model 2520K 


2P + 2S I/O 


Model 2718A 



$349 
$259 
$106 
$309 
$619 
$580 
$345 
$ 52 
$309 



PRINTERS 




NEC SPINWRITER 

Letter Quality High Speed Printer 

R.O 

R.O. with tractor feed 

KSR with tractor teed 



NEC SPINWRITER 3500 Series, 5 new models 
EPSON MX-70 MX-80 MX-80FT MX100 

PAPER TIGER 

Graphics & 2K buffer 

Graphics & 2k buffer 

Graphics 

DP-eOOO $849 DP-9500«1 



IDS 445 
IDS 460 
IDS 560 

ANADEX 

OKIDATA 
MicrolJne 80 
Microline 80 
Microline 82 
Microline 83 

CENTRONICS 

C. ITOH 
Starwriter I 
Starwriter I 
Starwriter II 
Starwriter II 



Friction & pin teed 

Friction, and pin & tractor feed 

Friction S pin feed feed 

120 cps, uses up to 15" paper 

739, new model with graphics 

25 cps, parallel interface 
25 Cps. serial interface 

45 cps, parallel interface 
45 cps. serial interface 



PRINTER SPECIAL 

SEIKOSHA GP-80M 

MONITORS 

BELL& 

HOWELL 

LEEDEX 



List $399 



$2395 
$2555 
$2795 

$CALL 

$CALL 

S 695 
S 799 
$ 999 
$1295 

$ 415 
$ 500 
$ 615 
$ 849 
$ 749 

$1449 
$1529 
$1829 
$1949 



You Pay $319 



SANYO 
ZENITH 



9"B&W BHD911 
12"B&W $129 
13" Color 

9" B & W 
12- B& W 
13" Color 



$329 
$149 
$219 
$349 



$195 

12" Green Screen $159 

12" Green Screen $238 
13" Color $406 

12" Green Screen $129 



TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2 year guarantee 

UNIVERSAL DATA SYSTEMS UDS-103 

D CAT HARD WIRED DIRECT MODEM 

AUTO-CAT Auto Answer. Direct Connect Modem 

APPLE-CAT II 

D.C. HAYES MICRO MODEM 

DC. HAYES SMART-MODEM 

CCI Telnet Communications Package 



$12S 
SI 79 
$180 
S24S 
$340 
$295 



APPLE ACCESSORIES AND SOFTWARE 

DB MASTER $159.00 
$259.00 



VISICALC $155.00 

Z-80SOFTCARD 

VIDEX BOARD 

KEYBOARD ENHANCER 

16K CARD 

APPLE JOYSTICK 

SUP-R MOD 

CCS CARDS 

GALAXIAN 

SPACE ALBUM 

ASTEROIDS 

FLIGHT SIMULATOR 

WIZARD & PRINCESS ^ 

SARG0N2 

MYSTERY HOUSES 24.00 




HI-RES FOOTBALL 



S259.00 
$110.00 
$169.00 
$ 49.00' 
S 25.00 
SCALL 
S 22.95 
$ 35.00 
$ 17.95 
$ 29.00 
5 28.00 
$ 29.00 
S 35.00 



For fast delivery, send cef litied checks, money orders or cal 
!o three weeks to clear All prices are mail order only and 



I to arrange direct bank wire transfers Personal 
are subiect to change without notice Call tor 



or company checks require two 
shipping cliarges. 



DEALER (NATIONAL/INTERNATIONAL) INQUIRIES INVITED Send for FREE Catalogue 



The 



-298 



TO ORDER CALL TOLL FREE 1-800 343-6522 

TWX: 710-348-1796 Massachusetts Residents cail.617/242-3361 



5 Dexter Row. Depl MC09M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon -Fri (Sat. ti 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 

Tandy Corporation Trademark/' DiQilal Research 



' .^^.^a^. 


■i^^^H^^ 


'master charge 


V^A 



'Sam List of Aifva/tls«rs on paga 3S4 
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RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is ihe IM-2 4eK INTERNAL MEMORY"and a phillips screw- 
driver — everything you need lo ADD up to 32K RAM to your TRS-80* h-lodel I 

keyboard unit (for a total of 48K RAM). No soldering or trace cuning — just open 
(hecase.renioveyourRAMchpps, plug the INTERNAL MEMORY(IM)intott>e 
RAM sockets, plug your chipj back in, connea 4 solderless clips (they work!|and 
close the case (Deiailed, illusiraied siep-by-step insiruakins show you how to do 
this). You now have a 48K keyboard unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is available. 

Time and experience have shown that the TRS-80* expansion buss cannol 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD OF the RAM in their expansion interface to 
eliminate El memory problems! 

Because ihe IM draws most of its power from the 12 voli supply, power supply 
toading is not a problem. Some additional heat is generated, but the TRS-80* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials. You have 15 days to return it for a refund if you don't like it, 
and ii is guaranteed for I full year, Insialbtion is available for a small fee. 

Send a S.A.S.E. for more information. 

PR ICKi — '"•* '^^"^l *"-50 ('«* RAM) leS-SO (W/I6K RAM) 
,M.2(«K) «e9.S0 (less RAM) M40.00 (w/32K RAM) 

Prices include UPS shipping in U,S, 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 



(>tui.uieejiina- 



'401 



6246 Wen 3705 South Sail Like Clry, UT MOO (801) 967-2324 



aiE 



3Z 



3£ 



DISCOUNT 



stock Computer Paper & Labels 
Over 50 Items in Stock 



ITEMS IN STOCK 


Cuitom To Your Needi 


Stock Forms Blank or Green Bar 


tnvoices 


Statements 


Shippers 


Index Cards 


Custom Checks 


Pressure sensitive labels all sizes 


Custom Continuous Envelopes 


Continuous #10 envelopes 


& Letter Heads 


Continuous Blank Letter Heads 


Statements 


Spacing charts & layout sheets 




Forms rulers 


Quantities Of 1000 Or More 



I 



Send Inquiries To 

WHITE RIVER PRODUCTS ^4S0 

P.O. BOX 604 

MT. CLEMENS, MICHIGAN 48043 



Name. 

Street. 
Stale_ 



Phone 



Zip. 



Type of Equipment, 



SEND^FOR % D Computer D 81 Tax Guide 
YOURS TODAYS Package Q stock Price List 



=CE 



S= 



3E 



3Z 



az: 



Program continues 



640 GOSUB 670 

650 GOTO 150 

668 'SUBROUTINE TO CHECK FOB SHIFT-A WHICH STARTS GWIE 

670 IF IKKEVS-CHBS07) THEN 980 

680 RETURN 

CIRCLE OR FRACTION OF A CIRCLE 



770 
780 
790 
600 
810 
820 
830 



1178 
1180 

1190 
1200 



690 'SUBROUTINE TO DRAW 

788 'ENTRY VALUES N,S,F,R 

710 PN-e'ATN(l)/N 

720 SP-SIK(S> :CP.COS(£) 

730 SD=EIN(PN) :CD-COS(PH) 

748 K-(E-S)/PN 

758 FOR 1=1 TO K 

760 SET[6 4+R*CP,24+.4'R*SP) 

SET(64-B*CP,24+.4*R'SP) 

IF FLOl THEN B!0 

SET{64+R'CP,24-.4«R*EP) 

SET(64-R'CP,24-.4'R*SP) 

S=SP'CD*CP*SD 

CP=-SP*SD+CP'CD 

SP-E 
840 NEXT I 
850 RETURN 
860 'WAIT ROUTINE 
B70 FOR WI-1 TO W!KEXT:RETURN 
080 END 
090 ' 

900 'WALLS OF JERICHO GAME 
910 ' 

928 'BEST SCORE SO FAR 
938 NB-0 

940 P«e4S:R-64!S.12e 
950 'LOAD QUESTIONS, RESPONSES 
960 RESTORE 
970 CLS 

980 PRINTCHRS(23) 

990 PRIHT@4,5TRING$|24,CHR$a4e) ) ; 
1000 PRIin'e70, 'WALLS OP JERICHO GAME"; 
1010 PRIHrel32, STRINGS! 24, CHRSl 131 )) 
1020 PRINT 

1030 PRIMfPRESS THE SPACE BAR WHEN" 
1840 PRINT 

1050 PRINT-===> POINTS TO THE ANSWER" 
1060 PRINT 

1870 PRI1IT''THAT GOES WITH THE PLASHING" 
1080 PRIUT 

1090 PRINT'WOHD. YOU HAVE 20 TRIES TO" 
1100 PRINT 

1118 PRINT"NAKE THE WALLS COME" 
1120 PRINT- TUMBLING" 

1130 PRINT" t>OWH- 

1140 READ NQ 'NUMBER OF QUESTIONS 
1150 FOR 1«1 TO NQ 
1161 READ QS(I) 

Q(I,0>-1 

FOB J=l TO 3 
READ C(I,J) 
NEXT J 
1210 NEXT I 

1220 NC-20 •NUMBER OF CHANCES TO KtWCK DOWN WALL 
1230 'NUMBER OF QUESTIONS 
1240 DATA 13 

1250 'EACH DATA STATEMENT GIVES 9 CHARACTER QUESTION 
1260 'FOLLOWED BY QUESTION INDEX, CORRECT ANSWER, 
1270 'NUMBER OF ANSWERS 
1280 DATA ' THE ARK ",1,1,3 
JOSHUA ',2,2,3 
JERICHO *,3,2,3 
MOHAD ",4,2,3 
PROPHET -,4,3,3 
EGYPT ",5,1,3 
SEVEN ',6,3,3 
JORDAN ',7,1,3 
HOSES ",8,3,3 
1370 DATA 'MEMORIAL ",9,2,3 
13B0 DATA ■ SYMBOL ',9,1,3 
1J98 DATA "TRUMPETS ",18,2,3 
1400 DATA • RED SEA ",11,3,3 
1410 'STRINGS FOR PICTURE ELEMENTS 
1428 'BLOCK IN WALL 

1430 BFS-STRIHGS(e,CHBS{1431)*CHRSll33) 
1440 BRS-STfilHGS(9,CHRS(143)) 
1450 H$-' 

1460 'SBOOENCE TO MAKE WALL CRUMBLE 

1470 SS(l)=CHRSa53)tCHRS(155)+CHRS(174)+CHRS!161)+CHRS(138)*CHR 
S(159)tCHRS(175)tCHBS(182)*CHRS(158) 

1480 SS(2)-CHRS(146)tCHRS(173)+CHRS(132)+CHRS(134)tCHRS(153)tCHB 
S(145)+CHRS(147)+CHRS(150)*CHRS(146) 

1490 £S(3)-CHRS{152)tCHRS(leO)+CHRS(10e)tCHRS(164|tCHRS(149)tCHR 

S(168)tCHRS(172)tCtlRS(ieB)*CHRSllS6| 

1500 SS(4).CHBS(136)*CHRS(160)tCHRS(164)+CHRS(136)+CHRS(148l*CHR 

S(132)+CHR5(168)KHRS(176)+CHRS(160| 

1510 SS(5)-CHRS(144)tCHBS(176)*CHRS(136)+CHRS(160)+CHBS(144)*CHR 

S(176)*CHRS(144)tCHR5(160)tCHRS(16e) 

1520 SS(6)-' 

1530 'TOWER 

1548 TlS-CHRS(191)tCHBS(176)+CHRS(191)tCHRS(176)*CHBS(191)tCHHS( 

1761 ■«:kRS(191)+CHBS( 176) +CHRSt 191) 

1558 T2S=STRINGS(9,CHRS(191)) 

1568 T3S-CHRS[128)tSTBINGS(7,CHRS(I91))+CHRS(128) 

1578 'GATE 

1560 GS-CHK5(131)+CHRS(131)tCHBS(I91)*CHBS(131)*CHRSll31)*CHHS(l 

31)*CHRS(191)tCKRS(131) ' 

1590 GL$>GSt^CHRS(131) 

1600 GR$>G$+CHR;a29) 

1610 'NAME OVER GATE 

1620 N1S='' JERICHO-' 

1630 N2S-'KBEP OUT " 

1640 'SETUP PICTURE MATRIX 

'W(12,6,3) DEFINES THE WALL, 6 BLOCKS WIDE AND 12 HIGH 
THE FIRST ELEKEHT IS 1 IF A BLOCK IS AT THE LOC'B 
THE SECOND ELEMENT IS THE SCREEN POSITION 
THE THIRD ELEMENT IS THE COMPUTED GOTO INDEX WHICH 
CHOOSES THE BLOCK TO DRAW 

Program continued 



1298 DATA 
1308 DATA 
1318 DATA 
1320 DATA 
1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 



1650 
1668 

1670 
1688 
1690 
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ProgrBTi continva 



V>»* FOR I-l TO 9 

ITlt rOR J-I TO 6 

1T2* H(I,J,t)-l 

J73» W(l,J,l)-TtB-(l-ll*64t(J-l)*9 

I74i W(I.J,2)-1 

17SI VtVt J 

176t U(I.«,2)-( 

I77> NEXT I 

17BI FOR I-ll TO 13 

179t M(I,l,f)-ttH(I,C>l)-l 

ISli H|t.l.l}-131-(I-ll)*C4iW(I,t,l)-17S-tI-lB}*«« 

181I WCI,t.2)-3*tI-ll)il'(I.6,2)-l«(t-lt) 

ie» SEXT I 

IBJt FOR 1-ia TO 12 

lB4t FOB J-I TO i 
IKt 1I(I,J,B)-B 

1B6B REXT J 

187* MBZT I 

IBM 'GATE 

lB9f POM t-1 TO 4 

19BI K(I,3,2)-1 

191B 1l(I,4.3)-7 

1»2B NSZT I 

1931 'KANE OVER GATE 

)»4B W(5,3,2)>B 

195i W(5,4,2)-9 

196f N{5,3,».3 

197fl N(5,4,l)<3 

19U 'WAIT TO FLAY 

1991 PBINT#9«a . 'PRESS SPACE BAR TO PLAY....') 

2iiB IF I«EK9<>' ■ TBEM 28M 

2aiB 'SETDP PICTURE 

3f2> CL£ 

2B3B FOR J-f TO 127 

2I4« SET{J,16] 

315a NEXT J 

zaaa for t-i to 13 

2B7B roe. J-1 TO fi 

2BBa IF M(l.J.B)-a THEK 2ia> 

2a9a OK UlIrJ.3> GOSUB 322a,33H,3iaB,13ia,333t,33M,338»,342B 

,344a 

21f a HEXT J 

2IIB MEXT I 

212B FOR 1-1 TO 408illEXT 

213S 'MAIN LOOP 

214S 'QU IS NUMBER OF QUBSTIOH AMSNERED OK IN ONE PASS 

215B QU-B 

21C8 FOR QS-l TO NC 

3178 PRlNTf22,NC-<)X+l|'CUMIceS LEFT ■> 

218B PeiHT#86, 'SCORE TO BEAT-'iNBi 

2198 I-IU1D(4| 

2286 IF RSD(B)<.3 THEN I-I+S 

22le J-RND<e) 

222e IF H(I,J,e)<>l THEN 3198 

2238 'PICK A QUESTION 

2240 M=RHD ( HO-HU I 

225a FOR K-1 TO KQ 

22G8 IP 0(K,a)>t THEN 1398 

2278 fl=H-l 

228B IF n-e THIUl 238B 

229B HEXT K 

2388 L-H[I,J,11 

23ia PRIMTaL,OS(K) t 

232B 'DDwnr iNKEY hbao to clear 

2338 DS'INKEVS 

3348 GOSUB 2990 

235B 'PRINT POSSIBLE ANSHERS 

236a OR OtR.ll GOSDB 34<a. 3388, 354a. 3588, 3628, 3««a, 3788, 3748, 37 

88,3838,3868 

2378 'GET SELECTED AHSHBR 

23BB FOR Ml'] TO 0{K,3) 

2398 PL^P-4t lAX'l) *t4 

2488 PRIHTgPL.'— >"l 

2418 'FLASH TKE QUESTICHI MILE LOMING FOR AHSHER 

2428 FOR KX-1 TO 8 

243a FOR LL-1 TO 6 

2448 IF XK-IIIT(tl/2)*2 THEN PRtn8L.8St ELSE PiaRT«L,OS(K} | 

2458 IF INICYS-" " TMEN 2521 

3468 NEXT LL 

2478 NEXT KX 

24BB PRimaPL.* 't 

2498 NEXT AX 

3588 COR] 2388 

3518 'SEE IF ANSWER IS RltST 

2528 PRIirraPL,'***>"i 

2538 IF AX-Q(K,3) THDI 36H 

3B48 'mONG AKSWCR 

2558 FOR KK-X 10 5 

25(8 FtW LL-1 TO 48 

2578 PRIWItL," NOPEl 'i 

258B NEXT LL 

2598 FOR LL-1 TO 4B 

2C88 FRIirr8L,0S(K)t 

3618 NEXT U. 

3628 NEXT IS 

2638 PRIHTaPL,* 't 

3648 ON H(I,J,3) GOSUB 3238,3258,3288,3318,3338,3358,3388 

2658 GOTO 2988 

2668 ■ RIGHT AMSMER 

2678 PRIirraL,* RIGHTI 't 

36BB FOR AX-1 TO BBBiNCXT 

369B FURm,QS(B)l 

2788 fOR AX-1 TO «MtNCXT 

2718 'NARK ANSWER RIOIT 

2728 Q(K,8)-0(K,8)*1 

273f MJ-ND+l 

274B IF rnxNO THEN 3a«B 

2759 FOB B-1 TO »Q 

Z7G8 0(H,8)-1 

2778 NEXT M 

27Bfl NU-e 

2798 'RENOVE COLUIW OOMi TO BU>CK 

2888 GOSUB 3888 



2S19 PBINTBPI.." ■; 

2629 H<I,J,8)-8 

2830 'SEE IF AmTHINC IS LEFT 

2848 FOR tI-1 TO 12 

2858 FOR JJ*1 TO 6 

2868 IP N(II,JJ,8)-1 THEN 398B 

2B78 NEXT JJ 

2888 NEXT II 

2898 GOTO 3128 

2988 NEXT QX 

2918 'CND OF THE GAME ~ JERICHO WINS 
2928 GOSUB 2998 

293B P»I»T8P*R-3,"TliE HALL SURVIVED — BETTER LOCK NEXT TIIIEI*! 
294* POX I-l TO IBBBtNEXT 
2958 CLS 

2968 PRINr846B,CHRS<23)(-axT PLAVER'; 
2978 FOR I-l TO IBBBsHEXT 

2989 GOTO 968 

299B FOR N<P TO P«5 STEP R:PRIHT»N,CKR5(342) ; :NEXT:RETURN 
3BB8 'SHASEDOMI PICTURE 
3818 FOR 11-13 TO 1 STEP -1 
382B IF N(II,J,8|*8 GOTO 3898 
3838 LL-H(II,J.1> 
3a4B H(tl,J,8|>a 
3858 FOR K-1 TO 6 
3868 PRIirT8LL,5S|K) i 
3878 F(HI AX-1 TO 28tNEXT 
38B8 NEXT K 
3898 NEXT II 
3188 G0SUB3998 
3118 RETURN 

3128 PRINT«787,CHRS(2)))'yOU HIH-HELCOHE TO JERICHOI'i 
3138 PRIIfTf22,CHRS(232); 
3148 PRIin'f8e,CBBS(233]i 
315B 'CHECK BEST SCORE SO FAS 
3UB IP NC>QX>KB THEN NB-NC-QX 
317B GOTO 2948 
3188 'DELETE A BLOCK 
31*8 W(t,J,8)-8 
32IB PR]KTmiI,J,l},HS; 
3218 RETURN 

3228 'ORAN BLOCK IN MALL 
3238 PBINT"M(I,Jfl).BF$t 
3248 RETURN 
325B 'OMH GATE 
3268 PRINT8WtI.J,l).GLSt 
3378 RETIIRK 
3288 'DRAH TURRET 
3298 PRtNrm(I,J,l),T3S; 

3388 RETURN 

3318 FRINT8W<),J,l),T2Si 

3328 RETURN 

3338 PRINT«W(I,J,ll,TlSi 

3348 RETURN 

3358 'RIGHT HAND BLOCK 

3368 PRIHT8M<I,J,1),BRS| 

3378 RETURN 

33S8 'RIGHT SIDE OF GATE 

3398 PRINT«W(1,J,1|,GR$I 

3408 RETURN 

3410 'NAME — FREE LOCATION 

3428 PRINT8N(t,j,l),NlS: 

3438 RETURN 

3448 PRINT8Ntl.J,l).N25i 

3458 RETURN 

3468 PRIHT«P,'A. A BOX CONTAINING THE LAWS OF GOD*; 

3478 FRIHT»PtR,'B. A STORAGE COHTAINER't 

3488 PflINT#P*S,*C. A HUSICAL INSTRUNEHT-; 

3498 RETURN 

3588 PBIHTSP,-A. AN EGYPTIAN PHARAOH', 

3518 PRIMT#P+R,'B. LEADER OF THE ISRAELITES't 

3530 PRI)IT8P*S,*C. DEt-ENOER OF JERICHO*: 

3530 RETURN 

3548 PBINI#P,'A. A CITY IN EGYPT'; 

3S58 PRINT8P-»R,'B. A WALLED FORTRESS CITT'i 

3560 PRINT8P*5,*C, LEADER OP TttE ISRAELITES'; 

3570 RETURN 

35B0 PRINT^P.'A. RULER OF THE ISRAELITES'; 

3598 PFINT»P»B,'B. A FEBSOW MHO BOVES FRO« PLACE TO PLACE' i 

3600 PtltNT«P<S,'C. A PERSON HBO SPEAKS OR WRITES FOR GOD't 

3610 RETURK 

3628 PRIHT0P,*A. WHERE GOD HELPED THE PEOPLE ESCAPE FROM SLAVERY 

'l 

3638 PRIirrfP*R,*B. A WALLED FORTRESS CITY't 

3640 PRINT«P«S,'C. THE WILOERHESS EAST OF THE JORDAN'; 

3650 RETURN 

3660 PRIWr0P,*A. THE NWBEX OP TBIBCS*: 

3678 PRIMTfPtR.'B. THE NUHBEB OF YEARS WAIffiERING IN THE NILDERNE 

SS't 

3680 PRtHt0P+S,*C. THE Nl»BEn Of TIMES TO MARCH AROUND THE CITY* 

t 

3698 RETURN 

3700 PRIirrtPf'A. THE RIVER CROSSED TO GET TO JERICHO'; 

3710 PRIMT«P*R,*B. A UALLBD FORTKESS CITY't 

3730 PHIW0P*S,'C, THE LEADER OF THE ISRAELITES'; 

3730 RrroRN 

3748 PRtMTIP,'A. LED THE ISRAELITES TO JERlCUO'i 

3750 PRINT0P*R,'B. THE raARAOH WHO RULED EGYPT-; 

3760 PRIirr0P*S,"C. LEO THE ISRAELITES OUT OF EGYPT", 

3770 RETURN 

37B8 PRIMT8P,'A. OBJECT REHIIDING US OF A FEELING OR CVaBft 

3798 FRIKTIP*R,'B. KEEPS A KBHORY OF A PERSON OR EVENT ALIVE'l 

300« PRm0Fi'S,*C. A MUSICAL IKSTRDHERT* > 

3810 RETDR* 

3020 PBIHTtPr'A. OSBD TO ANMODHCE THE ARRIVAL OF THE ISRAELITBV* 

I 

3830 PRISr«P*R,'B. USED TO KNOCK DOWN 1«E WALLS OP JERICHO"; 

3048 PltIirr8P4S,'C. USED TO AHHOOKE THE CAPTURE OF JERICHO'i 

3050 RETURM 

3868 PRIMTIPr'A. A SEA BESIDE JERICHO*; 

3870 PRIIfr8P+R,*B. DRIED UP FOB JOSHUA SO THE PEOPLE COULD CROSS 

•l 

3800 PRIMT«P*S,*C. PARTED FOR HOSES SO THE ISRAELITES COULD ESCA 

«'l 

3890 RETURN 
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CONSTRUCTION 



So you followed the article's instructions like a puppy but. 



Lowercase Done Right 



John Burgan 

734 Flamingo Way 

North Palm Beach, FL 33408 



Several recent computer 
magazine articles have ex- 
plainsd how to install a lower- 
case modification for under 
$20. All these modifications dif- 
fer from Radio Sfiack's, require 
switches, and have missing 
lowercase descenders. One 
even lost the graphics char- 
acters. 

Using a little logic, I deduced 
that the Radio Shack modifica- 
tion, which has lowercase 
descenders and graphics, must 
contain something more than 
the changes in these mods. A 
careful look at the parts list in 
the TRS'80 Technical Manual 
revealed only one chip with a 
name that sounds like it has 
anything to do with lowercase: 
the Z-29, an MCM6670 char- 
acter generator chip. 

What I Did 

With this piece of informa- 
tion, I went to Radio Shack and 
»!aced an order for this chip, 
and after several weeks picked 
up my new chip with a piece of 
paper attached stating that its 
National Parts stock number 
was AXX3027 and its cost was 

$12.95. 1 also picked up an 18-pin 



socket for this chip for 49 cents, 
and a2102L IK static RAM chip, 
as required in the Electric Pencil 
documentation, for $2.69. 

First I installed the Electric 
Pencil lowercase mod, minus 
the switches {I wired the up- 
per/lower switch in the lower 
position, and omitted the con- 
trol key completely). Then I 
carefully unsoldered and re- 
moved the Z-29 chip, Installed 
the 18-pin socket and inserted 
my AXX3027 chip. (I later found 
Out that the newer keyboards 
already have a socket installed 
for 2-29, as well as one for the 
2102L (Z-45), thus eliminating 
the nerve-racking job of un- 
soldering an 18-pin chip.) 

I quickly reassembled the 
keyboard, booted up NEWDOS- 
80, and executed the LCDVR/ 
CMD lowercase driver program. 
My TRS-80 had lowercase 
descenders and the graphics 
worked just like before. This is 
the same mod that Radio Shack 
sells for $59, but I installed it for 
only $16.13. Some savings! 

How It Is Done 

This not a job for someone 
lacking soldering experience. If 
you make a mistake, you have 
voided your warranty and Radio 
Shack will charge you to fix it (if 
they can). If you don't know 
how to work a soldering iron to 
perfection, take this job to 
someone who can! 

Go to Radio Shack and get 
the following: a 2102L static 
RAM chip (RS #276-2501), an 
18-pin socket (RS # 276-1992), 

and order a AXX3027 character- 



generator chip for the Model I 
computer from National Parts. 
You may order directly from Na- 
tional Parts by phone at (817) 
870-5600. 

When the parts arrive. 
carefully open your keyboard 
and find the Z-29 chip. Carefully 
unsolder and replace the Z-29 
chip with the 18-inch socket. 
Place the AXX3027 chip in the 
socket. 

Take the 2102L and bend 
pins 11 and 12 up parallel with 
the surface of the chip. (Be 
careful with this chip, as it's 
static susceptible.) Solder a 
piece of light-weight wire (wire- 
wrap wire preferred) to pins 11 
and 12. 

Locate the Z-45 chip (one 
down, and two to the left of the 
Z-29 chip). If it's in a socket, 
remove it; piggyback the 2102L 
to it, and reinsert it with the pig- 
gybacked chip back into its 
socket. If it's not in a socket, 
carefully piggyback the 2102L 
to it where it sits, being 
especially careful not to get 
any solder bridges between 
pins. 

Run the wire from the 2102L 
pin 11 to the Z-44 pin 13, and 
solder it to the trace from the 



Z-44 pin 13 that goes through 
the board. 

Locate the Z-29 and Z-30 
chips. Cut the trace that goes 
under the Z-29 chip between 
pins 1 1 and 12, but cut it out in 
the open where you can jumper 
again if necessary. 

Solder the wire from the 
2102L pin 12 to the Z-27 pin 13, 

Reassemble the keyboard 
and turn it on. You should now 
have standard uppercase 
characters, and if a lowercase 
driver is available and loaded, 
you should have upper and 
lowercase with descenders. 

A lowercase driver comes 
with NEWDOS-80, as well as 
several other DOSes, or one is 
available from Radio Shack. 
Until you can get one, Program 
Listing 1 can be used in a Level 
II 16K machine. This program 
takes only 30 bytes of high 
memory and produces lower- 
case when the shift key is 
pressed. ■ 

Since this article was written. 
Radio Shack has raised the 
price of their chip to $34.95. The 
same chip is available from E.B. 
Garcia and Assoc, Chicago, IL, 
for $19.95. 
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10 REM - FOR 16K MACHINES, SET MEMORY SIZE TO 32737 

20 POKE 16553, 255: FOR I = 32738 TO 32767 :READJ:POKEI.J:NEXT 

30 POKE T6414.226:POKE 16415.127 - 

40 DATA 221,110.3,221.102.4,218,154,4,221.126.5.183,40,1 

50 DATA 119.121,254,32,218.6.5.254,128.210,166.4,195 1254 



Program Listing. 



The Captain 80 Book of 



BASIC 




* Over a dozen famous 
adventures, listed in large easv to read type 
ready lo be keyed in. Adventures by Boner, 
Kepner. Powers, Micklus, Forsythe, Greg 
Hassett and others. 

• Includes Temple of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
man's Gold. Thunder Road. Sorcerer's 
Castle, Deadly Dungeon, Atlantean 
Oddxjsesi and others. These adventures 
would cost over $200 is purchased 
individually! 

• Includes a unique Aduenfure 
Generator program - not available 
anywhere YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out 
come! This program alone is worth the price of 
the entire book! 

• Includes chapters on what an adventure is. how to 
play adventures, how lo write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

• Study the techniques and methods used by the 
masters of adventure program writing- All adventure 
programs listed in this book are in their original form 
and in full length. Although specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC M 

• Available at your dealer approximately W^ 
November 15th, 1981 . The suggested retail price ■ 
of this book is $19.95. ■ 

• The BASIC Adventure Book was compiled ■ 
and edited by Bob Liddil, of The Programmers " 
Guild. It measures 8'^ by 11 inches and will I 
contain approximately 250 pages 

• To reserve your copy ol this unique book, || 
order NOW (or only $14.95 and save. This - 
special pre-publication offer is good only with | 
paid orders until Nov 1st, 1981. ■ 

• ORDER YOURS TODAY! ■ 




Pre-Publication 
SPECIAL $14.95 



Send To: 80-U.S. Journal ^31 
3838 South Warner Slreel 
Tacoma, Washington 98409 

Please reserve Copy (Copies) of the Basic Adventure 

Book al the pre-publication price of only $14 95 Payment must 

be enclosed with this order. Offer good in the United Stales 

only. 

Name ' 



Dealer discounts aiuilublt' please inquire 



I 
I 
I 
I 



Address 
Cilv 



J5tale- 



_Zip 



Visa MC 



Exp Dale- 



_Sig nature 



(206) 475-2219 Phone orders accepted for Visa MC only. 



• Sm Uat ot AOv^rHnmn on pag* 3M 
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GAME 



/re done with strings, not mirrors. 



The Magic Trick 



David D. Busch 

515 E. Highland Ave. 
Ravenna, OH 44266 



Magic Trick is a quick party 
program that can be used 
to mystify your non-computer 
owning friends. I even managed 
for a few minutes to puzzle a few 
of my more astute programmer 
buddies at a recent meeting of 
my user's group. They watcfied 
the trick unfold, tried to think of 
a fast way of achieving the ef- 
fect presented using assembly 
language, and then suddenly 
realized what was going on. 

The trick works like this: The 
person demonstrating the com- 
puter rattles off some patter 
about how the TRS-80 has mar- 
velous capabilities which in- 
clude the power to communi- 
cate through phone lines, via an 
RS-232 or through the air, using 
brainwaves. 

■■Someone is certain to ques- 
tion a computer's ESP ability. 
Quickly, the magician loads this 
program from cassette or disk. If 
saved on disk, a mysterious 
name such as DEfvIO/ESP may 
be used. Questions are tossed 
out from the onlookers, and the 
operator proceeds to type in- 
nocuous messages into the key- 
board, such as "Hello there, 
computer," or "Are you ready for 
another question?" 
i As if by magic, the computer 
r':/Sponds with a correct 
answer. . .then another. . .and 
another. 

You may get four or five ques- 
tions answered before someone 
catches on. As with all magic 
tricks, the fewer times it is 



presented, the better the effect. 
And, as with most good magic, 
the secret Is in misdirection. 
Though the operator appears to 
be typing In innocent questions, 
he or she is actually entering the 
ansv/ers at that time. Because 
everyone will be raptly reading 
the CRT screen, no one will 
notice that the keys that are be- 
ing hit do not match those which 
are appearing on the screen. 
The Secret 

Here's how the trick is set up: 
seven (or more— add your own) 
messages are stored in data 
lines within the program itself. 
As the trick is run, and INKEY$ 
strobing loop repeatedly looks 
at the keys for input. If a key is 
hit, in most cases (the excep- 
tions will be discussed later) the 
character is added to a string 
variable, AN$. 

In addition, as each character 
is entered, one letter is printed 
to the screen. It is not the same 
character as the one entered. In- 
stead, one more letter of the pre- 
selected message is revealed. 
To the unsuspicious, it looks as 
if the CRT is echoing the charac- 
ters typed by the person doing 
the demonstration. 

A dummy message is read 
from data in line 130. The IN- 
KEY$ loop repeats in line 140 un- 
til a key is hit. Then, A$ is 
checked in line 150 to see if the 
key struck was Enter (CHR$(13)). 
If so, entry is complete, and the 
routine goes to lines 210-220. 
Otherwise, the program checks 
to see if the character entered 
was a period. 

If not, then Flag = 0, and A$ is 
added to AN$. A counter, CU, is 
incremented by one and used to 



command the next character of 
the pre-selected message, B$, 
to be printed to the screen (line 

190). 

Control returns to line 140 for 
additional input. The operator 
should be a touch typist, but at 
least do not obviously stare at 
the keyboard. It helps the misdi- 
rection to look the audience in 
the eyes, or to guide their gazes 
to the CRT. 

The operator can enter any 
message or answer that he or 
she wishes, as long as it is 
shorter than the dummy mes- 
sage string being printed to the 
screen. When the end of the in- 
put message is reached, the ma- 
gician should enter a period. 
When this is done, then Flag is 
set to one, and all other input is 
not added to AN$. After entering 
the period, the operator should 
just strike random keys to allow 
the rest of the dummy message 



to print out. A punctuation mark 
of some sort should be included 
in each message in the data 
lines so that the demonstrator 
will have a quick means of know- 
ing when to stop typing. 

The trick should not continue 
more than three or four mes- 
sages, or else the onlookers will 
start to get suspicious. They 
may tell you what messages to 
type Into the computer, and, of 
course, you have no control over 
what appears on the screen. 
However, to keep the over-en- 
thusiastic from blowing their 
cover with an Out-of-Data mes- 
sage, this program loops 
through all seven messages, 
then repeats through a Restore 
and GOTO 120 in lines 300-310. 

A good quickie to liven up par- 
ties, Magic Trick provides an 
easy way to mystify the unwary 
with the wondrous powersof the 
TRS-80. ■ 



100 CLEAR 1000 

110 CLS 

120FORN = lTO7 

130 READ B$ 

140 A$ - INKEY$:IF A$ + ■■■QOTO 140 

150 IF AS = CHR$(13) GOTO 210 

160[F A$ = ■■,■■ FLAG = 1 

170 IF FLAG01 THEN ANS-ANS-i-A$ 

l80CU = CU-t-1 ■ . 

190 PRINT MID$(B$,CU,1); 
200 GOTO 140 
210 PRINT 
220 PRINT AN$ 

230 INPUT "PRESS ENTER FOR ANOTHER QUESTION" D$ 
240ANS="'' 
250CU = 
260 FLAG = 
270 NEXT N 
280 RESTORE 
290 GOTO 120 

300 DATA "HELLO THERE, COMPUTER,",'ARE YOU READY FOR ANOTHER 
QUESTION?","WE HAVE ANOTHER ONE FOR YOU", 'NOW TRY THIS 
ONE.",' PRETTY GOOD FOR A DUMB MACHINE.","PLEASE TRY ONE 
MORE", "YOU'VE GOT US FOOLED PRETTY GOOD," 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widoty acclaimed 
JPC Cassette System is awailable 
for your TfiS-80* computer. 
The price is oryiy $90.00 

TC-8 Casselte System 
JPC Products 
Albuquerque, NM 
Kit: $90 
Assembled: SI 20 

by Cari A. KoUar 

1 guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with (he 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II I6K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have 1 got a 
device for you! 

The Device 

The February 1 980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a lO-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly [90) bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, It had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't — for free. 
1 was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb, (That's better than 
great.) It was clear, concise and exact with no 
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ambiguities. Important parts placements are 
stressed (polarity markings on eleclrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent, it is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation isasheaf of 8'/2 x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
Enghsh — not computerese. 

Commands and Features 
SAVE'Tilename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD"niename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"rilename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN"filename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN "filename": TC-8 searches for a specified 
program and runs It immediately. 
PLIT"fllename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except It is for use with 
system tapes. 

GET"niename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET? "filename": Same as LOAD? 
and LOAD?" filename", except it is for use 
with system tapes. 
GETN and GETN" filename": Same as 



LOADN and l.OADN" filename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or string data to be 
output to a cassette file. 

INPUT#: Allows numerical or string data to be 
input from a cassette file, 

I haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 1 1), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad toads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button.! 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct.. Albuquerque, NM 87112 (New 
Mexico residents add 4% sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit. the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 






^190 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 
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TITLE GRAPHICS BY KAL 


______y 


■ f you have programs tha 
Istart abruptly with small, in 



Fig. 1 



significant titles, you might lil<e 
to add graphic title dispiay 



routines to them, so that your 
Level II Basic programs vi/iil 
identify themseives conspicu- 
ousiy. 

Ail the graphic title programs 
in this article begin with a state- 
ment 0. This statement clears 
the display screen and 
necessary string space, and 
jumps to a graphic titie display 
routine. Display routines start 
at statement 65500 or higher, 
vi/here they w/on't alter existing 
program statements. 

A display routine will have 
seven to fifteen statements, 
depending on the complexity of 
its graphics. Each routine 
displays Its uniquely formatted 
graphic titie, hoids it steady for 
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convenient reading, and 
returns display controi to state- 
ment 0. 

Statement adds more title- 
liold timing it needed, restores 
string space to 50, and drops 
dispiay control to your existing 
program's first statement. 

Statement 1 G0T01 is in- 
cluded in each grapiilc titie 
program for debugging con- 
venience, it holds a titie dis- 
played on the screen until the 
Break key is pressed. State- 
ment 1 must be deleted after 
your program title has been 
fitted and adjusted within a 
dispiay routine and you are 
satisfied with the routine's 
operation. 

Parallelogram Titles 

Right and left-slant parallelo- 
gram formats can be varied to 
accommodate short, medium 



or long program titles. Program 
Listing 1 displays a 13-line title 
stack within a right-siant parai- 
ieiogram window. A repeated 
five-character word or group of 
characters makes up the back- 
ground frame. B$ in statement 
65508 defines the five- 
character string that prints the 
background. Statement 65516 
specifies the titie stacking for- 
mat and the program titie. 

Program Listing la prints the 
title stack Duck Hunt downward 
on a left slant (Fig. 1). Listing la 
can handle titles up to 14 char- 
acters above eight in your titie— 
subtract one from 97 and from 
854 in statement 65518; add one 
to 97 and to 854 for every two 
characters below eight. State- 
ment 65520 may be deleted or 
used to dispiay a program credit 
line at the bottom of the screen. 

Program Listing 1b prints its 



CLS: CLE;AR75: GOSUB65508; FORU = lT01999 : NEXT: CLEAR50 

1 GOTOli ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65508 BS="BANG*"! "(VARIATION 1, SEE FIG. 1) 
65510 PORU=0TO65STEP5! PRINTgU.BS: NEXT 

65512 FOBU=110TO845STEP65: PRINT@U ,BS+BS+BS+BS+BS; : NEXT 
65514 FORU=890TO955STEP5! PRINTeU,BS; : NEXT: 

FORI=lTO200: NEXT 
65516 FORU-97TOB54STEP63: PRINT^U, "DUCK HUNT"i v 
65518 F0RI=1T09: NEXTI,U ^, 

65520 PRINT@981, "TITLE GRAPHICS BY KAL";; RETURN ^''^" 
65522 '(STATEMENT CHANGES FOR VARIATION 2, SEE Fl&l 2) 
'65508 BS="%I%%%": -/ 

■66516 FORU = 855T087STEP-64: PRlNS'eu, "SHOOTING 
GALLERY"; 
65524 '(STATEMENT CHANGES FOR VARIATION 3, SEE FIG. 3) 
'65508 BS="DOWN"+CHRS(92) : 

'65516 FQRU=79T0859STEP65: PRINTgU, "PARACHUTE 

JUMP CONTEST") 

65526 '(STATEMENT CHANGES FOR VARIATION 4, SEE PHOTO 1) 

'65508 BS=STRING$(5,132) : '{USE ANY ASCII CODE) 

'65516 FORU = 84TG852STEP64i PRINTgU , "GRAPHIC -■S 

CHARACTER TITLE"; ' ~ 

Program Listing la 



e CI,S!CLEAB75:GOSUB65508jFORU=1TO1999:NEXT!CLEAR50! 

1 GOTOl 

65508 BS="%%*%%"- 

65610 FORU=0TO65STEP6! PRINT^U.BS: NEXT 

65512 FORU = 110TO845STEP65: PBINTeu,BS+BS+BS+BS+B$i sNEX"; 

65514 FORU=890TO955STEP5: PRINTgU^BSi: NEXT: 

POBI-'1TO200: NEXT 
65516 FORU = 865T087STEP-64! PRINTeu , "SHOOTING GALLERy"^; 
65518 F0RI=1T09: NEXTI; NEXTU 
65520 PRINTe981, "TITLE GRAPHICS BY KAL'jj RETURN 
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2 CLS:CLEAR7 5:GOSUB6 5 508:FORU=1TO19 99:NEXT:CLEAR50: 

1 GOTOl 

65508 BS="DOWN"+CHR$(92) 

6551B FORU=0TO65STEP5: PRINT@U,B$: NEXT 

66512 FORU=110TO846ETEP65: PRINTSU ,BS+BS+BS+BS+BS; j NEXT 

65514 FOKU=890TO955STEP5: PRINT@U,BS;: NEXT: 

FORI=1TO200: NEXT 
65516 FORU=79T0859STEP65: PRINTgU , "PARACHUTE JUMP CONTEST"i 
65516 F0RI=1T09: NEXTI: NEXTU 
66520 PRINTe981, "TITLE GRAPHICS BY KAL";: RETURN 

Program Listing 1c 

CLS: CLEAR75: GOSUB65508: P0RU=1T01999: NEXT: CLEAR50 

1 GOTOl 

66508 BS=STRINGS(5,132) : '(USE ANY ASCII CODE) 

65510 FORU=0TO65STEP5! PRINT@U,BS: NEXT 

65512 FORU=110TO845STEP65: PRINT^U ,BS+BS+BS+BS+B$; ; NEXT 

65514 FORU=890TO955STEP6: PRINTgU.BS;: NEXT: 

FORI=1TO200: NEXT 

65516 FORU = 84TOB52STEP64: PRINTPU , "GRAPHIC CHARACTER TITLE" 

65518 F0RI=1T09: NEXTI: NEXT 

65520 PRINTeSei, "TITLE GRAPHICS BY KAL";: RETURN 

Program Listing Id 



Program Listing 1. flight Slant Paralleiograms 



titie stack straight upward 
within a percent sign back- 
ground frame (Fig. 2). This 
variation can handle titles up to 
26 character positions long. 
For every two characters above 
16 in your program title, sub- 
tract one from 855 and 87 in 
statement 65516. Add one to 
855 and 87 for every two char- 
acters below 16. 

Program Listing 1c prints its 
title stack downward on a right 
slant (Fig. 3). This variation can 
handle titles up to 38 character 
positions long. For every two 



characters above 22 in your 
titie, subtract one from 79 and 
859 in statement 65516. Add 
one to 79 and 859 for every two 
characters below 22. 

Program Listing Id prints its 
titie stack straight downward 
within a graphic character 
background frame. You may 
use any graphic character 
ASCII code (129 through 191) in- 
stead of the 132 code in state- 
ment 65508. Using B$ = 
STRiNG$(5,191), for example, 
provides a soiU whit« back- 
ground fra-.a. Listing Id can 
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handle titles up to 26 character 
positions long. Numbers 84 and 
652 in statement 65516 define 
the title stack start and end 
points. Decrease or Increase 
those numbers by one for every 
two characters above or below 
22, respectively, in your pro- 
gram title. 

Program Listing 2 displays a 
13-line title stack within a left- 
slant parallelogram window. As 
in Listing 1, B$ in statement 
65508 defines the five-char- 
acter background printing 
string. Also, statement 65516 
specifies the title and its stack- 
ing format. 

Program Listing 2a prints its 
title stack downward on a left 
slant withm a slash symbol 
background frame (Fig. 4). 



Listing 2a can handle titles up 

to 41 Character positions long- 
Numbers 92 and 848 in state- 
ment 65516 define the title 
stack start and end points. 
Decrease or increase both 
numbers by one for every two 
characters above or below 17. 
respectively, in your title. 

Program Listing 2b prints its 
title stack straight upward 
within an up-arrow background 
frame (Fig. 5). This variation 
can handle titles up to 29 
character positions long. 
Numbers 855 and 87 in state- 
ment 65516 define the title 
stack start and end points. 
Decrease or increase both 
numbers by one for every two 
characters above or below 17, 
respectively, in your title. 



Program Listing 2c prints its 

title stack downward on a right 
slant within a graphic char- 
acter background frame. You 
may use any graphic character 
ASCII code (129 through 191) in- 
stead of 1 79 in statement 
65508. This variation can 
handle titles up to 17 character 
positions long. Add one to 
statement 65516 numbers 81 
and 861 for every two char- 
acters below 17 in your pro- 
gram title. 

Moving Title 

Program Listing 3 displays a 
moving title stack within a 
changing-pattern background 
frame. Four graphic character 
strings in statements 65510 
through 65516 provide the 



changing maze-like patterns. A 

13-line title stack moves left to 
right across the background 
frame's window as the frame 
pattern continually changes. 

This program can handle 
moving titles of up to 20 
character length. Subtract one 
from T = 854 and from R = 74 in 
statement 65508 for every two 
characters above 16 in your 
program title. Add one to 854 
and 74 for every two characters 
below 16. Replace "The Moving 
Maze" in statement 65524 with 
your program title. 

Diamond Titles 

The Program Listing 4 dis- 
plays one title line within a 
diamond-shaped background 
frame. Statement 65510 



> 1 1 1 1 1 m I Mil 



> I HI) I t lllllll 

iiiiiiiiiiiiiiii 



itiiiniiiii 

■ iniiiiitiniiiii 



GUSmC CJWSCTES- TITLE 

'^mii :-i^nii^' ^:tle 

■3J:-¥^K :n*5*:TEf TITLE 

■>"ji^.:.; :imim title 
bf -srir ^ai'Xm tule 
:i:-^^':[ CW*-?iTif TITLE 

:iyi^\: iva-x'jj- title 

li^yli iWaiii- TITLE 

IIIMIIIIIIIIIIIIt II 



iiiiiiiiiitiiiiin 




Photo 1. Program Listing Id Variation 4 



Photo 3. Program 3 Moving Title 




Phoio 2. Program Listing 2c Variation 3 
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Photo 4. Program Listing 4 Random Graphics 



Hay den Performance Software— 
Something For Everyone! 



SARGON II (Spraklens) The first 
great computer chess program! 
Choose from 7 levels of play, levels 
0-3 in tournament time. Randomized 
opening book for all 7 levels of play 
through 3 moves. Special hint mode 
suggests possible next moves, 
*03418, TRS-80 Models I and 
in, tape, $16.95; *03408, 
TRS-80 Level n Disk, $34.95 

DISK CATALOGER (LeBar) 
Automatically maintains a cross- 
reference listing of all your programs, 
their location by disk number, their 
function and use" *05203, TRS-80 
Level n tape, $16.95; *^05208, 
TRS-80 Level U Disk, $21.95 

COMPLEX MATHEMATICS 

(Gilder) Contains 8 programs that 
give the user the ability to perform 
computations of complex numbers in 
BASIC rather than in FORTRAN. 
Documentation included. ^01203, 
TRS-80 Level II tape, $14.95 



ORDER NOWl 

Hayden Book Co., Inc. 

50 Essex St. Rochelle Park, NJ 07662 

Send me the software checked. On all pre- 
paid orders. Visa and Master Card charges, 
publisher pays postage and handling. Resi- 
dents of NJ and CA must add sales tax . Offer 
good in USA only. Payment must accom- 
pany orders from PO Box Numbers. Allow 4 
to 6 weeks for delivery. Name of individual 
ordering must be filled in. 

n 01103 n 03408 D 05208 

D 01203 D 03418 D 05303 

D 01303 D 05103 D 05308 

D 01403 D 05108 D 05403 

a 02403 D 05203 □ 07403 

Nainc_ -_ 

Address 

City /State /Zip 

EOM 9/81-071 



Newl MIND THRUST (Sackson 
and Wazaney) The first of its kind -an 
exciting game that lets you match wits 
with the computer. Complete an 
unbroken chain across the board 
before your opponent, the computer. 
Switch sides at any time and control 
your opponent's chain while he 
controls yours. #07403, TRS-80 
Level II, $16.95 

ENGINEERING 
MATHEMATICS- 1 (Gilder) 
Contains eight programs useful to the 
engineer: 1. Solving Simultaneous 
Equations. 2. Evaluation of a 
Polynomial. 3. Quadratic Equations. 

4. Integration by Simpson's Rule. 

5. Newton -Raphson Roots, 

6. Derivative of a Function. 

7. Factorial of a Given Number. 

8. Extended Factorial Calculation, 
^01303, TRS80 Level II, $14.95 

MCAP: A Microcomputer 
Circuit Analysis Program 

(Savon) Performs a linear voltage, 
impedance, or transfer impedance 
analysis of an electronic circuit. 
*05403, TRS-80 Level II, $24.95 

MICROCOMPUTER AIDED 
DESIGN OF ACTIVE 
FILTERS (Gilder) Eight programs 
that simplify the design of active filters 
and will calculate the component 
values needed for various bandpass, 
low-pass, and notch-type filters. 
*0I403, TRS-80 Level II tape, 
$16.95 



BLACKJACK MASTER: A 
Simulator/Tutor/Game 

(Wazaney) A serious game that 
performs complex simulations and 
evaluations of playing and betting 
strategies. Develop your own system 
for winning at blackjack without 
leaving your home and without 
risking a penny. ^05303. TRS-80 
Level II tape, $24.95; *05308. 
TRS-80 Disk Version, $29.95 

FINPLAN: A Financial 
Planning Program for Small 

Business (Montgomery) Allows 
you to enter data from business 
documents into the program, make 
assumptions about the future growth 
of business, and to have the 
computer project results for up to a 
five year period based on those 
assumptions. Disk version can be 
used only with TRSDOS version 2.3. 
*05103, TRS-80, Level 11 tape, 
$69.95; *^05108, TRS-80 Level 
disk, $74.95 

GENERAL 
MATHEMATICS- 1 (Gilder) 

Contains over 15 programs useful to 
anyone who wants to improve their 
math skills and accelerate their 
computation *0JI03. TRS-80, 
Level II tape, $14.95 

MICROTYPING (Engel) Features 
the "touch method" of learning to 
type for improving your computer 
skills *02403, TRS-80, Level II 
tape. $10.95 



Available at your local computer stor«| 

For Orders and Inquiries Call Toll Free 

HAYDCN HOTLINE 800-631-08S«^^ 







50 Essex Street, Rochelle Park, NJ 07662 



Bo€>l€ Company, Inc. 



~'Sm Uat of Adnrtl*9n on pag9 3S4 
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specifies random characters 
for printing the background 
frame. Each' new character re- 
prints the background from top 
and bottom to its center. The 
characters may be letters, 
numbers, symbols, or graphic 
patterns. You may seiect any 
type character group by chang- 
ing statement 65110 as de- 



scribed in REM statements 
65525 and 65526. 

The 10-second countdown 
variation (Program Listing 4e) 
starts with a background frame 
made up of the numeral nine 
(Fig. 6), and counts down at one 
second intervals to an all zeros 
background frame. The dia- 
mond title program can handle 



e CLS: CLEAB75: GOSUB65508: FORO=1T01999! NEXT: CLEARSa 
1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGHAH) 
65508 BS="/////": '(VARIATION 1, SEE FIG. 4) 

65510 FORU=0TO55STEP5:PRINT@O,BS: NEXT 
65512 PORU=60TO816STEP63: PRINTeD,BS+BS+BS+B5! : NEXT 

65514 FDRU=879T0959STEP5i PRINT§U,BSj: NEXT 

65515 PRINTe960," "; 

65516 FORU=92TOB48STEP63: PRINTgU, "PROGKAM TITLE HERE"; 
65516 FORI=0TO9: NEXTI.U 

65520 PRINT@981, "TITLE GRAPHICS BY KAL" f ! RETURN 
65522 '(STATEMENT CHANGES FOB VARIATION 2, SEE FIG. 5) 
'65508 BS=STRINGS(5,91) ; 

■65516 FORU=855T087STEP-64: PRINT9U,"UP, UP, AND 

AWAY 1 " ; 

65524 '(STATEMENT CHANGES FOR VARIATION 3, SEE PHOTO 2) 

'65508 BS=STRINGS(5,n9) : '(USE ANY ASCII CODE) 

'65516 FORU = 81T0861STEP65: PRINTgU, ""USE ANY CHAR 

CODE") 

Program Listing 2a 

CLS: CLEAR75: GOSUB65508: F0RU=1T0999! NEXT: CLEAR50 

1 GOTOl 

65508 BS=STRINGS[5,91) : 

65510 FORU=0TO55STEP5:PRINTeu,BS: NEXT 

65512 FORU=60TO816STEP63: PRINTeu,B$+BS+BS+BSj s NEXT 

65514 FORl) = 879T0959STEP5! PRINTgU,BS;! NEXT 

65515 PRINTe960,' ";: F0BI=1T0199: NEXT 

65516 FDRU = 855T087STEP-64: PRINT@U,"UP, UP, AND AWAY I " ; 
65518 PORI=0TO9! NEXTIs NEXTU 

65520 PRINTe981, "TITLE GRAPHICS BY KAL'j: RETURN 



Program Listing 2b 



CLS: CLEAR75: GOSUB655B8: F0RU=1T01999: NEXT: CLEAK50 

1 GOTOl 

65508 BS=STRING5(5,179) : '(USE ANY ASCII CODE) 

65510 FORU=0TO55STEP5:PRINT@U,B$: NEXT 

65512 FORU=60TO816STEP63: PRINTeu,B$+BS+BS+BS; ! NEXT 

65514 F0RU=879T0959STEP5; PRINT@U,B$; : NEXT 

65515 PRINT@960,'' ";: F0RI = 1T0199: NEXT 

65516 F0RU=B1T0861STEP65: PRINTeu,"USE ANY CHAR CODE"; 
65518 FORI=0TO9: NEXTI : NEXTU 

65520 PRINTggai, "TITLE GRAPHICS BY KAL" j : RETURN 



Program Listing 2c 



52 Character positions. In- 
crease or decrease the state- 
ment 65518 PRINT® value to 
accommodate your program 
title. The credit line statement 
(6551 1 ) may be used or omitted. 

Wedge THIe 

Program Listing 5 displays 
two title lines within a wedge- 
shaped background frame 
{Photo 5). The background 
frame may be made up of any 
printable character, described 
In REM statement 65514. In- 
crease or decrease the state- 
ment 65522 and 65524 PRINT® 
values to accommodate your 
title and credit lines. Either 
statement may be omitted. 

Spiral Title 

Program Listing 6 displays 
one title line within a graphic 
spiral background frame. This 



program can handle three title 
or credit lines up to 30 
characters long. Statement 
65522 prints the single line title. 
Increase or decrease that state- 
ment's PRINT® value to ac- 
commodate your program title. 
Additional title lines may be 
displayed with their centers at 
PRINT® 415 and PRINT® 543. 
Decrease these PRINT® 
values by one for every two 
characters in your additional 
title lines. Include the upper 
and lower lines by using state- 
ment numbers 65521 and 
65523. 

Lattice Title 

Program Listing 7 displays 
two title lines within a latticed 
background frame. Each line 
can handle a title up to 30 
character positions long. Ad- 
just statement 65522 and 65524 



iiiiiiiiiiiiiiiiiiiiiininiiiiiiniiiiiiiiiiiiiiiiiiiiitiimit 
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TITLE GRAPHICS BY KAL 
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Fig.-* 



Program Listing 2. Left Slant Parallelograms 



CLS: CLEAB75: GOSUB65506! CLEARSfl: '(SEE PHOTO 3) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65506 PRINTe981, "TITLE GRAPHICS BY KAL"i: T=854: R=74 
655BB T=T+lf R=R+lf Q-Q+lt OHQ GOTO 65512,65514,65516, 

65510,65512,65514,65516,65510,65512,65514,65516 
65510 BS-CHR5(15B)+CHR$(141)+CHRS(172)+CHRS(178)+ 

CHRS(174) ! G0TO65518 
65512 B$=CHRS(137)+CHRS(140)+CHRS(17 4)+CHRS(171)+ 

CHBS[131) : G0T065518 
S5514 BS=CHBS(151)+CHRS(171)+CHRS(186)+CHRS(162)+ 

CHRS(167) : GOT065518 
65516 BS=CHI!S(14 9)+CHRS(17 6)+CHR$(1761+CHRS{152) + 

CHRS(131) 
65518 FORU=0TO65STEP5: PRINTeu,BS; ; NEXT 

65520 FOBU=110TO845STEP65: PRINTeu,BS+B$+BS+BS4BS; ;NEXT 
65522 PORU=890TO955STEP5: PRINTeU,BS;: NEXT 
65524 FOBU=T TO R STEP-65: PRINTgU , " THE MOVING MAZEl";: 

NEXT 
65526 IF T<866 GOTO65508 
6552B FORU=1TO200: NEXT: RETURN 

Program Listing 3. Moving Title 
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UP. UP, ANO AWAY! 
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Fig. 5 
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PRINT® values to accommo- 
date your program title lines. 

Animated Title 



an animated title, shown in the 
three frames of Fig. 7. The pro- 
gram first fills the display 
screen with grass {exclamation 



Program Listing 8 displays points). Next, two caterpillars, 



CLS: CLEAR100: W=58! GOSUB65508: CLEAB50 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65508 X=52: Y=100: Z=808 

65510 W=RKD(50)+136: "(RANDOM GRAPHICS, SEE PHOTO 4) 

65511 PRINT@981, "TITLE GRAPHICS BY KAL" j 

65512 PRINT@fl,STRING$(92,W) j: PRINT@868,STBINGS{ 92 ,W) ; 
65514 PRINT@¥,STRING$(X,W) ; : PRINT@Z , STRINGS !X,W) j 
65516 X=X-8: Y=Y+68: Z=Z-60! IF X>4 GOT065514 

65518 PRINT@471, "PROGRAM TITLE HERE"; 
65522 PORU=1TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

65525 ' 

'FOR RANDOM LETTERS, CHANGE 65510 TO W=RND(10)+47 
'FOR RANDOM NUMBERS, CHANGE 65510 TO W=RND(26)+64 

65526 'FOR A 10-SECOND COUNTDOWN, CHANGE 65510 TO W=W-1 
'FOR RANDOM SYMBOLS, CHANGE 65510 TO W=RND(15)+32 

OR TO W=RND(7)+57 



Program Listing 4a. RND Graphics 

CLS: CLEAR100: W=5B: GOSUB65508: CLEAR50: 

1 GOTOl 

65508 X=52: Y=100; Z=808 

65510 W=RND(26) +64 

65511 PRINTe981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,ST^INGS(92,W) ; : PRINT@e68, STRINGS ( 92 ,W) 

65513 PRINT@959,CHRS(W) ; 

65514 PRINTey,STRINGS(X,W) ;: PRINT^Z , STRINGS (X,W) ; 
65516 X=X-8: Y=Y+68: 2=2-60: IF X>4 GOT065514 
65518 PRINTe471, "PROGRAM TITLE HERE"; 

65522 PORU=1TO110: NEXT 

65524 V=V+1; IF V<10 GOTO65508 ELSE RETURN 



Program Listing 4b. RND Letters 



CLS: CLEAR100: W=58: GOSUB65508: CLEAR50 

1 GOTOl 

65508 X=52: Y=100: Z=80B 

65510 W=RND(10)+47 

65511 PRINTe9Bl, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,STRINGS(92,W);: PRINTe868,STRINGS(92 ,W) 
65514 PRINT@Y,STRINGS(X,W) ;: PRINTgZ , STRINGS (X ,W) i 
65516 X=X-8! Y=Y+68: Z=Z-60: IF X>4 GOT065514 

65518 PRINTe471, "PROGRAM TITLE HERE"; 

65522 FORU=1TO110: NEXT 

66524 V=V+1; IP V<10 GOTO65508 ELSE RETURN 

Program Listing 4c. RND Numbers 



CLS: CLEAR100: W=58: GOSUB6550e: CLEAR50 

1 GOTOl 

65508 X=52: Y=100: 3=808 

65510 W=RND{15}+32 

65511 PRINTe981, "TITLE GRAPHICS BY KAL"; 

65512 PRINT@0,STRINGS(92,W) ; : PRINT@868,STRING$(92 ,W) 
65514 PRINT@Y,STRINGS(X,W) ;: PRINTgZ ,STRINGS(X,W) ; 
65516 X=X-8: Y=Y+6B: 2=2-60: IF X>4 GOT065514 

65518 PRINT@471, "PROGRAM TITLE HERE"; 

65522 FORU=0TO110: NEXT 

65524 V=V+1: IF V<10 GOTO65508 ELSE RETURN 

Program Listing 4d. RND Symbois 



CLS: CLEARlfl0: W=56! GOSOB65508! CLEARSfl 

1 GOTOl 

65508 X=52! Y-1001 Z=8BB 

65510 W=W-1 

65511 PRINT#981, "TITLE GRAPHICS BY KAL"; 

65512 PRINTe0,STKINGS{92,W))! PRINT@858,STRINGS(92 ,W) ; 
65614 PRINT@Y,STRINGS{X,W);: PRINT§2 ,STRING$(X,W) ; 
65516 X=X-8; Y=Y+6B: Z=Z-60: IF X>4 GOT066514 

65518 PRINTe471, "PROGRAM TITLE HERE"; 

65522 FORU=flTO110: NEXT 

65524 V=V+l! IF V<10 GOTO65508 ELSE RETURN 

Program Listing 4e. Countdown 



YOU'RE OUR PATIENT... 



MEDICAL & 
DENTAL SYSTEMS 



Appointments 
Master Records 
Private Billing 
ADAor AMA 
Claim Preparation 
Diagnostic and 
Treatment Records 

Recall and more 



Apple n • TRS-80 • Apple /// 

CHARLES MANN & ASSOCIATES .555 

Micro Software Division 

55722 Santa Fe Trail 

Yucca Valley, CA. 92284 

(714)365-9718 




Program Listing 4. Diamond Titles 



TRS-80 ADVENTURES FOR 16K COLOR 80 

Extended color or Level II BASIC 
ESCAPE FROM MARS - You are stranded on Mars and some- 
where in the Martian city are the parts vou need to repair your 
ship. Our best adventure for new adventurers. 
TREK ADVENTURE - You will recognize the spaceship this 
takes place on. The crew has left— for good reason— but they 
forgot you— and the "Orbit is Decaying." Almost as good as 
being there. 

PYRAMID - Our most advanced and challenging adventure, this 
takes place in our own special ancient pyramid. The builders 
were as nasty as pyramid builders usually are, and ransacking 
this one is a dangerous job. 

ADVENTURES are all written in BASIC, all come with listings, 
and each sells for $14.95. 

ARCADE AND THINKING GAMES 
16K and extended or level II BASIC 
TIME TREK, REAL TIME REAL GRAPHICS TREK. See the 
torpedoes fly and the Klinsons explode. No more scolling dis- 
plays, no more turn taking. - This one has real time and real 
displays. In BASIC - for 16K level II or extended color BASIC. 
$14.95. 

STARFIGHTER-This one man space war game pits you against 
spacecruisers, battlewagons, and one man fighters. You have 
the view from your cockpit window, a working instrument 
panel, and your wits. Another real time goody. 
BATTLEFLEET - This grown-up version of Battleship is the 
toughest thinking game available on 80 computers. There is no 
luck involved as you seek out the 80's hidden fleet. This is a 
topographical toughie. $9.95. 

SLASHBALL - A two player game of strategy and skill, this is 
like nothing you have ever seen before. This takes fast fingers, 
quick wits and concentration. Playable from age 6 to 65, it is a 
good family game. $9.95. 

FR£E CATALOG 

AARDVARK-80^129 

2352 S. Commerce, Walled Lake, IVII 48088 

(31 3)669-3110 



^^ 



% 
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WQi-king in opposite directions, 
start chomping out a clearing in 
the grass (frame 1). The cater- 
pillars eventually meet at the 
clearing's center and disin- 
tegrate in a series of explo- 
sions ■ (frame 2). Finally, a 
progtam title appears in the 
clearing (frame 3). 



The clearing can handle a 
title of up to 33 characters. Ad- 
just the statement 65524 
PRINT® value as needed to ac- 
commodate your program title. 

You may also add upper and 
lower title lines with their 
centers at PRINT® 351 and 
PRINT® 479. Subtract one 



9999999999999999999999999999999999999999999999999999999999999999 
9999999999999999999999999999 9999999999999999999999999999 
999999999999999999999999 999999999999999999999999 

99999999999999999999 99999999999999999999 



9999999999999999 

999999999999 

99999999 

9999 

99999999 

999999999999 

9999999999999999 

99999999999999999999 

999999999999999999999999 

9999999999999999999999999999 



PROGRAM TITLE HERE 



9999999999999999 

999999999999 

99999999 

9999 

99999999 

999999999999 

9999999999999999 

99999999999999999999 

999999999999999999999999 

9999999999999999999999999999 



9999999999999999999999999999999999999999999999999999999999999999 

TITLE GRAPHICS BY KAL 



Fig. 6 lO-Second Countdown 



CLS: CLEAR99: GOSUB65512: CLEAR50: '(SEE PHOTO 5) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65512 Y=1Z4: X^IB: ZS=CHRS(149) 

65514 '(IN 65512 ABOVE, SUBSTITUTE ANY LETTER, NUMBER, 
SYMBOI , OB GRAPHIC CHARACTER ASCII CODE FOR THE 
(149) CODE. SEE PAGES C/2 AND C/6 IN RS TRS-80 
LEVEL II BASIC REFERENCE MANUAL.) 

65516 PRINT@0,STRINGS(68,ZS) ; 

65518 PRINT@Y,STRINGS(X,ZS) ; : Y=y+62: X=X+4 

65520 IF X<58 G0T065518 ELSE PRINT^Y, STRINGS ( 92 , Z$) ; 

65522 PRINTe217, "TITLE GRAPHICS";: '(FIRST TITLE LINE) 

65524 PRINTe348,"BY: KAL"): '(TITLE OR CREDIT LINE) 

65526 F0RU=1T01999: NEXT; RETURN 



Program Listing 5. Wedge Titles 



from the specified PRINT® 
value for every two characters 
in an added title line. Add the 
upper and lower title lines by 
using statement numbers 
65523 and 65525. 

Using the Programs 

Select a graphic title pro- 
gram that suits your existing 
program. Load, CLOAD, or 
©LOAD your program and List 
it to check its first and last 
statement numbers. If your pro- 
gram has a statement 0, 
renumber it. Also renumber any 
statement above 65499 that 
conflicts with a statement 
number in the selected title pro- 
gram. 

When a statement ends with 
a Return command, trace 



backward through your pro- 
gram for the calling GOSUB 
command. Change the GOSUB 
command to correspond with 
the revised statement number. 

After the renumbering is 
completed, key in the title pro- 
gram's statements. Put your 
program title and credit lines in 
the title and credit line state- 
ments. Adjust title PRINT® 
values or title stack start and 
end numbers as prescribed in 
the title program's description. 

Run the combined program 
to verify that the graphic title 
display routine works. At this 
time, readjust title PRINT® 
values or title stack start and 
end numbers, if needed. Delete 
GOTOl in statement 1. 

When titling a program that 




Photo 6. Program Listing 6 Spiral Titie 
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Photo 7. Program Listing 7 Lattice Title 
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Color Computer 4K $310 
w/16KExt. Basic $469 




-t-t LJ i_j LJ L.:: ^ i^Huuan 

_i_i-iL jL J, ,L II r-^~5S__ 



Pocket Computer $169 




Model HI 16K $539 



M^%^Wf H®*^ ^^^ i"'^ ^ ^w ^'^ oui" '^"® offers . . , 



call toll-free for full Information. 



COMPUTERS 




PERIPHERALS 




Mtcrolme 82A 


549 


Model II 64K 


$3300 


Expansion Interface OK 


$249 


Microtin#» 83A 


839 


ModelllUKLEVI 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL III 16K 


839 


'Exponsion Inteffoce 1AK 


291.60 


DISK DRIVES 




MODEL III 32K 


945 50 


Expansion Interface 32K 


462 


RS. Model MM ST-Dnve 


712 


* MODEL III 32K 


88150 


'Expansion Interface 32K 


334 


TEAC 40 Track Ml 


329 


MODEL III 48K 


1052 


16K RAM N E C 200 N.S. Chips 25 


R.S 1 Drive Exp Mil 


999 


'MODEL III 48K 


924 


MODEMS 




RS 2DriveExpMII 


1518 


Model III 48K 




Lynx Direct Connect MI.MItt 


269 


R.S. 3 Drive Exp Mil 


2040 


2 Dtsc & RS232 c 


2100 


AutoAns Dial 




Seimans8 Mil 


;99 


Color Computer 4K 


310 


Teleptione Interface II 


169 


Atart 810 Disk 


499 


Color Computer 16K 


41650 


R.S. Modem 1 D C 


130 


SOFTWARE 




'Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% oft list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% oft list 




w extended baste 


489 


PRINTERS 




Newdos + (40) track Ml 


88 


Pocket Computer 


189 


Daisy Wt^eet II 


1695 


NewdosSOMllI 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


ST80III 


149 


APPLE 46K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


VerbatumS Double Density 


32 






Epson MX 100 


799 


Verbotum 8 Data Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


*Con^pL.l*f M^i N«* Eqii pfD«nt 
^00 Day titerided W(3f ranty 


Line Printer V 


1610 


C C Joysticks 


22 


Bl 1 IC VA«I K«tf»li 


r-iiM iBfl' 


Mtcrotine80 


365 







Factory warranl»es on Appl« and Atari •quipm«ni Oth«r 
equipment cornes manufacturer's warronty or Computer 
Plus 180 aoy extended worronty Combined warrantees 
corry Computer Plus 180 day warranty or orlgirKil manu- 
facturer's warranty 



call TOLL FREE 1-800-S4S-t1t4 



com 



DEALIR INQUIRIES ARE INVITED 

Prices sublect to ctionge witttout notice 
Not retponilble for typogropttlcol errors. 

its-M It regtotered irademofk of Tandy Corp 




Dept D 

245A Great Road 

Littleton. MA 01460 

617-486-3193 
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CLS: CLEAR250: GOSUB65510: CLEAK50: '(SEE PHOTO 7) 

1 GOTOl: ' (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65510 DEFSTRA-F: F^STRINGS ( 32 , 128 ) ! A=CHR$ (191) +STRINGS 

(2,131): B=A+A: C=B+B: D=C+C: E=D+D+C+A+CHRS(191) 
65512 FORY=0TO832STEP64: PRINTeY,E;j NEXTs PRINTe896, 

STRINGS(64,131) ; 
65514 FORY=592T0236STEP-64: PRINTev,?;: NEXT: 

PRINT§27 2, STRINGS (32, 131) ; 
65S16 PRINT@407, "PROGRAM TITLE HERE'; 
65518 PRINT@472, "SECOND LINE HERE"; 

PRINT@981, "TITLE GRAPHICS BY KAL" ; 

FORy=lT01999: NEXT: RETURN 



655 
655" 



Program Listing 7. Lattice Title 



CLS: CLEAR65: GOSUB65500t CLEAR50: '(SEE FIG. 7) 

1 GOTOl: ■ (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65500 DEFSTRS-Z: V=STRI NGS ( 3 , 128 ) : S=STRINGS(30 ,33) 
65502 W=" 'QQQOQQQQQQe=": X = " , 0000000000§<" : K=335 
65504 Y-"=@QQQQQQQQQQ' "; Z=" >e0 000000000 , ■ . J=483 
65506 FORR=0TO930STEP30: PRINTER, S;: NEXT 

65508 PRINT@J,Yr:PRINT@K,W;: F0RR=1T06 : NEXT: PRINTej.Zj 
65510 PRINTER, X;: F0RR=lT03:NEXTi K=K+l!j-J-l: IF K<404 

GOTO6 5 520 
65512 PRINT@-114,"(**) ";: P0RR-1T04 : NEXT: PRINTe414, 

"•()*";: T="S++S": U="?+ +? 
65514 PRINT@350,T; : PRINTe478 ,T; : F0RR=1T04: NEXT 
65516 PRINTg285,U!: PRINT@541 ,U; : F0RR=1T04- NEXT 
65518 FORR=273T0529STEP64: PRINTeR,V;! NEXT: G0T065522 
65520 rORR=24lTOB62STEP64: PRINTER, S;: NEXT 
65522 PRINT@J,Y;: PBINT@K,W;: IF K<410 GOTO65508 
65524 PRINTe407 , "CATERPILLAR TRAILS"; 
65526 PRINT@981, -TITLE GRAPHICS BY KAL"; 
65528 FORR=lT01999: NEXT: RETURN 

Program Listing 8. Animated Title 



ELECTRIC SPREADSHEET 



NEW - For Personal or Business Use 

ELECTRIC SPREADSHEET does everything you Can do 
with a pencil, paper and calculator Start with a blank 
screen Move the fast cursor to desired location. Enterline 
or column labels or data Select preprogrammed operators 
for line, column, or cell calculations Run Results appear 
on the screen, formatted lor your printer Revise Run 
again 

PREPROGRAMMED OPERATORS for mathematics, 
tinance, and statistics Save data on tape or disk The 
screen is your window to a larger spreadsheet Output 
features scrolling and split-screen Variable formats for 
labels and data 

UNLIMITED APPLICATIONS PL forecast Personal 
budget Real estate investment Net worth forecast 
Invoice. Cash flow estimate Sales analysis Check record 
Business forms 

16K version has 50 operators 32 48K version has 70 
operators plus histogram plot, remote storage of data 
global revise spreadsheet layout, alpha entries, and more 

16K Model I or 111 I ape $34 95 

3? 4BK Model I or III Tape $64 95 

48K Model I or III Disk (Specify Model) $67 95 

YOUXANT LOSE' Caht orders add 6' % ta. 



Dan G. Haney & Associates, Inc. ^464 
P.O. Box 687, San Mateo, CA 94401 
(415) 493-4094 
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already displays a title, find the 
statement that prints it. Check 
the first few statements. Also 
check statements that are in- 
itially called by a GOTO or 
GOSUB. When found, delete 
the PRINT'TITLE" portion of 
the statement; leave all other 
statement segments intact. In 
some GOTO and GOSUB cases. 



the number of the title printing 
statement must be retained 
with a REM to ensure program 
continuity. 

Now run the combined pro- 
gram. If everything runs 
smoothly, save, CSAVE or 
©SAVE your newly titled pro- 
gram on diskette, cassette or 
wafer, ■ 



CLS: CLEAR99: GOSUB655a6: CLEAR50: '(SEE PHOTO 6) 

1 GOTOl: ■ (DELETE THIS STATEMENT WHEN TITLING A PROGRAM) 
65506 W=60: S=63: A=l: T=959t U=896t R=62 

65508 PRINT@0,STRINGS(63,131) It GOT065514 
65510 R=64 

65512 R=R+l! PRINTgR,STRING$(W,131))! W=W-6 : R=R+66; 

A=A+1 
65514 FOR X=S TO T STEP64: PRINT^X ,CHRS (191) ; : NEXT' 

T=T-1: S=S+61 
65516 FOR X=T TO U STEP-1 : PRINT@X,CHR$ ( 176) 

T=T-66 

65518 FOR X-U TO R STEP-64: PRINT@X,CHRS (191) ; : NEXT 
65520 U=U"6l! IF A<2 GOTO65510 ELSE IF R<398 GOT065512 
65522 PRINTe471, "PROGRAM TITLE HERE"; 
65524 PRINTe981, "TITLE GRAPHICS BY KAL'; 
65526 F0RX=1T01999: NEXT: RETURN 



NEXT 



Program Listing 6. Spiral Title 
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Fig. 7 Animated Title 



THe 80-INI>eX 



Superfast computerized 
index to: 
80 - M icrocom puting 
KILOBAUD & 80-US 

For the TRS-80 

Modi 




Unlock the filing cabinet 
on your shetf. Rnd 
articles, ads, reviews and 
programs- in seconds! 



Index & Programs & Manual USS29 

M-inua. avd dC f setMMTHv US?" 

Heoures 4QK TRS 80* M«J 1 mm 2 Dt'vti. & TRS006 



**. HOKAGON 



PO. Box 397 Stn. A 

Vancouver. aC. Canada V6C 2N2 

Telephone (604)682-7646 



GOSUB 

GOSUBS MX80/70 FRICTION FEED KIT 
ONLY S49.95 ppd 

The Gosub MX80/70 Friction FrpcI Ki| tor the Fpson MXflO 

printer will give you compleie pape' rontroi 

You get easy tu follow insiruclions ana all parts necessdry 

lo give your epson friction 'eed capabilities 

No cJiiMing and it installs m dt)out 16 micutt'S 

Money back guarantee it not satisfied 

PLUS: 

■ USt SINOLE SHEET PAPfc" 

■ USE INEXPENSIVE HOt-L P*PFR 

■ USE YOUR O^VN LETTER HEAD 

■ FREE PAPER ROLL. RACK INCLUDED WITH HIT 

■ DOES NOT AFFECT P'N FEED USE 

PRtNIEHS. EPSON MXM MIS EPSON MXlOO U50 



STRATEGY SIMULATIONS 
MERCENARY FORCE 

Commarid » 'T>efi;«iiiiiy 
«rmy DscKM lh« numbar □' 
n>Bn. typ« o* *»i[>on», 
afmo'. ac ?ij:i['i'1 rw-ilirai 
.1 I .IF :] I'ansports Batllp 
ti>e eneiTiy in jjnglss. 
urxlerwatw. on moors ard 
in spacn M * ylaymsl 
TRSOLa !« H6.» 

if,s •.•.»!•, MH) l*» SMI'- !•• ' 

111 ■ ■ . .1 mi r • • II -l*-.! 1 Afl'i 1. ■ *.. ■! 1 



FOR THE TRS-ftO 

SPACE MERCHANT 

BuiIlI ■•'' fcmpiie II tri« 
Stars C^ioose you' cargo 
'icaiB .1' bhiyping a'>C 
sw.kjn'y HisK piraies 'or 
sto*""; ffjiit" laiiu'o J"il 
oti«f r^aia-oi *^l^# vou fv 

Metrhail ilftplayet^i 
TftS*)L2(1M UM 

I.H I. • T,»|.|M*II» .» 'ASl'. II 

• til <«<■(•••. liN>h«ll>t4t( 



lINDCHitk <>■ MUNI) IMDf R I(> 



P.(l BOX27.VC: 



GOSCJB 

|31GJ 2ih-9m 



WICHITA, KS 67201 



llieIMI}lrTRA]^1000 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCn Interface. 

'FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• ;i(X)Bau(l Serial 

• 14.9 tharacttrs [mt s<i()ii(1 
pi iniout 

• Kclialjlr Inavv duly Sclii inr 
nici'hanisni 

• KS-2;t2C liinrtitr. 

• |)<niiiiu tilatioii iiuluded 
#(->() (la\ uatianlN— pans and 

lalxir 

• Hiiih (|iia]iiv StliLiric prim- 
ing OH-liiu- ust- as typ<-wrlt(T 

• Opiloiiiil trai'loi' Itt'd 
a\aiiablf 

• If) null rarriai^r widih 



Also wiirk^ with Kx, 
ironNSiriTiiiy Iktpi' 
lot last loading ol pr 
^ratns. [Has NS'i 
buiii in slrin^iyl 

HOW TO ORDER 
IIATA-TRANS 1000 

1 . We accept VLsa, Master 
Charge. M;ike cashiei-s checks or 
personal check p;iyable to: 

DATA-TRANS 

2. All oiTiers are shipped 
F.O.H. SiinJ(>se,CA 

3. Deliveries are immediate 




I 



Desk and table top models also avalUbta. 
For orders anti information 

DATA-TRANS 

4*^277 Fremont Blvd., #7 .-274 
Fremont CA ^^4536 

Phone: (408) 263-9246 



.-S** Lttl ol HT*ftH*r» on i>»g» 354 
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TUTORIAL 



You'd be surprised what it really means. 



Clear N 



Nate Salsbury 

606 Madam Moore's Lane 

New Bern, NC 28560 

One night at approximately 
10:18, my 26-1006D got am- 
nesia. The memory-tank gauge 
said OM. Sure enough, the dip- 
stick read ?MEM 102! I should 
have bought the expansion inter- 
face and 32K more memory— my 
Radio Shack dealer had been 
right. 



While investigating the protj- 
lem, I came across the follow/ing 
interesting action of the Clear n 
statement. The instruction man- 
ual says that it (a) sets aside n 
bytes for string storage and (b) 
sets all variables to zero. 

The Unmentloned (c) 

Any intelligent person would 
conclude Clear does (a) and (b) 
and nothing else, but I discov- 
ered an unmentioned (c). Refer to 



?2.2 

M = 2 ADDRESS = 17892 

17669 2 17690 

17693 17694 2 

17697 33 17696 69 

17701 65 17702 28 

17705 17706 88 

17709 2 17710 11 

17713 17714 1 

NO. OF BYTES USED FOR ARRAY = 247 
MEMORY LEFT = 14695 
lOCLEARlOOtDEFlNT A-2:;X(0,0)=1,1; 
10 

READY 
>. 



WHAT'S THERE? 2 
17691 77 17692 2 



17695 
17699 2 
17703 69 

17707 247 
17711 
17715 



17696 66 
17700 
17704 2 
17706 
17712 11 



Fig. 1. 



Program Listing 1, the short pro- 
gram I developed which led me 
to (c). If you want to try this your- 
self, be very careful how you 
enter line 10. Note the following: 

• There is no space between 
Clear and 100. This statement 
will be moved around and you 
will change your printout if you 
don't keep it compacted. 

• There are two colons after De- 
fint A-Z. There is no space be- 
tween these colons. 

• There is a trailing colon at the 
end. This, at first glance, appears 
unnecessary, but put it in. 

Setting up in this fashion 
allows you to edit line 10 easily 
(we are going to reposition the 
ClearlOO part) without changing 
the locations of any of the vari- 
ables in memory. Line 120 is in- 
cluded to make this edit easy to 
do. The program shows how the 
placement of Clear 100 affects 
the representation of variables 
and/or arrays and how this, in 
turn, affects your free memory. 

Line 10 implies that I want all 
variables to be integer s. ClearlOO 



5 XS = INKEY$: IF X$ = '■ GOTO 5 

6 CLS 

10 CLEAR100:DEFINT A-Z:!X(0,0) - 1.1- 

20 INPUT H 

30 B=0: A = VARPTR(H) 

40 PRINT "M =■; M, "ADDRESS ="; A TAB{POS{0) + 5) "WHAT'S THERE?"; PBEK(A) 

50 PRINT 

60 FOR B = A-3 TO VARPTR{X(0,0) ) + I 

70 PRINT B; PEEK(B) , 

80 NEXT B: PRINT 

90 A = VARPTR{X{0,0) ) - 7 

100 PRINT "NO. OF BYTES USED FOR ARRAY «"; PEEK(A) + 256*PEEK(A-H) 

110 PRINT "MEMORY LEFT -"; MEH, •X(0,0) -"; X(0,0) 

120 EDIT 10 

150 END 



Program Listing 1 



appears as the first statement. 
Notice that X{0,0) is specified as 
1.1 (a decimal). Line 20 can be any 
input, as long as it has a decimal 
part. I used 2.2 for this article. 
Line 40 shows how the computer 
handles the desired integer M, 
VARPTR(M) and what will be 
found when you PEEK there. 
Line 60 does look strange. In line 
20, the variable A is equated to 
VARPTR{M). The instruction 
manual states that for all vari- 
ables (except arrays), VARPTR( y 
3 will contain a code (02 equals 
integer and 04 equals single pre- 
cision) to indicate what type of 
variable follows. Therefore, the 
first B chosen by line 60 will 
display that code number for M. 

The TRS-80 stores variables in 
the sequence they appear in the 
program and then stores arrays 
after that. In our program, M is 
the first variable specified fol- 
lowed by B and A. Therefore, the 
For. . .Next loop in lines 60-80 
will print out all the pertinent 
data on the variables and end 
with the stored value for X{0,0). In 
the housekeeping information 
stored before VARPTR(X<0,0)), 
there are two bytes which store 
the total numt>er of bytes used 
for the array— in this case it is 
specified, calculated and printed 
by lines 90-100. Taken all 
together, lines 60-100 are the 
spotlight which will uncover that 
<c) action. 

Line 110 will cause a printout 
of the amount of free memory we 
have available and it also prints 
out the stored value for X(0,(^. 
Finally, line 120 makes it easy to 
do our editing of line 10. Fig. 1 
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shows the result of running the 
program as shown in Program 
Listing 1, (Note that I listed line 
10 at the end, in the Edit mode, so 
as to identity the placement of 
Clear lOO in Figs, 1, 2 and 3,) 

Let's examine Fig. 1 carefully. 
The first line is my input of 2.2 for 
M. Next we see the TRS-80 has 
this stored as two. M is stored at 
17692 and we find a two right 
there. Here's the ASCI! relation- 
ship for our variables (A/65, B/66, 
M/77 and X/88). 

In the tabuiar printout, 17692 
does contain two (as stated 
above). 17691 has 77 (that's our 
M) and 17689 is the (integer) 
code 2, 17696 identifies B with 
the 66, 17701 does the same tor 
A and then follows the informa- 
tion for array X. Some key loca- 
tions here are 17706 (that is our 
ASCII X), 17704 (code 2 for inte- 
ger), 17707/8 which contain the 
memory-used data tor the array 
and the last two items which 
show the stored value of X(0,0). 
This time we find just the integer 
part ol 1.1. Finally, Fig. 1 shows 
we have 14695 bytes of tree 
memory left and notes the array 
has had 247 bytes set aside tor 
future entries. 

Nowwe'regoing toedit line 10. 
Delete Clear 100 from the begin- 



ning (leave the colon) and insert 
it between the two colons after 
Defint A-Z. When you now run 
this version, you should get the 
same address for M (see Fig 2) If 
you get a different one (rom the 
one in Fig 1, it means you have 
changed the number of bytes in 
your program by not keeping 
everything bunched together. 

Fig. 2 looKs like more of the 
same stuff, but now the comput- 
er says M is 2.2! It is still stored 
at 17692. 17691 is comforting — 
(there's our M/77) but look at 
17689; it has a four~"M" is now 
single precision And so is B 
(1 7696) and A (17703) and array X 
(17710) But we only have 14447 
bytes of memory left. We have 
lost 248 bytes just by moving 
Clear 100. 

(c) Pevealed 

We can see where 242 of 1 hem 
went because the array now has 
had 489 bytes set aside while 
before it only needed 247 The 
other lost bytes are taken up by 
our three variables which now 
each use four bytes (as single- 
precision numbers) instead of 
two (when they were stored as in- 
tegers). We have discovered the 
unmentioned (c). 

In addition to setting all varl- 



'?.? 








M = 2.2 


ADDRESS- 1?692 


WHATS THERE? 205 | 


17689 4 


176S0 


17691 77 


1^692 205 


'7t«3 2W 


17694 12 


17696 130 


17896 4 


1769? 


1769e 66 


iTcee 


17700 72 


177!)1 10 


17702 143 


17703 i 


17704 


U705 66 


1//06 


17707 56 


■770e 10 


urji 143 


1^710 4 


1771' 


17712 88 


17^3 233 


'7714 1 


17715 2 


;7/;e 11 


17717 


■77'fi 11 


17719 


17720 205 


Ij'^21 A>i 








NO OF hJYTES USED I- 0F< ARRAY -489 






MEMOHY LLF T 


1*447 






10 DEFINT AZCLEAfllOO;X(0,OJ= 1,1: 






10 


Fig 2 







5 XS = INKEYS 


IF XS " " GOTO 5 ELSE CLEAR 50 


6 CLS 




10 A = 1 




20 PRINT "MEM 


■ , ■VARPTR(B(0) ) " , "VARPTR[A) " 


30 PRINT MEM, 


VARPTR(B(0) ) , VARPTR(A) 


40 PRINT MEM 




50 CLEAR 50 




6 PRINT MEM, 


VAKPTR(B(0) ) , VARPTK(A) 


150 END 






Program Listing 2 



ables to zero, Clear (anything) 
also causes all variables to be 
stored as single-precision values 
unless specified otherwise by a 
statement which follows the 
Clear, tn my original program, I 
used four large arrays which I 
thought were Integer types. I had 
set them up on the first program 
line with Defint and DIM state- 
ments and then, later, added 
Clear 120 when t found I needed 
some string storage. By merely 
placing that Clear 120 at the be- 
ginning of the line, I suddenly 
found about 1,100 lost bytesi 

Okay— back to the laboratory. 

Edit line 10 again — take Clear ICX) 
out of the middle (leave both col- 
ons) and snuggle it up against 
the right-hand colon which 1 
asked you to put there. Run 
again and get Fig. 3, The 
changes here are a little more 
subtle — same MEM, same num- 
ber of bytes for the array, M is 
still 2.2. But note these points: 

• Since ClearlOO followed the 
definition of X[0,0), thai value 
is now a (as promised by the 
definition of Clear), but 

• Even though there is 
nothing stored in the array, 
the computer still seems to 
have space reserved for it- 
look at the housekeeping info 
from 17710 to 17719. 



Program Listing 2 

This strange result led me to 
some further tests and I finally 
tied all the information together 
with Program Listing 2. Notice 
that the only variable specified 
here is "A'. The printout for the 
run of this program is shown in 
Fig. 4. Let's analyze the results. 

We print three numbers identi- 
fied as MEM, VARPTR(B(0)) and 
VARPTR(A). We see that after 
assigning A its value of one we 
have MEM = 15200. We find an 
address for B(0) even though we 
haven't specified B in any way. A 
is stored at 17497. On the next 
line, by itself, we have 15148 
bytes of MEM (we appear to have 
lost 52 bytes somewhere). Then 
the program restates what Basic 
does automatically if not told 
anything else, it Clears 50. The 
final line shows: MEM = 15207; 
B(0) has a new address (7 bytes 
earlier than before); and A 



doesn't exist any more (the blank 
space under VARPTR(A) plus the 
"?FC error in 60" line both teil us 
this). Here's what this data 
reveals, 

• Unless otherwise specified, 
the computer dimensions 
single-variable arrays for 10 
(0-10 or 11 elements). 

• We didn't specify INT so the 
computer stores numerical 
data in single-precision tor- 
mat. 

• Therefore, a single-variable, 
undefined array needs four 
bytes/elements by 11 elements 
equals 44 bytes, plus eight 
housekeeping bytes equals 52 
byles 

• By merely asking for an ar- 
ray address, even it if has 
never been specified, the com- 
puter sets aside space for thai 
array. That's where the miss- 
ing 52 byles went 

• When we executed Clear 50 
the array and variable A were 
wiped out Stnce A was stored 
in singie-precision format, It 
required seven bytes of memo- 
ry. We had 15200 bytes' ol 
memory with A stored and, 
therefore, 15207 when it was 
erased. 

• Finally, as soon as we asked 
for VARPT R(B(0)), the comput- 
er reestablished a location (or 
It (but now it was set up seven 
byles lower because A didn't 
exist any more). This is proved 
by the blank under VARPTR(A) 
plus the FC error message. 



Conclusion 

For maximum memory con- 
servation, always make your 
Clear statement first. Once you 
have assigned a variable any 
value, the computer keeps its 
assigned space forever (vifith the 
exception of a new Clear state- 
ment). You cannot free those 
bytes of memory tor any other 
purpose. The instruction manual 
points out how many variables 
you have available to play with 
(around 900). Even in- Integer 
form, each variable uses five 
bytes. So tje very conservative in 
your use of variable names — es- 
pecially in the Command mode. 
Any new variables you use are 
stored also and continue to take 
up space — even if they are used 
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• CHROME la lh« perfect back-up for diak— low coal, vary low error rate 

■ Twice aa aacura during EMPa, power tallurea, & other malfuncliona 

■ MICROFUSION* CHROME runa like a champ en high baud rate 
tormata like JPC 

• Needa no apaciel modrficatlon on good caaaelle decks 

• CHROME saves lota of moiMy & time 
— saves lota of program ft data 

C.1 OS — 1 lor only $1 2.001 
C-20S — 10 for only $15.00! 
Add S2 per order for PftH; In CT add 7.5% tea. M.O., check, MesterCard, 

Vila. If paying by card, give card number, expiration dale, sign order. 
Prompt shipment. 

Nine CHROME are in black, S-screw shells; the 10th CHROME (in white) 

carries a half dozen of Emory Cook's fast-tunning business-oriented sub- 

roulmes with documenlalion. They're in R/S Level II Basic, some very 

sneaky. 

True digital transfer pttis premium tape makes us the acknowledged prima 

duplicator of soHwara for T I., OSI, and all the Tandy, Apple, Pel, Atari, 

& fast formats. Write for further informalion. or call 203-853-3641 . 

MM t.. COOK LABORATORIES, INC. 

375 Ely Avenue Norwatk, CT 06854 ^4i8 

Oldest in DIGDUP, newest in SOAP 
(tf you don't know what SOAP stands for, place an order!) 



just once. Be very careful in Com- 
mand mode when requesting 
VARPTR for arrays. It you enter 
Print VARPTR(AN{p.O))by mistake 



when you really mean! AB(0.0), 
you have just irrevocably lost at 
least 247 bytes (or 489 if A has not 
been declared an integer)-B 












M = i2 


ADDRESS = 17692 


WHATS THERE? 205 1 


17689 4 


17890 


17891 77 


17692 206 


17693 


17696 66 


17699 


17700 72 


17701 10 


17702 143 


17703 « 


1770* 


17705 66 


17706 


17707 56 


17706 10 


tTTOe 143 


17710 4 


17711 


17712 88 


17713 233 


17714 1 


17715 2 


17716 11 


17717 


17718 11 


17719 


17720 


17721 








NO OF BYTES USED FOR ARRAY = 489 






MEMORV LEFT 


= 14447 






10 DEFINT A-Z..X10,0)= 1.1:CLEAR1M 






10 


Fig. 3. 







RUN 






MEM 


VARPTRiaOH 


VARPTR(A) 


15200 


17509 


17497 


15)48 






15207 


17502 




"JFC E'lor in 60 






READY 






> 


Fig. 4 







hC^J 



EDITOR, ASSEMBLER AND MDRE! 



SOrrWARE OEVELAPIVIENT SYSTEM 

The Micro Works Software Oevelopmeni Syslem [SDS80C) is a complete 6809 
eflitof, assembler and monitor package contained in one Color Computer program 
packi Vastly superior lo RAM-based assemblers/editors, the SDS80C is non- 
volatile, meaning thai if your application program bombs it can't destroy your 
edtlor /assembler Rus it leaves almost all ol 16K or 32K RAM free for your 
program Since all (hree programs, editor, assembler and niwiitor are co resideni 
we eliminale leCnus program loading wfien going back and forlti from editing to 
assembly and deDuggmg' 

Ttie powerful screen -onenied Editor features finds, changes, moves copys and 
much more All keys have convenient auto repeat (typamaiict. and since no line 
numbers are required the full width of the screen may be used to generate well 
commented code 

The Assembler lealures att ol the following cwnplete 6809 instruction set 
complete 6800 set supported for cross-assembly, conditional assembly, local 
labels, assembly lo cassette tape or to memory: listing to screen or printer and 
mnemonic error codes instead of numbers 

The versatile ABUG monitor is a compact version of CBUG, tailored for debugging 
programs generated by the Assembler and Editor it features examine /change ol 
memoiv or registers cassette load and save, breakpoints and more SDS80C 
Mca: (89.95 



LEARN BSOS! 
6809 ASSEMBLY LANGUAGE PROGRAMMING, 

by Lance Levenlhal contains the most comprehen- 
sive reference material available for programming 
your Color Computer. Price; $16.95 



-'^O 




CRACK THOSE ROIVISI 

SOURCE GENERATOR; ihis package is a disassembler wliicn runs on the color 
computer and generates your own source listing ot the BASIC mterprelei ROM 
Also included is a documentation package whicli gives useful ROM entry points. 
complete menwry map. i/0 hardware aetails and more A 16K system is required 
lor the use of this cassette SOC OtsassemUer Price; $49.95 



CBUQ IB HERE! 

MONITOR TAPE: A cassette tape vifhich allows you to directly access memory I/O 
and registers with a formatted hex display Great lor machine language 
programming, debuggino and learning II can also send/receive RS232 at up lo 
9500 baud, including nosl system download/upload 19 commands in all 
Relocatable and reentrant CBUG Tape Price: $29.95 

MONITOR ROM: The same program as above, supplied in 2716 EPROM Ihis 
allows you to use the entire RAM space And you don t need to reload the momioi 
each lime you use it The EPROM plugs into the Extended Basic ROM Socket or a 
oiodified ROMPACK CBUG ROM Price: $39.95 



RARAU.£L O! 

USE A PARALLEL PRINTER with your Color 
Computer' Adaptor box plugs into the serial port ano 
allows use of Cenironics/Radio Shach compatible 
pnnlers with parallel interface. Assembled and 
tested PIBOC Price: $69.96 



3SK RAIVI* 

MEMORY UPGRADE KITS: Consisting ol 4116 
?00ns integrated cifcuits with instructions lor 
installation 4K-16K Kit Price: $39.95 16K-32K 

Kit (requires soldering experience) Price; $39.95 






t.'iog 



GOOD STUFF! 



RO 



WE SHIP FROM STOCK! 

Master ChargeA^isa and COD Accepted 

BOX 1110 DEL MAR. CA 92014 714-942-2400 
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Computer experts 
(the pros) usually have big 
computer experierice. 
That's why when they shop 
system software for Z80 
micros, they /oofc for 
the big system features 
they're used to. And that's 
why they Uke Multi-User 
OASIS. You will too. 



DATA INTEGRITY: FILE & 
AUTOMATIC RKORD LOCKING 



The biggest chalfenge 

for any multi-user system 

is co-ordinating requests 

from several usei 

to change tbA.sa1^reftrd 

at 



(THENCOMPARi.) 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Lot 
Password 
Level feati 



memory is needed. Even 

if you have more than 64K, 

your pay-off is cost savli; 

and more efficient use' 

of all the mer 

availabl 

se 



OASIS IS AVAILABLE FOR 
SYSTEMS Alios Compucofp C'omemCG, 
Delta Products Digital Group. Digda^ 
MiC'Osystems Dvnabyle G od bo ut 
ndex. iniersvsiems. NortJ 
SD Systems TRSJ 
Graphic Vom 



Manual 
Onr^ 




(ample: normally 
jsers can views 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record !ocl<ing will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



SYSHM SECURITY: 
LOGON, PASSWORD 
ft USER ACCOUNTING 



Line 

leepmnwrory 
jser nas been 
in, when and 
r how long. 
Prosinsist on these 
security features. 
OASIS has them. 



EFnCIENCY: 
RE-ENTRANT BASK 



A multi-user system 
is often not even practical 
on computers limited 
to64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
nals 
In^ little as 
ry. Or, with 
itching, as much 
784K. 

Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC — 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM). Direct & 
Sequential Files; f\4ail-Box: 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put itall togetherand it's 
easy to see why the real 
pros like OASIS, Join them. 
Send your order today. 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 




P'lnl Scooler 
General Text 
Editor e\€ i 
SINGLE-USER 

MULTI-USER 



BASIC COMPILER/ 
INTERPRETER/DEBUGGER 



RE-ENTRANT BASIC 
COMPILER/ INTERPRETER/ 
OEBUQGER 



DEVELOPMENT PACKAGE 

Ma;-i; fls^eiiDiei. 

□eCi,99erJ 



TEXT EDITOR t 
SCRIPT PROCESSOR 



DIAGNOSTIC & 
CONVERSION UTILITIES 

I Vl'-nory Tes- 



Recovery, Oisli Test, 
Trie CoDy trom 
oiher OS. elcl 



COMMUNICATIONS 
PACKAGE 



File Sena a Receive) 



PACKAGE PRICE 

I All 0'- AOOve) 
SrNGLE-USEiR 

MJLTI-LJSfcfl 



FILE SORT 



COBOL-ANSI '74 



St50 
350 



Si 7,50 
17.50 



O'der OASIS f'om 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

TeleDhone (415) 562-8085 
TWX 910-366-7139 

NAME„. 

STREET (NO BOX =) 

CITY 



.ZIP. 



STATE 

AMOUNTS 

(At!acn system desct'DVon; 

add S3 (or snipping: 

Catiforma residents add sales ta»l 

D Check enclosed C VISA 

□ UPS CO D n Mastefcharge 

Card Number ; 

ExDiration Date . 

Signature .^ 



MAKES MICROS RUN LIKE MINIS 



n 



WINCHESTER DOES NOT MEAN FIXED DISK!! 

MMF is first to offer a 10-Megabyte, removable cartridge Winchester drive. These drives are 
the very leading edge of the Winchester technology drives. Versions are available for 
MODEL-1*, MODEL-II*, and MODEL-III.* These fantastic drives are complete with 
TRSDOS * compatible operating system. We believe that this drive provides the best solution 
to the Winchester backup problem. It is available from stocl<. 

MMF-lOOR-1 10 Megabyte Mod-V or Mod-Iir $5995.00 

MMF-100R.2 10 Megabyte Mod-ir $6995.00 

MMF-lOOF-1 10 Megabyte Fixed Winchester $5295.00 

The suffix R denotes Removable media, and F denotes Fixed media. 

THE FAMOUS MMF PORTABLE 5/10 MEGABYTE 
MAINFRAME COMPUTER SYSTEM 

This 48K computer is complete with TRSDOS* compatible operating system and 40-track 
floppy disk drive for backup and program exchange. See our ad pg 173 of July 1981 
80-Microcomputing for further details on this Portable Mainframe computer system. 

MOD-Iir 5.3 Megabyte Computer System $6995.00 

MODEL-Iir Floppy Disk Controller $ 279.95 

Thanks to our high volume purchasing power, we are able to pass along our savings to you. 
This unit is priced complete with installation kit for only $279.95. It is the lowest priced, 
highest quality unit available, and features gold edge connectors. 

RCI Business Software for your MOD-n"^ 

Dental Management System $2995.00 

• Manages up to 10,000 patients • Maintains individual treatment plans on each patient 

• Pre-treatment estimate of charges • Prepares Insurance Claim Reports {including co- 
insurance) • Tracks all DENTICAL billings (incl. monthly analysis reports) • Maintains either 
CDS or ADA Codes • Allows up to 100 insurance companies {more if required) • Manages 
Accounts Receivable (with aging 31 to 91+ days) • Prepares monthly statements • Com- 
putes service charges, prepares overdue notices • Provides daily transaction analysis of 
charges, credits etc. • Prepares recall notices. 

Payroll System $550.00 

Inventory Management $499.00 

Accounts Receivable $299.00 

Tex-Editor ] . .' " .' $ 59;95 



g "I Call for the location of your nearest Micro Mainframe dealer. 

■T Dealer Inquiries Invited. 

I Micro Mainframe ^6 

g 714 Alhambra Blvd. 

g Sacramento, CA 95816 

^ (916) 447-7048 



t. 



J 
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UTILITY 



Apparat users, you don't have to copy 
an entire system of data disks just because you've changed its name. 



Rename 



David D. Busch 

515 E Highland Avenue 

Ravenna, OH 44266 



Rename Is a utility allowing 
NEWDOS+ and NEWDOS- 
80 users to change the name of 
any System or data disk wittiout 
having to recopy the disk. 

Why would you need to re- 
name a disk? Perhaps in reor- 
ganizing your files, you happen 
to move all the programs from a 
disk you have named Disk2 onto 
other disks. Rather than keep an 
empty disk in your file, it might 
be tidier to take the highest 
numtmred disk and rename it 
Disk2. There are many other rea- 
sons for changing or updating a 
disk name and for correcting or 
altering the date on a disk. 

Making the change doesn't 
really require a special utility. 
Rename just streamlines the 
task actually carried out using 
Superzap. 

TRSDOS, VTOS, NEWDOS 2.1 
and NEWDOS 80 all store the 
disk name and date In the first 



sector of the directory track; this 
is track 17 (11 hex). The disk 
name is stored in eight bytes, 
relative bytes DOH to D7H In 
track 17. The date immediately 
follows at relative bytes D8H to 
DFH. To change this informa- 
tion, it Is necessary only to re- 
place the values stored in those 
bytes with the hex equivalents 
of the ASCII codes for the char- 
acters you wish to substitute. 

Rename does all the work for 
you. The user enters the substi- 
tute strings, and the program 
calculates the hex codes. Com- 
plete instructions for making 
the fix using Superzap are 
printed to the screen, so even a 
user who has never used Super- 
zap can rename or redate disks 
with no trouble. 

An Example 

If someone wished to name a 
disk Testdisk and change the 
date to 01/05/81 , he or she would 
Input those strings when 
prompted by the program, in 
lines 50 and 70, respectively. No 
complex error traps are used. It 
is assumed that the user has 
some basic familiarity with the 
naming requirements of disk. 
The program does check that 



the entered name is eight char- 
acters or less. If the input date 
does not equal eight characters 
exactly, the user is asked to re- 
input the string, using MM/DD/ 
YY format. In fact, any eight 
characters may be input for the 
date, but the two slashes must 
be in their proper positions on 
the disk to avoid later problems. 

The new name and date are 
examined one character at a 
time In a routine located in lines 
100-180. A For.. . Next loop of 1 
to 8 assigns the character of 
each position in turn of NME$ 
{line 110) to A$. Control then 
branches to a subroutine in 
lines 410-560. 

Here, the ASCII code {deci- 
mal) for the character Is deter- 
mined (line 410), and that figure 
converted to hex. To do this, the 
code (B) is divided by 16 and the 
result, minus the remainder, is 
assigned to D1$. In hexadecimal 
notation, the first position to the 
left of the decimal point (the 
one's place) shows the number 
of digits from 1 to 16 (from 1 to 9, 
then A.B,C,D,E,F In hex). The 
second position to the left of the 
decimal point (the ten's place in 
decimal notation) shows the 
number of I6's. D1$ is a string 



representation of the number of 
16's in the ASCII code. Because 
Rename accepts only upper- 
case disk names with each char- 
acter having a decimal equiva- 
lent of less than 9F hex, no pro- 
vision has to be made in this pro- 
gram for converting numt>ers 
higher than that (AO, etc.). 

The remainder produced when 
B is divided by 16 is multiplied by 
16 to find the number in the ones 
column. If this number is higher 
than nine, it is converted to the 
equivalent hex figure at lines 
470-540. That is, 10 becomes A; 
11 becomes B, etc. 

This second digit's string rep- 
resentation (D2$) is then added 
to D1$ to produce the final hex 
equivalent of the decimal ASCII 
code. Control returns to the 
parsing subroutine. 

If the new name chosen for 
the disk is less than eight char- 
acters long, at some point Mill 
$(NME$,N,1) will equal " " (rtul^. 
and 20H (32 decimal), which Is a 
space, is added to NME$(n), 
which stores the finished hex 
conversion of the name. 

During the same For. . .Next 
loop, DATESS is also parsed, 
converted to ASCII in hex and 
stored in DATES$(n). 
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TRS-aO- MOD 111 48K 

WITH VOUR CHOICE Cf MPI DISK 
DPIVES INSTALLED. UP TO 4 MEG 
ON LINE STORAGE. 



48K MOD in with (2) INIEPf-JAi- 40k CO^V^S 

AS ABCM 6XC£P' WITH [2) INit[?NA SOrti DRfvES 

AS ABCM EXCEPT WITH (2) INTERNAL 40/'lC*k DRWES 

AS ABOVt EXaP! WITH (2) INIir?NAi. 80/8C*k DfWS 

T?S232 iNTET^Aa INSTAiitD ■ ADO - 

Eirte'TXii ooa on Om? Coble 

BtiU-dOtrk S3CW(.X) B52 s dO/dOlri< 

B91 s dOfiK 5-12900 B92 s-SO/aOIrk 



MOD«TI?SDOS12DlSKfirE 
I^IOD III 'r?SDOS MANIWL 

Mc»iiiu.»n.iis ■■ 

6 MONTH LEViL IV PRODUCTS INC. 

LIMITED 32461 SCHOOLCRAFT 

WAJJRANTY LIVONIA MICHIGAN 48150 

ON PAPTS roll free 800-521-3305 

AND LABOR m. stole 313-525-6200 

viso-moster cord-COD 



S185900 
S211900 
S2W900 
S2dd900 
S 6900 
S 2500 

S44500 

S57900 



S1495 
9995 



i 



rMPw 



PWBBMg^e 



so 



microcomputing 



BIMDERS 

order 
yours 
today 



Keep your library of 80 Microcomputmg safe from loss 
Of damage in these handsomely appointed binders with 
fich dork green covers ond gold lettering. Eoch binder 
holds 1 2 issues moking on EXCELLENT REFERENCE HAND- 
BOOK. Several binders form o quality librory you can be 
proud of. 

S7. 50 eoch 3 tor 421.75. . 6 foe (42.00. . . 
PostoQe poid in USA Foreign orders please include S2.50 fot postage 

Specify 1960 on 981 

Send check or money order only to: 

80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 




Alow 6-0 WMhi foi [Miv^ry. 



Pleoie no C O D ortJen no phont oOni 



When the conversion is com- 
plete, the program prints out the 
following instructions, In this 
case using the string provided in 
our TestOisk example: 



Carry oul Ihe following steps: 

1) Load Superzap 

2) Hit Enlef- 

3) Load disk lo cnanQe m Onve 

4) Enter (drive spec). 17.0 to prompts 

5) Enter 'MOO DO' 

6] Enteftr>ecriaraclBrs shown below 

7) Hit Enler.'Y".and Enter again 

B) Ejiit Superzap 

54 45 53 54 44 49 63 4B 
30 31 2F 30 35 2F 38 31 
Hil'JKL' tosettd these ■nBlrucliooa to pfint- 



Note: the program runs as-is 
on NEWDOS 80. Those using 
NEWDOS 2.1 with the Basic ver- 
sion of Superzap, whicti re- 
quires hex entries, change line 
240 to read: 



240 PRINT" 4) Enter (driwesp»c).II.O TO 
PROMPTS- 



In both cases, the user should 
substitute the drive number in 
which the target disk is con- 
tained (drive specification) in the 
above examples. Because Re- 
name was written for users of 
Superzap, I assumed that the 
JKL function would obviate the 
need to have a special printing 
subroutine. Those using other 
zapping programs with DOS that 
don't have a JKL equivalent will 
have to make necessary chang- 
es on their own. Because the 16 
bytes ot hex numbers are diffi- 
cult to remember, the user will 
usually want to send the instruc- 
tions to a printer, if available. 
Those without a printer will have 
to copy the figures on a piece ot 
paper. ■ 



1 '■*IIUt(l*II)tf(t*ttl««tttllllllltl(tttttttllllll(t 

• « 

I DISK NAHE/BATE CHAMUR t 

I t 

2 'I tf, DAum g. BuscH 1 

• 515 E. HIGHLAND Ml. t 

I RAVtNHA. OHIO *t}H I 

i I t 



10 
20 

it 

*0 
*5 
50 

to 

JO 
BO 
90 
95 
100 
110 

iro 

130 
lid 
15C 
160 
170 
180 
Iffi 

ivg 

200 
210 
220 
230 
240 
:!rf 
260 
270 
280 
2¥0 
309 
31i 
32C 
330 
3M 
3M 
3A0 
370 
300 

iyo 

too 
*1V 
t2D 
*30 
t*0 
♦LO 
*bi.' 
♦ /O 
*dt 

tvo 

5CC 

s;( 

5i0 
540 
550 
563 



aEW WO 

CLSiPRINT 

PRINT THia mOCMn CAN BE USED TO CHANtE THE MK ANIi MIE W ' 

PRINT "A DISht U3IKC SUPEHiUP AS »<* Alt,* 

' HUItt ENIEN HttI HMt AND DATE MttI* 

INPUT 'PLEASE EWltK tHl MEM *Wf fDB THE DISK-fWiE* 

IF UliHnttr.-a THEN PRIM ■SOI-Kr. ONLT EIGHT CHWACTEKS ALLDUED" ICOTO 50 

INfUI -PLEASE EWIEt. TMt «tw Dt;E FDR THE DlbK i USE nn/tl/DO )• iDATEl 

IF UW(DAtE»l>e rntN PHI«r-SORHr. 0NL( EILHI tHAfiatlEdii ALLOUEC-IMTO 70 

IF LEH(»IEIKB THEN PRINT "I/SE: W/mt/ri FORrMflCOTO 70 

• »HtM PAflSE EACH CHABarrER W MflE/DAIE STRINGS I4MM 

FDR N-1 TO a 

A*^tD>'NH£liNill 

IF Ai-" THEN H«*(N1-' 20 VCOTQ 150 

GOSUE 410 

NHE*< N )-HX( 

A«-nlDI(DAIEl.N.l ) 

GOSUe 410 

[iflTEi;NMH»l 

NEXT N 

' Mtitt PftQUIDE CHANCING IN5Tn.JCinHS Ulttt 

cls:prini.'prini 

PRINT 'CARRY Our IMC FOLLOtllNC STEPS," 



1. ) LOAD SUPERZAP' 

2. > HIT 'ENTER" 

1. ) LQAD DISK ID CHMCE IN DRIVE* 

4.1 EHltn URIUE SP£C>.l/'0 TO PROflFTS" 

5. ) ENfEH 'NOD H" 

«,> ENTER THE CHMACTERS SHOUN B£LOU.' 

/. ) HIT ENIER. -y . AND EMTER AGAIN" 

B. > EXIT SUPERZAP- 



PRINT 

PRINT 

PRINT 

fUlU\ 

PR IN I 

PR IN I 

PRINT 

PRINt 

PRINT 

FOfc N=l TD B 

PRINT NHEt(N); 

IffXT M 

PRIffT 

FOR N-I TO B 

PRINT D*TE»(N)( 

NEXT M 

F-RIMI 

mIo^»?" '■^'■' ^" ^"^ ^'^^^ IBSTRUCTIOHS TO PRINTER' 

' Htitt L'JNUERr lU f4Ej llltll 

B>AM.(AIJ 

Hl=|l/U 

H2-H1-1NT!H1 I 

H>H2)16 

DI»-iiTl((.UIlHl tj 

It- MJ.IV ■Mt» U.;i-«I0VSIRlLHi,i2,l KCOTO 53C 

UN HJ-B WJU *Uii4«.50).5i;i52:rSJ0.54!! 

O-'M-O'ltOTU 5:,0 

U.'t--A':M,-Q 550 

ii.;i-"ii-:6L,u j-jc 

i:jl = -C-:&LIlj bM 

Vi*^'V.UlQ 55u 

U2t^'l':UlJQ 5j* 

DJ«-*F":CQTQ 55? 

KtrUHN 



Program Listihg. Rename 
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NO SYSTEM is the system many people 
use with their only priority being past dues. 

Biilist keeps track of bills due, bills paid, check 
numbers, dates paid and even repetitive cash 
payments! 

Biilist will keep track oi up to 100 accounts a month. 
Store data on an inexpensive cassette with a 
complete listing of accounts, if printer equipped. 

Biilist allows six priorities. 

Sort by priority, name or date due; compress; delete; 
advises you when an account is latel 

Biilist becomes indispensable , . , providing current 
account information without digging through the pile. 

—THIS MONTH'S SPECIAL- 

7.95 for the listing (lib.) 
12.95 for the cassette (1 lb.) 
Required equipment RS. Lvl II or III with 16K 

STK#126 

MASTERGUESS 

• . . a chall«n3€ beyond Mastermind! 

Masterguess by Elf II offers a test of logic enhanced 
by the creative use of TRS 80 graphics. 

AVAILABLE NOW FOR ONLY $6.95 

Required equipment R.S Lvl II or III, 16K 5TK ^127 

SHIPPING RATES 

• $2.50forfirst31b5-..65<tea.add'l.lb. 

• CODs add $2.00 

• Canadian order, please add 75't; per lb. 

• P.O. Boxes— include phone for UPS 
Please allow 2 to 3 weeks for checks to clear. 

3% cash discount {cash, check, money order or 
C.O.D,) 

P.O. Box 1567, Wheat Ridge, Colorado 80033 

Colorado Residents add 3% Sales Tax 

24 Hour phone Order Line 1-303-431-4154 




ATA IIMC. 



COMPUTER ACCESSORIES & 
EQUIPMENT 

STOCK NO. PRINTERS 



PRICE 



113 

114 
115 
116 
117 
118 
119 
120 
121 
122 
123 



Okidata microline 80 
Okidata microline 82 
Okidala micpoline 83 
Tractors 

RS-232-256 char, buf 
RS-232 2K char, buf 
Epson Mx-80 
•Centronics 737-1(150,00 
MPI88G 
Vista Daisy Wheel 
NEC 5510 or 5530 



S 389.95 

539.95 

784.95 

69.95 

180,00 

264,00 

525,00 

Rebate) 734.95 

659.00 

1545.00 

2845.00 



Shipping and insurance included on all Printers to 48 
continental slates. Blue l^bel to Hawaii and Alaska available. 
STOCK NO RIBBONS PRICE WT. 



ZippackLPUlTV $17.75/4 lib. 
Multistrike carbon 

Diablo by type 12.95/3 lib. 

Qume 9.95/3 1 lb. 

NEC 20.45/3 1 lb. 

VERBATIM 
w/DATAUFE'^with hub rings) 



109 

110 
111 

112 



103 
104 

105 



106 

107 



MD 525-01. 26.95 

MD 525-10 26.95 

MD 525-16 26.95 

(lor plastic box, add $1.00/box) 
10 boxes, mix or match $252.50 



lib 
lib 
lib. 



i 



FD 34-8000 

with hub ring 
and hard box 



39-95 

(xlO 5360.00) 

43 95 

(ilO $400 00) 



2!b 





CASSETTES TDK/ 
MAXELL 


PRICE 


SHPG, 
WT 


100 
101 

102 


D-C30/LN-30 
D-C60/LN-60 
D-C90/LN-90 

TERMINALS 


$14 95/10 
18.45/10 
22.95/10 


31b. 
31b 
31b 


124 


HazeltineH1410 

MEMORY CHIPS 


$765,00 
(free shipping) 





125 



Motoiola $21-95/6 

MCM 4116 AC 2a (shunts not 
16K.200ns memory included) 
chips ior mod I, 
expanaion intertaoe 
and mcxl II! 

ONLY 30 SETS AVAILABLE "OMrbty Umiud 



2 lbs. 



-Sm Usr of AcfnrUscrs on pagaSH 
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GENERAL 



A great program for Saturday mornings. 



80 Cartoon Capers 



Darren DeVigili 
439 South River St. 
Wilkes-Barre, PA 18702 



■he TRS-80 cartoon is here. 
This program uses 2.7K 



bytes, and can be adapted by 
even the novice programmer. 
I've included several sub- 
routines to save time and 
memory while adapting the pro- 
gram. 

Disk sound (almost) prints 
WHRRRR... and goes to a delay 



subroutine. Clear desk clears 
the graphic desk (it has a bar for 
graphics across it), and clear 
screen clears the 80's screen. 

The graphics are generated 
using the CHR$, STRINGS and 
POKE functions using the (X) 
and (2) variables. The variable 



(X) saves memory in assigning 
character codes, but is also 
used in all loops. (Z) is used in a 
double loop. 

Before any lengthy adapting, 
1 suggesfwriting down the line 
numbers and functions of the 
subroutinesto save time. ■ 



10 REM * TRS-80 CARTOON * 

20 GOSUB730:REM * LOOP THROUGH AND RUN ANY ADDITIONS * 

30 REM ••' START ADDING HERE *•* 

700 REM • WHITE SCREEN • 

718 FORX-27 6T04e3STEP6«:PRINTe!(, STRINGS (16, 191) ; iNEXTX ; FORX = 57 8T 

0637 !PH1NT@X,CHRS( 191) ; iNEXTX :GOSUB920iFORX=153 6 0TO16 3 83 i POKEX ,1 

91:NEXTX 

720 REM * TRS-B0 GRAPHICS ' 

730 CLS:PHINTg2ie,CHRS(131) ; : PRINT#211 ,CHRS 1 163) ; : PRINTe512 , STBI 

NGS(21,1761 ;;PRINT§212,STRING$116,179) ; : PRINTg228 ,CHR$( 144) ;:PRI 

NTgSai, CHRS (178) i:PRINTg532, STRINGS! 16, 1791 ; : PRINTg22E ,CHRS ( 147) 

I :PRINT@229, STRINGS 15, 131) ;:PBINTi54B,CHRS[ 177) ; 

74B X=170!PRINTg549,CHRS(176) ; : PRINTI55B ,CHRS(177) ; ; PRINTi551 ,CH 

RS(17e)!:PRlNTg552,STRINGS(2,176) | ! PHINTi209 ,CHRS(X) j : PRINTg273 , 

CHRS(X) I :PRINTe337,CHRS(X) ,- ; PRINT#401 ,CHRS (X) ; : PRINTe465 ,CHRS |X1 

;iPRIST§529,CHRS(X) , 

750 PfiINTe275,CHRS(X);:PRINTg339,CHRS(X}):PRINTi4B3,CHRS(X)i:PRI 

NTe467,CHBS(X);!X=149:PRINTe292,CHRS(Xl;:PRINTg356,CHRS(X);:PRIN 

T(i*2a,CHHS(X);!PHINT?484,CHHS[X) j 

768 PHINTe234,CHRS(X) ; i PRINT?298,CHBS(X) ; : PRINTe362 ,CHRS IX) ; i PRI 

NT!4 26 ■€»«$( X) )tPR1NT3490,CHRS[X) ;: PRINT §5 64 ,CHRS (X) ; :PRINTe294, 

CHRS(156)i:PHINTe295,CHRS(14B);:PRINTg296,CHRS(1721 ; : PRINTg358,C 

HR;[141);!PRINTe359,CHRS(14a);,PfiINTg36B,CHRS(142); 

770 REM ' DISK GRAPHICS * 

780 PRINT?555,CHRS(181);;PRINTe491,CHRS(X)(!PRINTe427,CHRS|X);-P 

RINTg562,CHRSlX);:PRINTe498,CHRS(X);!pRINTe434,CHRS|X); 

790 PRINTe364, STRINGS (6, 1401 J ! PRIRT§556 ,STfiINGS (6 , 176) ; : PRINTi36 

3, CURS (156) I!PHINTe370,CHRS[148),:PRINTe494,CHRS[171);:PRINTi430 

,CHP S ( 16 8) ; 

800 PRlNT@563,CHRSI181|;:PfiINTe499,CHRS(Xl ; : PRINT§435 ,CHRS [X] --P 
RINTe570,CHRS(Xl f : PRINT@506 ,CHRS(X) ; : PRINTe442 ,CHRS (X) , 



eiB PFINT?372, STRINGS (6, 1401 ! ; PRINT^564 , STRINGS (6 , 1761 ;;PRINTg3 7 
1,CHRSU56) ;:PRINTg37B,CHfiS114 8) ; : PRINTg502 ,CHRS | 171 1 , :PRINTg43 8 
,CHRS|168) ;iPRINTg571, STRINGS (5, 176) ; 
820 REM • DESK GRAPHICS * 

830 PRINTS 57 6, STRINGS (2, 1 91) ,-: PfiINTe638 , STRINGS! 2 ,191) ;:FORX-16 
00TO16 3 83:POKEX,191:NEXT:X=219:PRINT?7 21,CHRS|X) ; : PRINT?7 85 ,CHRS 
(XI ; :PRINTe849,CHRE(Xl ; : PRINT@913 ,CHRS (X) ; : PRINTe977 ,CHR5 (X) ; : GO 
SUB93B:GOSUB92 8!GOSUB960 
840 REM ' PRINT ROUTINES • 

85 PRINTI277,STRINGS|14,42) ;: PRINTg3 40 ," "'PRESENTING'** ";: PHI N 
Tg46 9, STRING 5(14,42) ; : PRINTg404 , "'**'*TRS-B0'""- ; 
66 GOSUB930:PRINTg4a4,'****GHAPHICS"**-;iPRINTg340,-****COMPUT 
ER***«",-!GOSUB930:GOSUB920:GOSUB95B 

870 PRINT?277, 'RADIO SHACK" ;: PRINT@341 , "LEVEL II BASIC" ;: PHINTg4 
05,'READY";:PRINTg469,*>"iCHRS(95) ; :GOSUB93 : PRINTg47a , 'RUN" ; 
880 REM • BOUNCING DOT GRAPHICS ' 

890 FORX=57BT06 3 5STEP4;PRINTgX,CHRS1131) ; : F0RZ-1TO2 5 : NEXTZ : PRINT 
gX,CHRS(193) ; :PHINTex+l,CHRS(:40) ; : FOBZ=1T02 5 iNEXTZ : PRINTgX+1 ,CB 
BS1193) ;:PRINT?X+2,CHRS(176) ; 

90 FORJ-lT02 5:NEXTZ:PRINTex + 2,CHRS[1931 ; : PRIMT%X+3 ,CHBS ( 148) ;:P 
ORZ-lTO25:NEXTZ:PRINTgX<-3,CHRS(!93),-:NEXTXiGOTO30:REH * RELOOP * 
910 REM ' SUBROUTINES * DISK ' DELAY • CLS DESK * CLS ■ PLUG • 
920 PHIKT@3B3,"HHRRRRR. ..'; : GOSUB93 : PRINTe3B3 ,CHRS12021 ; :F0RX^1 
TO50:NEXTX:RETURN 
93B FORX-!TO1500!NEXTX:RETURN 

940 FORX-57 8T0637!PRINTgX,CHRSll931 !: NEXTX : RETURN 
950 FORX-276TO483ETEP64:PRINTeX,CHRS(20B),-: NEXTX: RETURN 
966 PRINTe579,"- TBS-80 IE A REGISTERED TRA.DEMARK OF TANDY CORPO 
RATION, -"; tGOSUB93a:G0TO94e 

970 REM * TRS-80 CARTOON BY DARREN DEVJGILI 439 S RIVER ST * 
* WILKES-BARRE PA 18702 PHONE (717) 823-9128 * 



Program Listing 
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MDX-2 System Expansion 
for TRS 80's 

The new MOX-2 system expansion board from 
COMPUTEX provides more capabilities than any other 
tystem expansion currently available. 

FEATURES INCLUDE 

• Capability to build only what you neMl. 

• SiiK screened and solder inasked P.C.B. 

• Dip SMttches are used insioad of hardware lumpers 

• No messy vertically mountec lerminaiiort resistors. 

• On board direct connect modem kit 139.95 
■ 2K«4KEpromtiit $17.95 

• R5232'20m.A. serial Tfiterface $17.95 

• Real time clock k<l $i 7 95 

• Floppy disk controller kit $31 95 

• 32K RAM expaoston kit (less Ram) $1 1 95 

• Cassette pon $3 95 

• Analog power supply $29 95 

• MOX-2 printed circuit board $74 95 

• Hardware and socket kit $19 95 

• Ceitlromcs Itne prinlnr port $6 95 

Buy just the system expansion board and those Kits you 
want, or save even more and buy the complete kit 
MDX-2 KIT COMPLETE 
$269.00 



DISK DRIVE SALE 



TANDON TM100-1 
Sare OrWe $238.00 With cate/tupply sns.00 

Single sided 40 track • 102KB Single Defts^ly IBOKB Ocjble Density 

TANDON TM100-2 
Bare Drive $3».00 WWi case/supply $385.00 

Double sided 40 track • 204KB Single Oerstty. 3G0KB Oouble Density 

TANDON TM100-3 

Bw«Dflv«S33B.00 With case 'supply $385 

Single sided 80 track • 204KB Sir>gle Density 3eOKB Dojble Density 

TANDON TM100-4 
Bare Drive $488 With caae/tupply SSOS.W 

Doubla aldad 80 track • 40BKB Single Density . 735KB DoutM DanaHy 

All TANDON drives from COMPUTEX comtt mw conpranenaive 
ttsers manual TANDON mainlendnce manua' and schamatics. In 
acKlttion. all tfrivas an 9l9Ctrically testea before, tiwmg ana after their 
48 hour bum in. 

DISK DRIVE ACCESSORIES 

Two Drive Cable $24.95 

Four Drhe Cable $34.95 

Drive Eitander Cable $14.98 

ModellllSeoondOrlveCable $4.95 



Model III Disk Drive 
Kits & Drives 

Now available Ircrr COMPUTEX ,i H.idio Shack Disk Drive 

Kit lor yOLr MoOei 'I' lor only (429.95. 

Compare these itandara faaw'^es on our list to the others 

1 Drive Controller Board 

2 All necessar^r interconnecting cables 

3 Switcfiing Power Supply 

4 Dish Drive Mounting Brackets 

5 Imernal Disk Drive Cable 

6 Comprehensive installation and theory maniial 

7 I6K RAM 

COMPLETE MODEL III DRIVE PACKAGES 

Tries* yac-^a^esa I ic jde. the Moaei H' Dish D' ve Kit 
and the Micro Systems Software Model 111 DOS 
M3DK-1 (2-TM10O-1 Drivesl provides over 

350K Bvtes storage 9i9 95 

M3DK-2 (2 TM'OO ? U^.M- headed drives) provides 

over TOOK B>tesstorage 1.149 9^ 

M3DK-3 (2-TM100-3 80 track drives! provides over 

700K Bytes storage 1 , 1 99 9^ 

M3DK-a (2-rWGO-4 13I.D* ^eadf'jeo tfarK drives) 

P'Ov 3es o.e- 1 i M B/tos sfji^mt- 1 .399 % 



COMPUTEX Comprehensive Test Program 

As one of the leading suppliers of disK drives and TRS80 systems, we 
had to have a systems test program that we Knew worked. Since no 
complete systems test program already existed, we wrote our own. The 
COMPUTEX COMPREHENSIVE TEST (CCT) program was written 
exclusively for COMPUTEX and Is now available to everyone 

Features 

DISK DRIVE SPEED TEST • DISK DRIVE ALIGNMENT PROGRAM* 

EXPANSION INTERFACE RAM TEST • KEYBOARD RAM TEST • VIDEO RAM TEST 

KEYBOARD BOUNCE TEST • ROM CHECKSUM PROGRAM 

FULL SCREEN RAM DISPLAY PROGRAM 

'The Drive Aii<jf"r<-rl P'o<;';m"i 'cj i • ,i-> Alignment Dish. 

The CCT progrsm It a must for disk drive users and should be a part 
of everyones library. 

CCT Program S21.95 
Dysan Allgnmant Disk S39.95 



^^ 
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LNW COLOR COMPUTER KIT 
$499 95 

(lesaP C B ) 
Includes all componems to assomDIe Ihe LNW color compiilef high 
resolution video RAM and 16K user RAM keyboard, ard Level II compalitile 
ROMS Printed circuit board not ifKiuded 

LNWEXPANSION INTERFACE KIT 
$219.9f> 

i.essP C D i 
Includes all comoofwnts to assemble the LNW E<pansior Interface plus 32K 
ol RAM It doos not include Ihe printed circuit hoard, dual cassette relay or 
(;abinet 



A beautilui custom all >MOoa caDmet 
C<»aiSon rtcrfi-c S99.95 



is available tor housing the LNW 



ONE YEAR GUARANTEE 

onour2O0NS 16K Memory Kits 

16K J23 95 32K $« 95 43K-$74 95 

ThMfl aia top quality, nmw memory chip* aI unbvltevably low oricm 




(713) 488-8022 



OAAf^Ur£X 



321 El Dorado Blvd. • Wobator. Tx. 77598 

VtM Mid MMtvrcard accapiad 
ParMMl ind company cMcka rcquira two waahs loclaar 

P/ease v/«/f our mw sltowroom iust off the Gulf Freeway. 
We have expanded, changed our /tame back to COMPUTEX. 
added more personnel in order to otter you compfet* service 



^Sea List ol AdrarUaan on pmga 3S4 
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TECHNIQUE 



Let your programs perform surgery on themselves. 



Slice & Dice Basic 



J. Stewart Schneider 
Rt. 6 Box 244 
Ashland. KY 41101 



Did you ever wish you could 
make a Basic program 
alter itself? Assembly language 
programmers do it all the time, 
and just because you're a sensi- 
ble sort who programs in Basic 
doesn't mean you have to take a 
back seat to the hexadecimal 
set. 

Radio Shack's Level II Basic 
is a wondrous critter. You can 
learn it in no time, It's relatively 
fast, and it'll give you your 
answers to 17 decimal places. 
Unfortunately, the machine 
holding this wonderful language 
is hooked up to the damnedest, 
most frustrating piece of ma- 
chinery known to man— that 
blasted tape recorder. As if that 
weren't enough, those of us 
without the necessary $500 are 
stuck with 16K. 

So why develop a technique 
for making Basic lines alter 
themselves? Accuracy and 
memory is why. You need accur- 
acy because if data lines could 
alter themselves, the CLOAD 
function c^oyld be used to verify 
that the t^ppe machine had 



recorded things properly. Mem- 
ory is important because alter- 
ing a line to do more than 
one thing means a reduction In 
the number of lines in a pro- 
gram, and that's good. 

Before we find out how to do 
this, we'll have to check in brief- 
ly with the assembly language 
group to better understand what 
we're talking about. A given 
hunk of code, while executing, 
can make decisions about what 
later code should be. Because 
both assembly data and assem- 
bly code are just numbers locat- 
ed at specific addresses, an as- 
sembly program can easily elect 
to treat program code as if It 
were data and alter it to meet 
changed circumstances. This is 
called self-modifying code. 

We'll use a simple example. 
Let's imagine a line of assembly 
code In a larger program. At the 
line in which we are interested, 
the program must compare two 
numbers to find which is larger. 
We know that if the first number 
is larger, then a later line must 
read, "Subtract 13 from the ac- 
cumulator". If the second num- 
ber is larger, the same line must 
later say, "Add 37 to the accu- 
mulator". 

We could, of course, write two 
routines, one to subtract 13 and 
one to add 37, and branch to the 
correct one. However, this par- 



ticular example wouldn't illu- 
strate my point. 

Assembly codes reside in 
definite addresses in memory, 
like pigeons in a bunch of 
pigeon holes. This is our pro- 
gram, so we know what address 
the add or subtract instruction 
will be found in and also where 
its data will be. So instead of 
writing two routines, we can jam 
the proper instruction and the 
proper data byte into the proper 
pigeon holes, and have one 
routine doing the work of two. 

Self-Modlfying Basic 

We can pull the same thing 
off in Basic! If we knew where 
the pigeon holes were that Ba- 
sic uses, and what should be 
In them, we could jam other 
things in, using POKE, just like 
we did above, and the Basic 
line would modify itself. What 
we need to know is "where?" 
and "what?". Both questions 
are answered In the way a 
Basic line is stored. 

Let's take a sample line, the 
first and only line, in a program: 
10 INPUT A. This tine is stored in 
memory starting at address 
17129. (This is stated in the 
Level II handbook.) What is 
stored at 17129, however, is not 
what we see on the screen, but 
the low byte of a pointer to the 
beginning of the next line. 17130 



contains the high byte. I know 
this seems silly, but it's how a 
Z-80 chip thinks. 

The next two addresses, 
17131 and 17132, contain the 
low and high bytes of the line 
number 10 respectively. Next 
comes the program text, but in 
code. Basic instructions are 
stored in memory in the form of 
one-byte tokens which Basic 
expands into words for a list. 
Humans don't understand to- 
kens and computers don't un- 
derstand words. Basic under- 
stands both. 

The next byte, therefore, con- 
tains the token for input, which 
is listed in the Level II handbook 
as 137, followed by a 32 (space) 
and a 65 {ASCII "A"). The line 
ends with a zero to signal end- 
of-line. End-of-program is sig- 
naled by two zeros in place of 
the pointers in the next line, so 
all programs end with three 
zeros. 

Making it Worit 

We now know to make one 
routine do the work of two. I had 
written a long program in Basic 
which dealt in large arrays. So 
large, in fact, that reading them 
from cassette or writing them to 
cassette, one element at a time, 
took nearly an hour. If I was go- 
ing to make the program useful 
at all, I would have to cut tape 
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time radically. To do It, I wrote 
the tape routines so they would 
tape 14 elements at a pass, 
which resulted in a very long 
tape routine (see Program List- 
ing 1). My machine cheerfully 
advised me that t was out of 
memory. 

Glaring balefully at my pro- 
gram for places to pare, I real- 
ized that my two tape routines 
were identical except that one 
said Print#-1 and the other In- 
put#-1. 

"Hmmm," I thought. . .'if I 
knew where that print token was 
in memory, maybe I could POKE 
the token for input and make the 
one routine function as both an 
Input and an output routine. But 
would mucking about with a 
command token destroy my ar- 
rays In the same way Editing 
does?" (It does, you know, which 
is most inconvenient.) 

First, I wrote Program Listing 
2, which 1 added to the end of my 
program. Without dimensioning 
my arrays, there was plenty of 
room. Listing 2 follows the 
pointers from line to line, calcu- 



lating the line numbers and 
comparing them with the target 
line number. If the target line 
number is found to begin at ad- 
dress N, then N and N + 1 would 
tie the pointer for the next line. 
N -I- 2 and N -f 3 would be the line 
number. Address N + A, the first 
address in the text portion of the 
line, would contain the token for 
print. Running Listing 2 for each 
of the lines containing Print#-1 
in Listing 1 gave me my address- 
es. What remained was to POKE 
the input token into these ad- 
dresses and see if my arrays 
would come through this har- 
rowing process unscathed. The 
result is in Program Listing 3. 

When Listing 3 is run, the first 
order of business Is to load the 
tape files into the proper arrays, 
so line 70 POKEs the Input token 
into the addresses found by 
Listing 2, altering lines 110, 140 
and 170 to input lines. If the pro- 
gram were Listed at this point, 
these lines should read lnput#-1 
instead of Print#-1. After the 
tape files have been read, line 
180 POKES 178, the print token. 



HARD CDPV 
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Here's the ideal way to keep your 
growing collection of 80 Micro- 
computing jn order! The 80 Micro- 
computing Library Shelf Boxes 

sturdy, corrugated, white, dirt-re- 
sistant boxes will keep your issues of SO Microcompufmg orderly 
and available for constant reference Self-sticking labels are 
available for the boxes, too, not only for 80 but also for /<i/obaud,' 
Miciocomputing, 73 Magazine, CQ, QSJ, Ham Radio, Persona! 
Computing, Interlace Age, Byte and Radio flectronics Ask for 
whichever labels you want with your box order. Each box holds a 
full year of the above magazines Your magazine library is your 
prime reference. Keep it handy and keep it neat with these strong 
library shelf boxes. One box (BX1000) is $2 00, 2-7 boxes (BX1001 1 
are $1 50 each, and 8 or more boxes (BXiaj2) are $1 2S each Bf 
sure to specify wfiich labels we should send Shipping and han- 
dling charges are SI 00 per order. Call in your credit card orders 
on our toll free line 800-258-5473, or use the order card in the back 
of the magazine and mail to 



m 



microcomputing I 



Peterborough, 
NH 03458 



Please jllow 4-b wepkslordelivefv NoCODocdf'' 
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COLOR GOmPUTE 



RAMCHARGER 
32K UPGRADE 

Space Invaders 
Meteoroids 
Space War 



• The Best Games Available 

• High Resolution Graphics 

• Fast Machine Language 

• Compatible w/ Ext Basic 

• S21 .95 each, $59.95 for all three 
EXTEMDED BASIC GAMES 

• LOTHAR'S l^BYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TIRADERS 

Galactic trading game 

$14.95/ea. 



EXTEMD MEMORY TRS-80 

FROM 16Kto32K 

100% Compatible With 

Extended Basic 

Mo Soldering Or Modification 

Hts Inside Computer 

$99.95 , , 



ADVENTURE 




Combat the powers of darkenss and 
ewl! Can ^u recover the treasure of 
the GokJen Sorcerer before his 
minions overcome you. A 
adventure for endless hours of fun 
and excitement, $19.95 

THE FACTS 




At last a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

$14.95 

CmUTIES 



EDITOR/ASSEMBLER $34.95 

SUPER MornrroR 19.95 

EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROMPAC port) 

MAGIC BOX 24.95 

Load MOD l/Dl Tapes into the color computer 

Coming Soon: Software speech 
synthesis. 

Improved Videotex with 
printout and many 
other features. 




SPECTRAL 
ASSOCIATES ... 

141 Harvard Ave. 

Tacoma, Washington 98466 

(206) 475-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD J% FOR RHIPPINU 

VISA OR MASTERCHARGE ACCEPTED 



• I 1*1 nt Jffv*r*l»iv . 
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II ' DOCKET CONTROL VERS. 4,9X 16K LEVEL II BASIC t/26/ee 
29 BEK • COPYRIGHT 1988 BY J. STEWART SCHNEIDER • 
29 CLEAHI5aB:ZB-3!l9'38:DIH D(2Be,2):DIK ATS U9) :DEF1NTP ,C,X :DI!1 
N$(;eBl:DIM C(2B0,2I .■FORX-0TOZ9:HEADATSIX) !NEXT:REB " Z9 - 1 O 
F ATTORNEYS •! ■* 

40 UJS"'tt.ltt«":U2S-"tt.M»'!HDS = *IND. NO. JUDGE/NO. AHRA 

IGNED B/P DUE TRIAL DATE =.-.... = -. = i = = r = . = r = ^^-=-.^i...^ 

50 J1S-'[AEB.) ": J2S=*ISIN,1 "tREK •* JIS * J2S ARE THE JUDGES' NA 

«ES 

60 ' TAPE READ ROUTINE 

70 TAPE%=1:CLS:IS-"READING: " : INPUT'HEHIKD DATA TAPE, PRESS PLAY 

ONLY, THEN TAP ■:ENTER> KEY" j AS: INPUT»-I ,F:COTO90 
90 TAPE»=TAPE*-liCLSiPRISTe405, 'THERE ARE' ;F! "CASES IN THE FILE" 

100 F0RX-1T0FETEP7 : PHINTe469, 1 S sX; *T0' ;X+6 

1:B IMPUTt-l,D|X,ll ,D(X,2),D{X*1,1) ,D(X+l,21,D(Xt2,]),DtX*2,2) ,D 

{([+3,1) ,D(X*3,2) ,DIX*4,11 ,D(X*4,21 ,D(X*5,I) ,D(X*5,2) ,D(X*6,1) ,D( 

X*6,2) 

12e NEXTX 

138 FOfiX-lTOFSTEP7;PRIHTe469,ISfX;'TO")X*6 

140 INPUT*- 1,C(X,1) ,CU.2) .C(X*1,1) ,CU*1,21 ,C 1X42,1) ,C(X*;,2) ,C 

(X+1,11 ,C(X + 3,2) ,C(X*4,1) ,CiX*4,2) ,C(X«-5,i) ,C(X.5,2) ,C1X + 6,11 ,C( 

Xt«,2) 

150 NEXTX 

160 FOBX-lTOFSTEP7:PEINT§469,I5rX;*TO';X*6 

170 INPUT1-1,NS(X) ,NS|X*I),NS(X+2),NSlXt3),NS(X+4),NS(Xt5),NS(X+ 

6) 

18B NEXTX:GOTO50B 

185 ' TAPE RECORD ROUTINE 

190 INPUT'REWIND DATA TAPE, ERASE, PRESS PLAY I. MECORD THEN TAP 

<ENTER>";AS:PRIWTI-1,F 

200 FORX=lTOFSTEP7;PRIMTe469,IS|X;"TO";X*6 

210 PRIHTt-l,DlX,l),D(X,21 ,D(Xtl,l),D(X*l,2) ,D(X*2,11,D(X*2,2),D 

fX + 3,1) ,D(X-t3,2) ,D(X-t4,l) ,D(X*4,2) ,D(X*5,11 ,D(X45,2) ,D(X*6,1) ,D( 

Xt«,2) 

220 NEXTX 

230 FORX-lTOFSTEr7:PRINT?469,IS;X:"TO";X*6 

24B PRINTI-1,C(X,1) ,C(X,2) ,C(XH,1) ,C(X + 1,2) ,C (X + 2 ,1) ,C(X»2, 2) ,C 

(X*3,l) ,C(X+3,2) ,C(X+4,1) ,C(X*4,2) ,C(X+5,I) ,C(X»5,21 ,C(X+6,1) ,Cl 

X+6,2) 

250 NEXTX 

26B FORX-lTOFSTEP7;PRINT?469,IS;X;'TO'!X+6 

270 PRINTI-1,NS(X) ,NS(X+11,NSIX*21 ,NS(Xt3) ,NS[X+41,NS(X»51,HS[X+ 

6] 

280 NEXTX 



Program Listing 1 



into these same addresses, 
changing the lnput#-1 back to a 
Print#-1 so that the updated 
files can be recorded at the end 
of the run. 

To my astonishment, it 
worked. The lines altered them- 
selves docilely and my arrays 
went untouched. Listing 3 does 
the work of Listing 1, but with 
only one tape routine. The out- 



of-memory error went away to 
plague someone else. 

Data Statements 

So what about data state- 
ments, you ask? As places to 
store information, data state- 
ments are gems. They load at 
the full 500 baud and they can be 
verified by a CLOAD. They do 
not, however, lend themselves 



to easy alteration. 

Since it is a part of the pro- 
gram, a data line must be al- 
tered through the editing func- 
tion. This involves stopping the 
program, entering the Edit 
mode, deleting the old data, and 
inserting the new. It the data is 
frequently updated this rapidly 
becomes a source ot potential 
error. And, if the program is to be 
run by persons with little train- 
ing in programming, chaos wilt 
probably result. 

But if the program could be in- 
duced to find the appropriate 
data statement, the updated 
data could t>e POKEd to replace 
the old, and the program re- 
saved and verified. We only 
need to know how information is 
stored in a data statement- 
Data statements are no dif- 
ferent from other lines in the 
layout of pointers and line num- 
bers. Some judicious PEEKing 
about in a sample data line 
shows that numerical data is 
stored as ASCII codes instead 
of the actual value, presumably 
to save space. 

For whatever reason it is done 
that way, ASCII representation 
means that we can mimic a data 



line with the string functions. If 
there is room enough in the data 
line, this string of data can be 
simply POKEd into it following 
the data token of one character 
at a time by using the MID$ func- 
tion of Level II BASIC. 

For those not familiar with it, 
MID$(L$,X,Y) returns a string of 
length Y, beginning witti the 
character in position X of L$. in 
Listing 4. we use MI0$(P$.X,1) 
which returns the character at 
position X in P$. 

Our approach is to first verify 
that there is enough room in the 
data line to contain the new in- 
formation. You must leave 
enough room by spacing past 
the least data element when wir- 
ing the line. POKEing new data 
into the final zero and the follow- 
ing line pointers will result in un- 
told unpleasantness. If enough 
room is available, we will clear 
all addresses following the data 
token except that final zero by 
POKEing an ASCII blank (32) into 
each address. This removes the 
old data. Next, we convert our 
new data from numerical form 
to strings using the STR$ func- 
tion. The string representations 
of our numbers will then be con- 



18000 INPUT-LINE NUMBER SOUGHT' :R:N=PEEK ( 1 71 29) tPEEK ( 17138) '256 
IBBIB (il»PEER(N-i3)*256*PEEK(H + 2) 

1BB2B IF NOT Nl-R THEN N=PEeK ( N*l) •256*PEEK ( N) jGOTOlBBl 8 
10030 PRINT'TOKEK FOUND AT" ;Nt 4; 'CODED* ; PEEK (N+4) ;GOTOie000 
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♦ HARNESS* 

♦GREYHOUND* 
HANDICAPPING AIDS 

PUT fl COMPUTEH ON YOUR SIOl 

AND GET INTO THE WINNING 
HAeiT WITH rtrlMur iSOFTWant 
' / HANDICAPPING AIDS 

DBigned e«i:ius.vely fo. u«t «ilh 'TRS-SO IWodd I ni 
Pockei CcHnouiw vB'uonil, Mt Miwvi ou' MAHNESS (nd 
GREYHOUND sofI*».» rundicapping aMJt a.B The moo 
alvsnccd and um'uI lucti iv^on^i available invwheis. Aiih 
our lotlnate. YOU' home compuiei doei all olyoijr ditdculT 
ana ledioui harrlicBDOiifl chores qmckfy. eHofdeisly, and 
accu'aialy m Ihe Quiel and mmloit ot vour homa (or «iih 
*« pocket compuTar, take it to the track «ilh you. I Not 
•imply a m»tlietnaTical eietcise toot, taihef year) o1 rai«atch 
h»ue ffona into the development ot Thg algorilhms uied. 
OMigned for sbh al ope^atroo wnile iniuring a rnoit com 
Drehoniiva approach Both avli are available on csaatte and 
d'sk 15^" and 81 toimati and include a uMful aaiv-lorBad 
Usv't Manual INOTE In acMition to •THS-80'i IModel ( 
and Pocket Computeii, both lyiiem! «ta available m 
MBASIC-for -'CP/M), Requ«»i minimum 16K LeveJ 11 
Shop jfouiW-you can i beat the rtelMur valge-lbe mosi 
con aHaciive syitemi on the markei Ju« J 29 95 (or 
caswiie and 134.95 lot diW plui S1 00 toi- handling and 
shipping cntti ICalit add 6% ulei ia>l Save with the 
purchaie of two or more like syitemi. Deader diKOunts 
available. Allow three vueekt lot delrveiy 
Send Check, Money Order or requesi tor sOdiliorwl in'orma. 
lie '\ to 

WalMur of Calito'nia. Inc ^i^ 1 

P.O. Bo. M lie 

.CA 94537 

" "T'ide/narfc o* Oig.rdI Hoeaich Inc 



'T'iOfrntk n' Tar*Jv Co'O 



TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-state Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 N. Delsea Drive ^4io 
Vineland, N.J. 08360 
(609) 691-7100 



*"rRs— SO* 

OOLOF* 

lb<. Hewry Conversion Kit « 59.95 

32K. Hfiiory Conversion Kit 1119.95 

32K. Kit (for l&K.systei) % 59.95 

KIT Less Neiory (each) % 12.00 

Kits can be installed inside the 
COLOR COnPUTER nithin 15 linutes, 
co«s Kith Heiory Test Proqrai, 
and are cotpletely QUARANTEED 

CULPEPER CONPUTER DESIBNS 
502 SOUTH EAST STREET ^w 
CULPEPER, VIR8INIA 22701 
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n WEST COAST / EAST COAST Q 



EPSON MX-80 / 



INTERFACES: IEEE SS6. TR8-80 $35. 

APPLE INTERrACE ft CABLE tOO. 
R3-232 $70 



^. 




■PSON MX-aOFT 
MX-iOOFT 



9o90 




No SiDxhar^ fot Credit Cards OrdCT* 
An Equipmefit F«ctorv Knssh With MJ-l . Warmntv 



We Accep« C.O.D.s 

Stock Shipments Same Day or Next 



$20&g\ 

$2799 
$3195 
$2495 
$2485 
$ 399 
$ 529 
$769 
$1189 
$ 545 
$ 435 
$ 599 
$ 799 
$2975 
$1295 
$ 669 
$ 729 
$ 959 
$1225 
$1449 
$1090 
<1090 
$ 679 
$ 289 

$ as 

$3245 
$ 639 
$ 139 
$ 169 
$ 349 
$99.95 
$ 165 
$ 349 
$ 619 
$ 139 
$ 749 
$ 449 
$ 749 

$229^ 




I 



1 



ELEVIDEO 
OMMODOR 



ADIO SHA 






f 

PRICES 




ARESimmcr to change wrmouT notice. 



biAbLA ^0 

INTERTEC SUPERBRAIN 64K HAM 

QD SUPERBRAIN 

NEC 5510 SPtNWRITER 

NEC 5530 SPINWRITER 

OKIDATA MlCROLINE-80 

OKIDATA MICROLlNE-82 

OKIDATA MfCROL!NE-83 

APPLE li PLUS 48K 

APPLE DISK w/3 3 DOS Controller 

APPLE DISK w/o Controltef 

BASE tl PRINTER 

HAZELTINE M20 

NORTHSTAR HORIZON II 3a< OD 

ANADEX DP-9600 

TELEVIDE0 912C 

TELEVtDEO 920C 

TELEVIDEO 950 

CBM 8032 COMPUTER 

CBM 8050 DISK DRIVE 

CBM 4032 COMPUTER 

CBM 4040 DISK DRIVE 

CBM 4022 

CBM VIC-20 

CBMG2N 

RADIO SHACK II 64K 

RADIO SHACK III 16K 

LEEDEX/AMDEK lOT 

LEEDEX/AMDEK 100G 

LEEDEX/AMDEK COLOR-1 13' Color Monitor 

MICROTEK 16K RAMBOARD tOf Atari 

MICROTEK 32K 

ATARI 400 16K 

ATARI 825 PRINTER 

ATARI 850 INTERFACE 

or both together 
ATARI 810 DISK DRIVE 
ATARI 800 32K 

Csil fty price listed ATA Rl software 
NEC 12" MONITOR ^__^^^^__ 



1-80a-S3S-3581 

OMEGA SALES CO. 

■ 3533 Old Conejo Rd #102 

Newbury Park, CA 91320 

1-805-499-3678 

CA. TOLL FREE 1-800-322-1873 



flM 




OMEGA SALES CO 

12 Meeting St 

Cumberland, Rl 02864 

1-401-722-1027 



MPANY 




II you a ll>e to Inoa. NOW MIO^* IFi* O.Q gift 

Wilh PBOC*^ tlO VOU' IRS-BC* iOUO" JWIH cur 

p'oMb'I'W rneo'T lo pivdici Th« rflauiil ol iriil <v*«li ) D 
9«">es *nn -<,; PHOCAP 

■ QiySft O^IS'iSJVV Bna M1*nai<« llitn^ lor »v«ry 
NaI'DnaJ Fool&eli L«4gu« l»r" 

• Pr«cTicl4'H'*oeDl 'HLiiiB B'xl [>idO*&i* kCor« lor 

• Allowt compjl* maiciup o' ai^y iwo rB*m5 
IGiHI <Oi pllvO'O'l 

• G<vei uD-TO'i'^a-rThinbitB >Unr)ing». jlatiaTics 

■ no rtfing, (Of Mcn MFl DmliOr 

pnOCAP <t aa>y lo uie «^a comej ..in •.nr.i.ve ooci,'' 



Oi- 



r CBSSelTV h 



. M9 95 



NOW Uan*y Dtcli 



Tha Tptnrty Comput*' QfDUp « SoFTVIBrt Jtgvnl Publl>f>*F 



rn 



GET YOUR 
TRS-80 DIRECT 



FROM 



KUTHORino Radie /haek saies center 



FORT 
WORTH 



rUT-TTT-rui 

COMPUTERS 



AND 
VIDEO 



377PLA«HWY,377GRANBUflY 
fORT WORTH, TX 7e048 ^462 



AND SAVES 




Ge' ow Quote "bulom" you buy 

Full manufaclunn wurantmt 

T»t»a rtsidenta aM 4% m'm rtx 



817-573-4111 



COST OF CALL flEFUNOEO FOB ORDERS BY TELEPMOHE 



C- C- WRITER 

T R S - 8 Ot 

Col or Computer 

WORD PROCESS I r4G 

USER NODIflABLE EX. BASIC M/PA6E 
FORKATTINe, HOVE, TABS, DELETION 
INSERTION, BLOBAL SEARCH li EDIT 
CENTERIN8, INDENTIN6, PA6E PAUSE 
ASCII CODES, JUSTIFY, 32K OPTION 

POtlERFUL BUT SIMPLE TO USE 

THIS AD PREPARED MITH C.C.KRITER 

tTRS-80 is a TH of Tandy Corp. 

♦30 Check or M.O- to 
TRANSFORMATION TECH. 

194 Lockwood Ln- ^au 
Bloomingdale, IL60108 
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catenated into P$, with each 

item being followed by a com- 
ma. 

At this point, if we printed P$ 
we would see all our new data, 
looking for all the world like a 
data statement without the 
word data or a line number. We 
would also see an unnecessary 
trailing comma and leading 
blanks before all positive num- 
bers. Lines 10050 through 10090 
remove the comma at the end 
and the leading blanks that 
SIRS inserted in place of a sign. 
It's not necessary to do this, but 
it appeals to my aesthetic sen- 
sibilities. 

Our new string, P1$, is then 
scanned character by character 
and the ASCII value of each 
character is POKEd into suc- 



cessive addresses in the data 

line. 

The main body of Listing 4, lines 
10 through 100, reads 10 num- 
bers into array A, then doubles 
them. The original numbers, 
from data line 60, represent the 
original data. The doubled num- 
bers represent the updated 
data. All the action, of course, is 
in the subroutine beginning at 
line 10000. 

Running Listing 4 changes 
data line 60 so that it winds up 
containing the doubled data. A 
final prompt instructs the user 
to load a blank cassette, and the 
program CSAVEs itself under 
file name X. 

That's it, neighbors, the 
BASIC Zap; a way to make 
BASIC remedy itself.B 



IB ' DOCKET CONTROL VEHS . 4 , BX 16K LEVEL II BASIC 4/28/88 
20 REM • COPYRIGHT 1980 BY J. STEWART SCHNEIDER • 
30 CLEAR1500:Z8=3:Z9-38:DIM D(20B,2):DIM ATS { Z9) : DEFINTP ,C,X! DIH 
NS{20B)!DIM C(2B0,2j iF0R)( = BT0Z9!READATS(X) iNEXT:REM ** Z9 » I 
F ATTORNEYS +1 " 

40 UlS-"tl.l»*l';ll2S="tl.»ll":HDS-"INI>. NO. JUDCE/NO. ARRA 

IGNED B/P DUE TRIAL DATE =========================.==- 



50 J1S='|ASB.) ■:J2S="|SIN.)*tfiEM " JIS S J2S ARE THE JUDGES' NA 
MES 

6 ' TAPE I/O DRIVER 

70 TAPE*-l:CLS!lS-"READIKG! " : INPUT'REHIND DATA TAPE, PRESS PLAY 
ONLY, THEN TAP <ENTER> KEY" )AS:POKE17935 ,137 :POKE18106 , 137 : POKE 
18277, 137 :INPUT»-1,F:GOTO90 

80 INPUT'REWIND DATA TAPE, ERASE, PRESS PLAY & RECORD THEN TAP < 
ENTER>';AS;PRINT#-lrF 
90 TAPE%-TAPE%-l:CLS:PRINTe4B5, 'THERE ARE" ; F( "CASES IN THE FILE" 

100 FORX=lTOFSTEP7iPRINTe469,lSiX;"TO'iX+6 

110 PRINTI-1,D(X,1) ,D(X,21 ,D[X+1,1) ,D(X+1,2) ,D(Xt2,1) ,D{X*2,2) ,D 

IX + 3,1) ,D(X+3,2) ,D|X + 4,1) ,D(X + 4,2) ,D(X + 5,1) ,DlX+5,2) ,0(X-t-6,n ,DI 

Xt6,2) 

120 NEXTX 

13B FORX=lTOFSTEP7:PRINT^46 9,ISfX;"TO";X+6 

148 PfiINTI-l,C(X,l) ,C(X,21 ,C(X+1,1) ,C(X+1,2) ,CIX+3,1) ,C(X*2,2) ,C 

(X43,l) ,CIX+3,2) ,C[X+4,1) ,C(X+4,2] ,C(X+5,1) ,CIX*5,2) ,C(X+6,1) ,C( 

X+6,2) 

150 NEXTX 

160 FORX-lTOFSTEP7:PRINTe46 9,IS;X!"TO";X*6 

170 PRINT*- 1,NS(X) ,NS(X-tl) ,NSfX + 21 ,NS (X+3) ,NS (X + 4) ,NS (X-(5) ,NS (X+ 

61 

180 NEXTX:IF PEEK [ 17 935) -137 THEN POKE17935 ,178: P0KE18ia6 , 178: PO 

KE18277,178:IS="WRITING: " 
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10 CLS:CLEAR175 

20 DIM A(10) 

30 FOR X=1TO10 

40 READ A[X) 

50 NEXT X 

60 DATA 128,256,384,512,640,768,896,1024,1152,1280 

70 FORX=1TO10 

80 A|X)=A(X)*2 ' ■ 

90 NEXT 

100 GOSUB10000 

110 PRINT"DATA NOW UPDATED" 

120 LISTS0 

130 END 

10000 N=PEEK{i7130) •256+PEEK( 17129) 

10010 LN=PEEK[N+3)*256+PEEK[N+2) ilF LN>60 THEN STOP 

10020 IF LNO60 THEN N=PEEK [K+1 ) *256+PEEK (N) : GOTO10010 

10030 E-PEEK(N) +256*PEEK(N+l)-2!AV=E-N-5 

10040 PS=""!FORX-1TO10:PS=PS+STRS(A(X) )+",":NEXT 

10050 L=LEN(P$)-1 

10060 F0RX=1T0L 

10070 IF ASC[mDS(PS,X,l) )-32 THEN 10090 

10080 P1S=P1S+MIDS[PS,X,1) 

10090 NEXTX:L=LEN(P1S) !lF L>AVTHEN PRINT°TOO MUCH DATA"!STOP 

10100 FORX=N+5TOE:POKEX,32:NEXT 

10110 F0RX=1T0L 

10120 Q=ASC[MIDS(P1S,X,1) ) 

10130 P0KEX*N+5,Q 

10140 NEXTjRETUHH 
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UTILITY 



Hey all you heads, it's time to clean up your act! 



Head Bright 



Joseph Hesse 

353 West Church St. 

River Falls, Wl 54022 



Have you been getting 
more disk input/output er- 
rors recently? The problem may 
be due to a dirty read/write 
head in one of your disk drives. 
No matter how good your drives 
and diskettes are, if ttie fieads 
are dirty the signals to and from 
tfie computer will be affected. 

One way to clean tfie fieads 
is to partially disassemble tfie 
drive to expose tfie read/write 
head. This should only be done 
by a qualified tecfinician. 

Fortunately, there is a better 
way. Use a disk drive head 
cleaning diskette. It looks ex- 
actly like an ordinary diskette 
except it has a cleaning surface 
that rotates in place of the 
magnetic disk. Moisten the 
cleaning surface with the solu- 
tion that is supplied with the 
head cleaning diskette and in- 



sert it in the drive. Turn on the 
drive for about half a minute or 
so and that's it— the head is 
clean. 

Head cleaning diskettes are 
available in computer stores 
and are advertised in computer 
magazines. I use the 3M com- 
pany's (the Scotch tape people) 
diskette. It Is easy to apply the 
cleaning solution on those and 
there are printed boxes on the 
diskette that can be checked 
off after each use— up to 15. 

Suppose you have the 3M 
head cleaning diskette or a 
similar product. You moisten 
the cleaning surface and insert 
the diskette so that the ex- 
posed surface faces the red in- 
dicator light and is towards the 
rear of the drive. Now, we need 
a program to get the disk drive 
motor to turn on and the head 
to load against the cleaning 
surface. 

The Head Cleaning Program 

Carefully key in the following 
Basic program. Run the pro- 
gram; it will ask which drive you 
want to use. At this point you 
should take the diskettes out of 
every drive that you plan to 



clean. Now enter the appropri- 
ate drive number (0,1,2,3). The 
program will prompt you to in- 
sert the moistened cleaning disk- 
ette and (enter). 

To use the cleaning surface 
most effectively, the program 
starts the head at the outer- 
most track and moves it toward 
the center. While the head is be- 
ing cleaned, the program tells 
you what track the head is over. 
After the head is cleaned, you 



have the option of startmg over 
so that another head may be 
cleaned. 

The program listing is for a 
TRS-80 with two drives. If you 
have three or four drives 
change the value of N in line 
130 to 3 or 4 and change the 
prompting message in line 160. 
It you have only one drive, 
delete lines 160 through 190 
and change line 130 to read 130 
N = 2 :T = 0: D = 1. ■ 



100 REM DISK HEAD CLEANING PROGRAM FOR TRS-8fl MODEL :. 

110 REM TO BE USED WITH 3M HEAD CLEANING DISKETTE OB SIMILAR PRO 

DUCT. 

12B DEFINT A-Z 

110 W=2 ; T'0 

140 CLS ; PRINT CHRS(231 ; 

IS3 PRINTglSe,""* DISK HEAD CLEAN "" ; PRINT 

160 LINE INPUT'WHICH DRIVE? (B,l) "jAS : PRINT 

!7B IF LEN1AS)-B OR LEN(AS1>1 THEN GOTO 150 

180 D=ASC(AS5-4a ; IF 0<» OR D>S-1 THEN GOTO 15B 

19B 0'=INT(2iD ■■ 0.5) : REM 1-UP ARROW 

208 PRINT-INSERT CLEANING DISKETTE, THEN" : PRINT* PRESS EHTEB." 



2ie 
220 

230 
2ie 
250 
260 
270 
280 
290 
3B0 
31B 
J2B 
33B 
340 



AS=INK£VS : IF AS<>CHRS{131 THEN GOTO 210 

POKE 143B4,D 

POKE 14316,3 : GOSUB 348 

PRINTe576,"HEAD OVER TRACK" ;P£EK ( 143111 

FOR J-1 TO 9fl : POKE 143B4,D : NEXT J 

IF T=34 THEN GOTO 290 

POKE 14316,83 ; GOSUB 34B 

T-T*l : GOTO 240 

IF (PEEK(143I6I AND 12B10128 THEN GOTO 290 

PRINTS704 , "REPEAT PROGRAM? [Y OR N) " 

AS = INKEYS -. IF A$ = " THEN GOTO 310 

IF AS-'f THEN GOTO 130 

IF AS-"N" THEN END ELSE GOTO 31B 

IF (PEEK114316) AND 1)"] THEN GOTO 340 ELSE RETURN 



Program Listing 1 
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Iducation 



This program is like a game. 



Analogies 




Damon L Spencer 

33 Steppingstone Road 

Dover. NH 03820 



gram that combines the speed 
of a computer with the logistics 
of analogy quizzes. ANALO-80 



allows a teacher (or anyone 
else), to create a module con- 
taining a set of 20 analogies 



and present them to a student, 
friend, etc. The program ran- 
domly selects an analogy from 



I'm a high school student at 
Oyster River in Durham, NH. 
At our school, we have a small 
computer room containing a 
single Level II 16K TRS-80, and 
a dual terminal 8K PDP-8/E mini 
for beginners. 

Lisa Ogden, a senior, de- 
veloped an educational, hands- 
on Basic computer literacy 
course, and ran it using select 
students from the fourth grade 
of an elementary school. 

ANALO-80 is a program I 
created to aid in the education 
of these students. 

ANALO-80 is a Basic pro- 



Program Listing 



10 CLSiRESTORE 

15 DIM B2(20} 

20 FOR V3=15360TO16383 

30 POKEV3,191 

40 NEXTV3 

50 F0RA1=1T0126 

60 RESET(A1,1) :RESET(A1,46) 

70 NEXTAl 

80 FORA2=lT046 

90 RESET(2,A2) :RESET(3,A2) :RESET(124,A2) :RESET(125 ,A2) 

100 NEXTA2 

110 PRINT@347, "ANALOGY #1"; 

120 FORA3=1TO500:NEXTA3 

130 PRINT@409, "CUSTOM MADE FOR" ; 

140 FORA3=1TO500:NEXTA3 

150 PRINT@471,"MASTWAY ELEMENTARY" j i 

160 FORA3=1TO500:NEXTA3 

170 PRINT@536,"BY DAMON SPENCER"; 



Program continues 
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the module, records Its code 

number, and presents the 
analogy to the user. The user 
selects what he or she thinks is 
the correct answer (from a 
group of four displayed), and in- 
puts the corresponding letter. 
The computer checks the in- 
putted answer against its 
record of proper answers, then 
places the following display at 
the bottom of the video 
monitor: Right = 1 Wrong = 0. 

If the inputted answer is cor- 
rect, "Right" will flash seven 
times. If the answer is Incor- 
rect, "Wrong" will flash. 

As analogies are presented, 
the code number for that 
analogy Is recorded. As each 
analogy Is brought out of the 
module, its code is checked to 
the list of previously picked 
analogies. This subroutine 
assures that no analogy is used 
twice, and that the sequence in 
which the analogies are 
displayed is random. 

After all analogies have been 
presented, the computer clears 
the screen and draws a bar 
graph which shows the user's 
score against the best possible 
score. 

Some unique features which 
could be added to ANALO-80 
are: 



• a subroutine to allow tHe creation, 
saving and loading of individual 
modules wittioul reloading ihe entire 
base. This subroutine would involve 
the use of the 'Print « -V and 'Input # 
-1' commands. 

• the For. , .Next ioops which regulate 
the iength of the moduies can be 
changed to ailow tor longer or shorter 
modules. This can be especially useful 
it used in conjunction with the above 
feature, whereas the length ol the 
module being inputted is given as the 
first piece ot data from the load off the 
cassette. 

• The user can be given more than 
one chance to guess the correct 
answer if the first answer was wrong. 



DATA #17 
PROBLEM #5 

WING IS TO BIRD AS FIN IS TO 

A) SHIP 

B) ROBIN 

C) WATER 

D) FISH 
ANSWER? 



RiGHT = 3 



WRONG =1 



Fig. 1. 



* scores may be saved on a data 
cassette so that a teacher may plot 
the students' advancement. 



Fig. 1 shows the video mon- 
itor display during an analogy. 
Fig. 2 shows how to organize a 
module and individual an- 
alogies so the computer can 
read them. This is a bare listing 
without any of the above fea- 
tures added. I leave the chal- 
lenge to you. 

If you discover another 
feature or have any ideas about 
this program, I would appre- 
ciate a listing or a taped copy 
so that I may keep up with new 



versions of ANALO-80. I would 
also appreciate other educa- 



tional programs to use m our 
computer literacy program. ■ 



200 DATA "WING IS TO BIRD AS FIN IS TO,. '/'A) SHIP',"B) ROBIN'-.-C) 

WATER","D) FISH","D" 

Explanation: Data iine 2130 contains one analogy of the module (In ttiis case, 
analogy 5— see sample 1). The first piece of data is the unfinished 
analogy. The second piece of data contains choice A, etc. The last 
piece ot data (in this case 'D') is the correct answer to the analpgy 
The answer to the analogy on line 200 would be FISH (D). 
Only one analogy, complete with choices and answer should be 
on each program line. This allows you to quickly correct a mistake 
without searching through piles of data. It, while running 
ANALD-80, you see an error in the presentation or answer, quickly 
look at the screen and )ot down the Data Number. Break out of the 
program, list it, and when you come to the data section, simply 
count down the appropriate number ot lines to the analogy. 

Fig. 2 



Word Processing? You need a 

SPELLING CHECKER 



This is 3n exawle of 3 t,e^;i, beiriQ checked by 

HEXSPELL. The te;;t scrolls up the screen as it is checked. When 
3n error is detected, you h3ve three choices. 

1) REPLACE the incorrect word. The replscenent word 
is INSTANTLY RE-CHECKED for correctness, then inserted in the 
te;d. 

2) The word is correct, leave it as it is. 

3) Leave the word as it is, AND tell HEXSF-ELL to 
LEAF:N this word for future reference, with just one keystroke. 

YoLT doci.ifienl is ready to print as soon as HEXSFtLL 
is finished. The word in error e.g. « 



WORD IN ERfyjRl nisstak.e 

CONTINUATION '. is shown in conte;d, including coritinuation 

press: R) REPLACE WORD S) LEAVE AS IS L) LEARN WORD 



Hexep^LL 

zaps those sftaeky- typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct' When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with roonn for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete ne w langu age. 
Programs, wordllst & manual $69US. Manual only $12. "^^ ^M|| 

Reauires 48K TRS-80 Mod I with 2 Drive & TRSDOS. I^"-^ ■ ^^^ 

Tested against Scripsit & Electric Pencil, should work witti most word processors. 



TRS-80, Scnpsil aie trademarks of Tandy Corp. 

Electric PencU is a trademark oi fifllchael Shiayer Software. 




HeXAOON 

evereMS 



PO. Box 397, Station A '^\2b 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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/ MODEL III V, 

TAPE EDITOR/ASSEMBLER 

^n Radio S'ldcK E Tape Editor/Assembler 
■flfliTASM) for Model I on We Model III using our 
A.=^-PTCri Sirnplv Icwl ;:DTASM, then load A5PTCH 
arc riji, ;singk' load possible]. All F.DTASM leatures 
supporlPd plus. 

■ FulI Model I source tape compatibility. 

■ AssemOle directly to memory' or to tape, 

■ i:xecute your object and return to EDTASM. 

■ Cfiange cassette speed while in EDTASM. 

■ Verify source tape after W command. 

■ Display and edit memory. 

■ Recover from reset witbout tape re-load. 

Requires TRS-80" Model III 16K and up. Also 
available Model I ASPTCH (specify) and other Model 
111 software products. 

Sendcheckor money orderfor S17.95 for ASPTCH 

tape and detailed instructions to. 

BYTE MISER SOFTWARE 

720 W. Haven Blvd. 
RockyMt..N.C. 27801 v-455 

y 'TRS-80 IS a trademark of TANDY corp > 



V. CHURCH DONATIONS 

^■^■^ TRS-80 MODELS I &- II 

Manages, stores and reports on the 
offerings made by a church congrega- 
tion. 

Model 1 handles up to 1000 members 
and 4 categories of offerings. Operates 
under TRSIXIS 2,3 or Newdos- $ I 25.00, 

Model II handles up to 3000 members 
and I 5 categories of offerings. Includes 
Mailing list and operates under TRSDOS 
2,0. $175,00, 

CUSTOM DATA 

P.O, Box 1066 
Alamogordo, NM 883 1 
Phone (505) 434-1096 

,.'412 



TRS-80* COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 
(Quantity Discounts Available) 

Eigen -^'^ 

Systems P- O. Box 10234 

Austin, Texas 78766 
(512) 837-4665 

—Assembly Language Rom Cartridges 
—Custom Programming Services 
TRS*-80 is a rademark of Tandy Corp. 



Progiarn continued 

180 FORA3=1TO500:NEXTA3 

190 PRINT@606,"ORHS"; 

200 FORA3=1TO1200:NEXTA3 

210 CLS 

220 PRINT@465, "SEE TEACHER FOR INSTRUCTIONS" 

230 FORA4=1TO1100:NEXTA4 

240 CLS 

250 PRINT"HELLO !! WHAT IS YOUR NAME ";:INPUTA$ 

260 CLS:PRINT"THANK YOU ";A$;" I! LET'S START... 

NEXT 

270 CLS 

275 FOR B=l TO 20 

277 RESTORE 

280 IF B=20 THEN 289 

285 GOTO 305 

289 X=0 

290 FOR Bl=l TO 20 

295 IF B2(B1}<>B1 THEN C1=B1 

300 NEXT BliGOTO 330 

305 LET Cl=INT(RND(19)-fl) 

306 IF Cl>20 OB CKl THEN 305 
310 IF B2(C1)>0 THEN 305 

320 B2(C1)=C1 

330 FOR K=0 TO (Cl-1) 

335 READ D1$,D2$,D3S,D45,D5S,D6$ 

340 NEXT K 

365 READ E1$,E2$,E3$,E4S,E5S,E6S 

390 PRINT@0, "PROBLEM # " ; B 

400 PRINT@64,"DATA #",•01 

403 J7=64-LEN(E1$) 

404 J8=FIX(J7/2) 

405 J9=J8+191 
410 PRINT@J9,E15 
420 PRINT§330,E25 

430 
440 
450 
460 
470 
471 
475 
480 
490 
500 
510 
520 
530 
550 
560 
570 
580 
590 
610 
620 
630 
633 
635 



iFORX=lTO800; 



PRINT@394,E3$ 

PRINT@458,E4S 

PRINT@522,E5S 

INPUT"YOUR ANSWER ";E7$ 

IF E7$=E65 THEN M=K+1 ELSE N=N+1 

G05UB 640 

E7$="" 

CLS:NEXTB 

CLS:PRINT@470,"AND NOW YOUR SCORE,,." 

F0RX=1T011 00 : NEXTX 

CLS 

PRINT@20,A$;"'S GRAPHIC RESULTS" 

PRINT@840,"RIGHT=";H:PRINT@860,"WRONG=";N 

PRINT@434,"B":PRINTe498,"E":PRINT@562,"S" 

PRINT@626,"T" 

FORX=0TO102:SET{X,12) :SET(X,35) :NEXTX 

FORY=13TO17:SET(101,Y) :SET(102,Y) :NEXTY 

FORY=34TO30STEP-1:SET(101,Y) :SET(102,Y) :NEXTY 

FORX=0TO{ (M*5)-2) 

SET(X,21) :SET(X,22) :SET(X,23) 

NEXT X 

FOR T=l TO 2000:NEXT T 

GOTO 900 

640 GOSUB 650 

641 IF E7S=E6$ THEN GOSUB643 ELSE GOSUB646 

642 RETURN 

643 FOR V9=l TO 9:PRINT@840, " 

644 FOR V6=l TO 040:NEXTV6 : PRINT@840 , "RIGHT" 

645 FOR V6=l TO 040:NEXTV6:NEXT V9:RETURN 

646 F0RV9=1 TO 9:PRINT@860 , " " 

647 FORV6=1TO040:NEXTV6:PRINT@860, "WRONG" 

648 F0RV6=1 TO 040 :NEXTV6 :NEXTV9:RETURN 

650 PRINT@840,"RIGHT=";H:PRINT@860,"WRONG=";N: RETURN 

660 PRINT§867,"<ENTER> WHEN READY:"; 

670 IFINKEY$=""THEN670 

680 CLS:GOTO2000 

690 DATA "","", ""^nn,--^"" 

700 DATA "FLY IS TO SPIDER AS HOUSE IS TO", "A) RODENT", 
"B) CAT","C) RAT","D) ANIMAL", "B" 

"LOUD IS TO THUNDER AS LARGE IS TO", "A) MONKEY", 
"B) MIDGET", "O WHALE", "D) COAL","C" 
DATA "PETAL IS TO FLOWER AS FUR IS TO", "A) COAT", 

"B) RABBIT", "O WARM","D) WOMAN", "B" 
DATA "WEEK IS TO DAY AS DAY IS TO", "A) MONTH", 
"B) SECOND", "O HOUR","D) NIGHT", "C" 

AIR IS TO SUFFOCATION AS FOOD IS TO" , "A) STARVATION' 
'B) INDEGESTION","C) ENERGY", "D) LIFE", "A" 



710 DATA 

720 

730 

740 DATA 



Program continues 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



Color Computer 

4K Level I $329 

16KLevellS439 

16K Extended Basic S4B9 



With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 



Expansion Interfaces 

Zero K Interface $254 With TCS Memory: 

16K Interlace $359 16K Interface $318 

32K Interface $469 32K Interface $388 



Pocket Computer & *^; 
Interface $ Caii toil tree 



(II Ridid Sntcli cixnpunn ind KCMMr 

nunMi of ottiti Vtni compvUf itim 

CiK tn lor TM( WKifK iwMt t«d i*t I COM «l iw 



Epson MX-80 
$Call 

SOFTWARE 

MACPLUS UI.I5 

An Editor & Macro Assemblor 
for Model III 

Wl SUDQly MKftti tor tht Macro AittrnDIr to 
mjk«itlullyop«''>tlvianth« Model III Ourntwtdltor 
\K\uiH virtjllly ill tht luturit Of Rtdio SUck'i 
SCRIPSIT Dius lf«*« 'Mtuni "(llrKi mtry of 
gnpnics. ajto tiD tiv int«rmg Aitimtily linguist 
Iritruciion. imMaaififl ot comminOi tof luitlllci- 
Hot. cintiring, rmrgm coil'Ol. ctunai print typis 
withm 1B»1. »tc Alio mciuaM on fhi dlik ir« 
FHM/CMD ■ Prlnti (ormiiid zoqin of your Oocj- 
nunl to your s[)«cl(tcilloni or your imin oi flumB 
Dflnlgr 

MODIFT/CMD - A utility wti^h allows isMmcily 
Unguagt BroO'if" rnofliflcatlon from oalcnw a»lln- 
Mir an ASCII [)atot>tll*. 

MAC/IM - A Bailc program cortammg savorji 
utiiiii» to aiQ ir tnt prapintion oi sourca tUBS 

Thost atlcrlMd itKNt irQ Stvgn othtr complata 
programs rrulu inis i" ncallani vaiua P1m»« 
sptclty Model i or m lyitim 

Holt: Vou rrust travi. or purchase the Model I 
Mlcrosott Macro Assembler Package (Cal 
#26-2202) irom Radio Shack II you flont ilruQy 
mvt mis Hem we areoftermg It at a special sale price 
m comBinatloti vntn the sofNiari package Oescnbed 
atKrvg Call tor intormatior> ar^d our Km sale price 



ZAPIIIS1B.95 

A super ;ap tor ttie Model IN giving tull sector arwl 
track access to any pan ol the TRSDOS diskenes 
Jumps t)y tracks or seclorj throughout the disk 
Automalicaliy goes to directory sectors of any disk 
with |ust one keystroke Instant comparing ot the 
same sectors on aittereni disks Full menus, lists, 
and descriptMDns of commands are availaBle at any 
point Just press clear and all commands and their 
descriptions are listed Copy disk sectors modit> 
sectors toggle iwtween nei and ascii input ol 
cfuracters as you modify 

Ttiis disk also inciuOes COfTIT/CHO a utmiy 
program allow™ the purchaser to make more than 
two Back-up copies of SCRlPTSIT or VISICALC tor 
private use Good insurance tor your valuaBle pro- 
grams 

Special teaiure tt>e documentation mciuoes a 
complete map ol the location ot all System Files on the 
Model III TRSDOSflisketlBs Various patchesalsom- 
cludedtooelndolerrofsinTBSDOSi lar>dl 2sucB 
as tne rryslefious EOF set to on coping of tiles This 
isamust purchase atSl9 9b 

MACPLUS-2 S39.t5 

A MacroAssembler Utility Kit. 

Five programs tor one low price 
HUN/CMD - A macro command processor 
SCMEN/CMB - Save video screen images to 
disk 

MLKATE/CMD - Allows dynamic rekxatlon of 
orogram 

PKMAC/CMD - Creates a screen ol information that 
can tie converieo to an assembly language rrxxlule 
anO then used to pnnl tne screen 
PKUt/CMO - Does the same but converts to a 
BASIC Program Module Create* screens, menus, 
prompts, graphics, fast Its like gening SCBIPTSIT 
lor hal price with other items and patches thrown in 
free . 

Specity Model I or ill OsJ >^ 



Letlflr quality matrii similar to Lirt« Printer IV & 
C^ritrortce onnler but has lull software control ol 
*0. 80 66 or 132 columns 80 Cps Didirectional 
tractor imd rjiepoubisprinti^aad $300 less thgr^ 
r>«arest compftilrvfl printer LialS (645 Our once 
inc.,<J..caCla EPSOM MX-IO 

PRINTER DISKETTE 
A complete Oiskelte with 6 complete hies for use 
with your Epson MX-M Printer 
ready to use 

M/CIIO- Send all of the Epson Printer commands 
to the printer directly from DOS or as part of an auto 
booting system Set up the pnnler Irom DOS to the 
lypestyie you want, then run me program 

■ IDLtTT/BM - Produce largi graphic letters on 
your printer and screen Dump the letters to pnnier or 
to disk Allows 3 different size letters to the printer 
Program IS menu driven Voumiyaleoconstructlaroe 
letter titles for MEBGEIng into your basic prognm 

EPtON/lUB ' Merge Ihis sn^all module into any 
Basic program and man issue any of the printer com- 
manfli with a 2 letter command with letters represen- 
ting the purpose ol the comn^and Vou need not rifer 
back and forth to dxun^entalKwi Extremely easy to 
use ar>d makes using the printer much easier than 
ever Before 

JKl MTCM ■ This palChBS NEWOOS 2 i and 
NEWOOS ao so thai the JKL function will print the 
TRS80 graphics while the primer remains in the stan- 
dard mode ralhr than the TBS80 mode This allows 
all of the teaturts ol the printer to De useO Dui you can 
dump the screen id the prmter at any time with all 
graphics 

DEMO/US - A super tutorial program with hun- 
dreds ol REMs and hundreds of screen prompts that 
teach you how easy it is to creaia miracles wnn your 
Epson MXBO printer 

AUTICtE - A complete artici! about the Epson 
MX80 with all sorts Of tips, concepts, etc lor getting 
the most out of your printer The informalion tor 
creating scheduling forms is a must lor many oi you 
DEFSTATE/SUB - A series ol one word printer 
commands that can be merged into any Basic Pro- 
grams that allow various automatic lunclions to oc 
cur Print titles with graphic tiorOirs around them 
with one word Center any leil with one comniano 

"^Special Price All seven of the above 
modules on one diskette or on tape ( less 
JKL) lor your Model I or III for only 

S28.S5 

Or,fakea$10discountifyoubuyttiis 

item witfi a purcfiase of the Epson 
MX-80 



Trie DOS Disk Librai^ ol Programs 



MM w «IH W — t ■'■■■■1 




mutt a ■*)■•■ 1 >• Mil 



m.M lor all b programs 



AO 



."Oa^ 



Printers 

Daisy Wheel II 

$1695 



9^^ ^ 






A®' 



^w 



\©' 



'^ \> 



v6 



>^'" %' 



^^-A 



,nO>' 



%^- 



TEXAS COMPUTER SYSTEMS 



Off«n Lowatt Price* on 



COMPUTERS 




Model II 64K 
$3349 

An oitrtent arvuM If your busress needs Easy eiqMndace- 
tlionvMitr, No nrnaiocetaWriranrg needed Alacass- 
ones avaiaM ask eipansions prmiets solTware jk ojr Cw 
dBcninipncss Our taslCBtaartreqh'servcecaiiassmrTVGl 
it fc^ ^i witr«i sevvn days after patmer* s ncv«] 

Ftm wth purchm; 

1 boicf 10 doulM dersiv 
Oskenes a K9 </*m 



SUGART DISK EXPANSION for the MODEL II 

Uses the same reliaOie drive units found in the Model ll CPU itseil Allows matched drives for reliaWe 
Operations Fast access lime unoer CP/M or TRSDOS FuHy compaiaBie with an exrstmg software 
Ready lights ilww disk activity Silver/ Black pami matches Modem the best Or ives available tor leei. 

1 Drive, Single Cabinet tS49 2 Drives, Tripte Cabinet $1424 
1 Drive, Triple Cabinet $B49 3 Drives. Triple Cabinet $1899 
Extra Drives $475 



CORVUS HARD DISKS for the TRS-80 SCall 



MICROSOFT 

UllC-N - Extended disk Base, long vanaoie 

names. chaining variaBle length rKOrfls ANSlcom- 
palaQle interpretative version tZH W/minaat. 
130 menuii only- 

lAIIC COMPILED - Same Basic language as 
aASlC-80 9>cepl cornpiles Basic program into a 
Olrecity executable reiocataOle machine language 
lite Operates 3 to 10 times taster than regular Basic 
Includes Macro-ai] Assemoier Specify CfU or 
TRSDOS U2S w/mHual-IMmtnualDifhr 



FOdTPUm-M Suopor'sAiNSi 66 plus many e< 
tensions ■ncluding MACRO 80 Has iiBrary wiin 
manags' reiocaiatjie oDieci como'ier anO imung 
loade- t4(M w/manuel- tMrninuaiofUv- 
COIOL-lD-versiiiiitygivesLeveii ANSiandmcst 
ol Level 2 unovis comoiere seoueniiji reiaiiveand 
inoeied tile icODO't ^iit' uariaaie iiie names 

STRING UNSTRING COMPUTE VARYING/ UNTIL 
EXTEND CALL COPv SEARCH 3 dimersional ar- 
rays con-pounosnaaBOreuiatM canOiiions nested 
■F mteratlive screen naidimg e>iensions Com- 
paiaPie assemier iini.ing loade- and reiocjiaOle 
iiprary manager t97S w/manui! (30 maiMal 
on If- 



Special— With TCS Memory 
^ Model III 48K 2 Disks 

Uses proven MPI drtves tiwdrlied tor flippy Operation and 
Percom ciwlroltet Lmited 90 day warranty Can (or 
details 



$1895 



Model III 16K $849 

Model 111 32K $979 
Model 111 48K $1089 



With TCS Memory: 
Model III 32K $909 
Model HI 48K $969 



Model 111 32K 2 Disk RS232 $2100 
Model 111 48K 2 Disk RS232 $2230 
Model 111 32K1 Disk $1729 

Model III 48K1 Disk $1849 




■ Payment MooeyOrder Cairwer s Check. Certrtied 
Check Personal chacks lake 3 wks VISA. MC. 
acM3S 



> Prices suOiect to change any time 

■ Nota> oui-oi-state TeunsaddSS 
• Delivery subfect to avaiiahlity 

> Shipping e>tri. quoted by phone 



TEXAS COMPUTER SYSTEMS 

Box 951, Brady Texas 76825 

For fast, etiiciflnt service, we can air treighl from Dallas 
to major a/p near you Call for inlormation 

Toll Free Number 800-351-1473 

Texas Residents 915-597-0673' 



►-•25 



THEN 

ENLARGE 



IS YOUR MICRO TOO ■ 



^'lO 




WITH 



S-100! 



/jhytneS JOOOttt 696 J , Bus SJanaafd"- 

• II Villi hjtri yooi MICRO inK a O 'Tlpulef W'ltl ihn 

capab'iuy oi ^ MINI. 

• vou arid ai much UEUOflY as "f*"!ea (ada i 

2 :.,< mo'c 6'tK RAM iMaras} 



Aaaaocvo' :q'.-- /.><i ,<:, i-'kiC" HARD •>' nop 
W asc CAPACITY .)i you '"-i'd 



Am a ri'Qri at'-^ fi COLOR-GRAPHICS f r : 
ana mui.h MORE' 

riese Oo^'os /us' PLUG INTO yow system 
PIOVI0O0 yihj have an S-100 -"?->'-,-!'"'= .in.; 
an tnjfflscf a<i:.ipici '''-^'' ComPuTTrWiT 

roJ rflS-»Pe/S. )/'■(>' s 

hiom $9'y iii^iniiivf, liom $JiO Caraiog J' 
(reluridfi.1 Milh iii'I'-ii 









1.0MPUTER Wit ^im 

incohpoba rtD 

b620 'ye'^ Slierl S.W, 

LynnMood Wait'inglor' 98036 

12061 '43-4336 
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Piogiam contimica 



750 DATA "CALF IS TO COW AS CUB IS TO', "A) SCOUT", "B) BEAR", 

■C) BABY","D) WOODS", "B" 
760 DATA "SUMHER IS TO WINTER AS EVENING IS TO", "A) SUHSET" , 

"B) COOLNESS", "O MORNING", "D) DARKNESS" , "C" 
770 DATA "WORDS IS TO BOOK AS NOTES IS TO", "A) PIANO", 

"B) SONG","C) SCULPTURE", "D) FRAGNANCE" ,"B" 
780 DATA "FISH IS TO FINS AS BIRD IS TO", "A) FLY","B) FEATHER" 
, "O WINGS", "D) PIGEON", "C" 

79e DATA "PIPE IS TO PLUMBER AS BOARD IS TO", "A) MECHANIC", 

"B) PROPELLER", "C) CARPENTER" ,"D) LACQUER", "C" 
600 DATA "WIRE IS TO ELECTRICITY AS PIPE IS TO", "A) PEANUTS", 

"B) OPERATION", "O ROUND", "D) WATER", "D" 
810 DATA "HORSE IS TO HERD AS MOUNTAIN IS TO", "A) VOLCANOE", 

"B) ROCK","C) HILL","D) RANGE", "D" 
820 DATA "SINKS IS TO ROCK AS FLOATS IS TO", "ft) LIGHT", 

"B) WOOD","C) FLIES", "D) DROWNS", "B" 
830 DATA "PARACHUTE IS TO PLANE AS LIFE PRESERVER IS TO", 

"A) FISH","B) BOAT","C) WATER", "D) CHEST", "B" 
840 DATA "ACT IS TO PLAY AS CHAPTER IS TO", "A) PAGE", 

"B) BOOK","C) LIBRARY", "D) TITLE", "B" 
850 DATA "TRAIN IS TO LAND AS STEAMSHIP IS TO", "A) LANE", 

"B) OCEAN", "O PLANET", "D) CAPTAIN", "B" 
860 DATA "PIPE IS TO WATER AS ARTERIES IS TO", "A) VEINS", 

"B) BLOOD", "C) BOILER", "D) HEART", "B" 
870 DATA "COUNTRY IS TO ARGENTINA AS STATE IS TO", "A) EARTH", 

"B) ASIA","C) BOSTON", "D) IDAHO", "D" 
880 DATA "MONTH IS TO MARCH AS SEASON IS TO", "A) MAY", 

"B) KNOW","C) SPRING", "D) FLOWERS", "C" 
890 DATA "SUBMARINE IS TO PISH AS AIRPLANE IS TO", "A) AQUARIUM 

","B) BIRD","C) WING","D) HANGER", "B" 
900 CLS: RESTORE: CLEAR 

910 PRINTe465,"TO PLAY AGAIN, TYPE: RUN" 
920 PR! NT: PRINT: PRINT: PRINT: PRINT: END 
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TRS-80 Model I. II. Ill 

Five niuHtple legression ptocedutes 
(including slepwise, backwdrd elimination, all 
subse!, and (idge|, 24 tfansformations, com- 
prehensive dala base managef <wilh search 
and sort), descriplive sidtislics, hypothesis 
lesling (7 lestsi, time series analysis <7 
models), random vanale generation, disciele 
piobabilily dislnbiilions, sampling dislnbu- 
tions, nonpaiarnelrics (5 lesls), and com- 
plele documenlaliort 

Complete package with manual — $125 

To order, yend payrnenl plus $2.00 shipping 
and handling !o 

Qnant Systenu ^.v 

P O Box 628 

Charleston, S.C 29402 

803-571-2825 

S C residenis add 4% sales lax 

O/efseas orders add $7 (or shipping 



FREE your keyboard — interact directly with the"^* 
screen. Why waste time typing? Use a 3-G Light Pen. 



I In riis Business. Al ZpnKer ol Zenker 
Oenlat Idbs in Penndel. Peinsytvania 
uses DU' pens lor dal* 8nl,y. Larry 
GooOman ol Lowed. Massacltusei I s 
uses I he p<>n 10 s«lecl laltptione 
numtMfs to be dialed Oy his corriiiiitor 
IhofwakI Esbensen ol MicroEd, Iric in 
Mmotfjpoiis. Minnesola writes MucS' 
lion sollwaie lur the 3G t'q'n' Pen 
SwiS5 An Oiswli,'! al Kennedy Aiipoil 
in New York uses oui pen^ lo speed up 
Its busineis opwrations. Or Ricdard 
Kerns ol East Cdruiiid Unneisriy in 
COpOrales our pen in a Jomonstralinn 
wilh a voice synihesijcr 10 leach ins 
students ho* ID use compilers in Moi 
land, Johan Smilde uses a 3 G Light Pen 
10 eipenmeni wiih giaphics. 

Inese people have discovered iheDe 
noMs Ol using a 3G Ligni Pen 
Would" I a 3-G Light Pen mahe your 
^yslem rnoie versaMe anci more Tunc 
iionj'^ »es or course il would' 

Ooh'l VWail — Older your pen today jno 
receive 

1| 3G Light Pen 

2> Demonsrrarion cassettes (.vilh 

P'Olessioiial TRS-80. PET and 

Applet 
.T> Sjitiple program listing 
4) Complete documentation aro 

inslruclions 
51 Olhei light Pen sollwa'f 3'>d 

games avaitabte 

NO ASSEMBLY NECESSARY READY 
TO PLUG IN AND USE. 

Complete documentation so you tan 
*rile your own progiam in BASIC No 
riijj time language coding necn-^sary 

All i G Rrotes'^ini.al moaeis plug into 
machine pons Economy model plugs 
into cassette and ballenes are in- 
cluded 

D€ALEn PACKAGE AVAILABLE 
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3-G Company. Inc. D«pl. mm 
ni. 3, Boi 2tA, Gaston. OR 97i 19 
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UTILITY 



Create Basic data statements from object code disk files. 



Dateline 80 



Richard A. Press, MD. 
493 American Drive 
Yardley. PA 19067 



If you've been merging Assem- 
bly program routines with 
your Basic programs by means 
of string pacl<ing, you have no 
doubt run into a bit of drudg- 
ery— mainly, converting your 
object code from hexadecimal 
into decimal numbers to use in 
data statements. 



This program will save you 
the trouble. It reads the object 
code right from the disk file you 
created with the editor/as- 
sembler, and then creates a 
disk file of Basic data 
statements complete with line 
numbers, ready to merge into 
your program. Oatallne was 
written with the help of the 
book, TRS-80 Disk And Other 
Mysteries by Harv Pennington. 

The program works as 
follows: First, establish the file 
names to be dealt with. Next, 
dimension an integer array to 



contain the object code as It is 
read from the object file. The 
object code is read in 256-byte 
segments and transferred from 
the buffer strings to the array 
as ASCII codes. When the end 
of the file is reached, the array 
Is checked to see that the first 
byte is 01 (identifying it as an 
object code file, as opposed to 
a Basic file, for example, which 
would have a different first 
byte). The number of bytes to 
be loaded are then obtained, 
the address codes being 
skipped, and then your codes 



are printed with data srate- 
ments into the output file i^ 
groups of seven. You can 
change the number of data 
statements per line by chang- 
ing line 45. 

With this program, you could 
build a library of Dataline files 
of your favorite Assembly pro- 
gram routines, ready to merge 
with your Basic programs. 

One thing to note: When you 
assemble your routines, add 
three zero bytes to the end of 
each program, to give a quit 
signal to Dataline. ■ 



REM ••• 

REM *•* 

RE» *•• 

CLEAR leee •. cls 

FIS - ■■ 1 LINE INPUT VFILE SPEC/EXTiDH> OF INPUT FILE? 



DATALI(JE/SBS 

12/06/8(1 
R. A. PRESS, N.D, 



IF FIS = ■• THEN S 

LINE INPUT ■<FILESPEC/EXT:D(J> OF OUTPUT FILE? "i 
B IF FOS - ■■ THEN 7 
9 IF FIS = FOS THEN 5 
Ifl INPUT 'LINE NUMBER TO BEGIN WITH (€-6B5BB)'| LNl 

11 IF HOT (LNI> e AND LNI<6fl5ai) THEN 10 

12 INPUT "INCREMENT LINES BV HOW MUCH'; IC% 

13 IF NOT (IC% > fl) THEN 12 

14 LN! « LNI-IC* 

15 PRINT 'OPENING FILE: '( FIS 

16 OPEN "R", 1, FIS 

17 PRIST "OPENING FILEi "j FOS 

18 OPEN '0*, 2, FOS 



FOS 



19 NB « LOF(l) • 256 




20 DIK A%(NB) 




21 FIELD 1, 255 AS AS, 


1 AS B5 


22 FOR 2 - 1 TO LOF(l) 




23 GET 1 




24 FOR ZA = 1 TO 255 




25 K - K + 1 




26 At{K) - ASC(HIDS(A$ 


ZA,11) 


27 NEXT ZA 




26 K - K + 1 




2» A%(K) - ASC{BS} 




3B NEXT Z 




31 FL - fl : Z - 1 1 SW 


- -1 : K - B 


32 IF A%(Z) <> ei THEN 


PRINT' BAD LOAD." 



Program Listing 



33 LD = A%[Z*1) 

34 FOR ZA - 4 TO LD+1 

35 IF NOT (SW - -1) THEN 37 

36 GOSUB 500 

37 IF NOT (A%(ZA+Z) - B) THEN 41 

38 IF NOT {A%(!A+Z+1) » 0) THEN 41 

39 I? NOT (A%(ZA-tZ*2) ' 0) THEN 41 

40 PL - -1 

41 IP NOT (FL <> -1) THEN 55 

42 PRINT USING *ttt*| At(ZA+Z}; 

43 PRINTI2,USI(IG'lt»'fA%(ZAtZ) ( 

44 K - K + 1 

45 IF NOT (K > 6) THEN 50 

46 K - : SW - ~1 

47 PRINT 

48 PRINT»2,*" 

49 GOTO 52 
59 PRINT", ■( 

51 PRINTI2,",'t 

52 NEXT ZA 

53 Z - Z + LD > 2 

54 IF Z ■>> NB THEN FL - -1 



55 IF HOT (FL - -1) THEN 

56 IF NOT (SW - -1) THEN 

57 GOSUB 500 

58 PRINT#2, -1 
t"? PRINT -1 

60 CLOSE 

61 END 

50B LNl - LNl -^ IC» 

501 PRINTt2, LN!| "DATA " 

582 PRINT LNI; 'DATA ' j 

5B3 SW > 

504 RETURN 



^Sm UMt of Atfnrtftcn on pug* 354 
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TUTORIAL 



A hybrid language for programmers who need structure in their lives. 



Bascal 



Richard C. Metzler 

9512 Mesa Arriba Court NE 

Albuquerque. NM 87111 



Does it depress you when 
you read articles which 
criticize Basic? Unstructured, 
not self-documenting, and bad 
subroutine procedures are 
some of the epithets hurled at 
Basic by the supporters of 
Pascal, C and other structured 
languages. Would you like to 
use a Pascal program but find 
yourself stymied by the lack of 
While and Repeat commands? 

Bascal 

We can introduce some new 
commands into our familiar 
Level II Basic which, together 
with some new programming 
techniques, turns Basic Into a 
structured language. I have 
christened this new dialect of 
Basic "Bascal". 

But why not just buy a com- 
mercial tape or disk of Pascal? 
Well, the tiny versions restrict 
you to Integers and crippleyour 
string-handling capabilities 
while even the big 32K and disk 
versions don't provide double 
precision. I hate to give up the 
sophisticated string-handling 
and double-precision arith- 
metic of Level II. Also It's a 



nuisance to learn new names 
for old commands. 

On the other hand. It Is no 
longer In dispute that struc- 
tured programming is easier to 
read, debug and change. Once 
you are used to it, It's even 
easier to write the program 
from the start. Let's look at 
some of the good features of 
structured programming and 
see if we can incorporate them 
Into Basic. 

Self -docu mentation 

Self-documenting is one of 
the jargon words applied to 



of A or B. We can already do 
this In Level II If we are careful 
to avoid two problems. The first 
occurs when we embed a 
reserved word In our variable 
name. For example TOTAL in- 
stead of TTAL would give us a 
syntax error because of the 
reserved word "TO" and COST 
bombs because of the COS 
function. One way to minimize 
this is to omit vowels so that 
the resulting name is 
recognizable but unlikely to be 
In the reserved word list (It 
doesn't work for CMD however). 
The second problem Is due to 



"We can introduce some new 

commands into our familiar 

Level II Basic which. . . turns 

Basic into a structured language. 

I have christened this new 

dialect of Basic 'Bascal.' " 



structured languages. One 
aspect of this is self-explan- 
atory variable names such as 
TTAL for total Instead of X or Y 
and BLNCE for balance Instead 



the fact that Level II recognizes 
only the first two characters. 
We have to be alert to avoid 
designating the same variable 
with two different names. 



Another aspect of self- 
documentation is the sub- 
routine (Pascal procedure) 
name. The Basic line GOSUB 
5000 just doesn't cut it com- 
pared to GETNEXTENTRY or 
DISPLAYRESULTS. Here's how 
we can Incorporate this desir- 
able feature Into our Basic pro- 
grams. 

Instead of GOSUB 5010, we 
replace the line with T$ = 
"PRINTTABLE":G0SUB9. At 
line 9 we find the heading for 
our subroutine table. 



9 

REM "" SUBROUTINE TABLE"" 
10 

:1F T$ = -FINDNEXTENTRY" THEN 
X-Y + 7 
:PRINTX,Y...etc. 
: RETURN 
20 

:IF T$ = PRINTTABLE" THEN 
;F0H N = 1 TO K 
: PRINT N,X(N); 
:NEXT 
:RETURN 

The Idea should be clear 
from this example. Each sub- 
routine Is written out before the 
main program. When the main 
program (or another sub- 
routine) calls a subroutine, the 
computer goes to line 9 and 
searches down until It finds a 
match for T$ and then executes 
that subroutine. At the end of 
the subroutine list we put in the 
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6 ways to give 
your TRS-80* a 



+ PLUS 



Exhaustive research and professional standards 
bring you the best in business software. 



EA8YTRAK' 

KEEP YOaR SALES CURVING UP- 
WARD WITH EASYTRAK"", a powerful 
all-purpose activity tracking system. CJser- 
specified options enable you to monitor 
sales activity by territory, product line, 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shift, by 
product, by day, by team, 
etc.), spending or in- 
come activity are simple 
to set up with EASY- 
TRAK '■'" Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages, and percentage data all at the 
touch of a button. Use of an 80-column 
printer is optional. 




MODEL I/Ill 
MODEL II 



$125 
SI 50 



i GENERAL LEDGER 

SLICE OUT MORE PROFIT by using 
t General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options, 
monthly and quarterly trial balances, man- 
ual and or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 

""'^'"^'- MODEL I/Ill «25 

MODEL II $350 





+ ACCOUNTS RECEIVABLE 

PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with + Account 
Receivable's many col- 
lection/credit features, 
including average pay- 
ment days. aging 
schedule and statements. 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A/R adjustments feature exten- 
sive on-line validation. And. yes, t^ Accounts 
Receivable handles the pesky new 9-dtgit 
zip code. Other optional features include 
service charges to selective customers: 
partial and on-account payments. Posts, 
at your option, to i^ General Ledger. 



MODEL I/Ill 
MODEL II 



$325 
$350 



i 



^ FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments, buildings, 
groups or other categories. Handles seven 
depreciation methods. Can post to - Gen- 
eral Ledger lor you. 

MODEL l/lll $325 
MODEL II $350 



+ACCOaNTS PAYABLE 

FUNNEL THAT STACK OF BILLS into 
t Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments 
Pay by selected vendor, in- 
voice, due date, discount 
dates, and optionally post di- 
rectly to youf * General 
Ledger. Supports 5-digit 
vendor numbers. 



MODEL l/lll 
MODEL II 



»250 
«300 




$ 
$ 



+ PAYROLL 

KEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt accurate and profes- 
sional payroll records. Will handle weekly, 
biweekly, semimonthly, monthly payrolls, 
produce checks, check 
registers, labor reports, 
earnings reports. Form 
941 s, W2s etc. Can 
handle fixed, voluntary 
deductions, hourly, 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
■ General Ledger posting. 





MODEL l/lll 
MODEL II 



S325 
$350 



SPECIAL! All ofthe above: MODEL l/lll »1250 MODEL II »1500 

-hPLUS SOFTWARE comes to you feature- packed from on-line validation to 
machine-language flle handling. Extensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 



To order, call TOLL-FREE 24 hours 
1-800-528-6050 EXT. 1562 

(In Arizona. 1-800-352-0458 Ext. 1562) 



-fPLUS 



PLUS COMPUTER TECHNOLOGY (NC 

POST OFFICE BOX 1152 

ANGLETON TEXAS 77515 1713)6^9 H08 



^131 



Dealer inquiries invited 

' -TRS-SO 15 a ieq.s\f<rtl l-ademaih of lardv < orp 
■FASVTRAK IS a Iradefralti oi Plus Computpi I'-(ti li> 



^t«t Utt Ot AAwr«s«rt on paff* 394 
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statement 'PRINT "SUBROU- 
TINE NOT LISTED": STOP'. 
This tells us if we try to call a 
subroutine which is not listed 
because of a typing error or 
some other problem. 

Another feature of the pro- 
grann fragment I would like to 
point out is the use of indenta- 
tion. In Basic, indentation is 
very valuable in showing the 
meaning of a program but is ex- 
pensive in memory space if you 
use only one statement per 
line. I suggest using the down- 
arrow to format your programs. 
If every line number is im- 
mediately followed by the line 
feed resulting from a colon 
followed by a down-arrow, it's 
clear that we can arrange it so 
that all commands start in the 
second column, except those 
that are indented three or six or 
more spaces. The first column 
will contain only line numbers, 
spaces or colons. The memory 
price we have to pay for this is 
minimal— one byte for each 
down arrow and one for each 
space of indentation. I was very 
disappointed to discover that 
tabbing with the right arrow 
doesn't save any more bytes 
than just spacing with the 
space bar. Even so, this tech- 
nique lets you format a 
250-character line at minimal 
cost in memory. 

"All this is helpful", the 
Pascal prophets might say, 
"But what about the lack of a 



While or Repeat . . . Until com- 
mand and what about all those 
hard-to-follow GOTO state- 
ments?" We respond to this by 
inventing the required com- 
mands and renouncing the use 
of GOTOs and even GOSUBs 
except for the GOSUBS which 
takes us to the subroutine list. 

Inventing Commands 

Computer scientists have 
shown that GOTO commands 
are completely superfluous if 
the language has the While, 
Repeat . . . Until and If . . . Then 
. . . Else commands. We need 
only invent the While and 
Repeat . . . Until commands. 
This can be done by using logic 
commands to adapt the For . . . 
Next loop to our needs. 

The following set of lines 
gives us a Repeat . . . Until: 

FORR = 1T01 

:..(slalements) 
:n = -(condition):NEXT 

It sure looks like a funny For 
loop doesn't it? Why would we 
bother to go from one to one? 
To see that there is method In 
this madness let's look at the 
final condition which will 
typically be something like 
K>0. A$ = B$ or Q = 5. For all of 
these statements Level II Basic 
returns a -1 If the y are true 
and a if they fail to hold. Thus, 
if the condition holds, R 
becomes -(-1) and Next In- 



crements it to 2 which causes 
us to exit the For... Next loop. If 
the condition does not hold R 
becomes and the Next makes 
it 1, causing us to return to the 
For statement and execute the 
loop again. Thus we repeat the 
statements inside until the con- 
dition is true. 

It's true that we could 
achieve the same effect with a 
conditional GOTO but this in- 
volves using line numbers. The 
above method also has the ad- 
vantage that it will work in the 
middle of one numbered line 
consisting of many state- 
ments. Level il Basic remem- 
bers where the For is located 
when It encounters the cor- 
responding Next. 

The While command Is a little 
tougher to handle without us- 
ing line numbers. We do it like 
this: 



FORW = 0TO0: IF (condition) THEN 
W= -1 



:..(statem9ntB) 
;NEXTELSENEXT:W= -1 

This version Is only adequate 
If we can fit it all into the 255 
characters Basic gives us for a 
single numbered line. If the 
statements spill over into the 
next line we need some way of 
ensuring that they will only be 
executed while the condition is 
true. An economical way of do- 
ing this is to precede each 
numbered line until the final 



Next with the cryptic statement 
IFW as below; 

1000; 

:FORW = 0TO0: IF (condition) THEN 

W= -1 

:.. (statements) 
1010: 
:IFW 

:. .(statements) 
1020; 
:IFW 



:..(slalements) 
1040: 

:NEXT:W=-1 REM ■" END OF 
WHILE LOOP'" 
1050; 
following statements 

If the condition Is false, then 
W is zero and it is not changed 
to - 1. Then the command IFW 
falls through to the next line 
number since W = 0. This will 
happen at every IFW so we will 
plummet all the way down to 
the Next at line 1040. This will 
increment W to 1, causing an 
exit from the For loop. On the 
other hand, if the condition is 
true, W becomes - 1 and all the 
statements are executed since 
IFW checks the value of W and 
falls through to the next line 
only when W = 0. The Next at 
the bottom increments W to 
and sends it back to the For 
which tests the condition to 
see If It should go through the 
loop again. 

If you can't stand the 
thought of all those extra IFW 
statements you could use a 
dreaded GOTO and substitute 



«275 

DISK DRIVES 

5%" 40 Track drive with case and 
power supply. 



FLIPPY DRIVES ONLY $295.00 

2 DRIVE CABLE $14.95 

4116 MEMORY CHIPS 8 FOR $20 

CORSAIR COMPUTER 

CORPORATION ^36 

7952 Highway 80 WesI 

Fort Wortfi, TX 76116 

817-244-8051 



MANUFACTURING tNViNTORY CONTROL 

ufac tUEine ln\ 



ntory Contr 
asing, and 



eports 



MICS modwIe-Ms 

15 rfpotts for if\ 

stockroom control 

* V*ndor reports • Part reordei 

* "Pick List" reports • ABC analysis 

* Scheduling simulation capability 

* Parts "allocation" feature - prevent 5tockouts 

* Iriquirv by part, vendor part, and description 

BOMP modul* - eill of Materials processor 

* Indented BOM reports • Finished goods reports 

* Obsolete pacts report • "Where used" inquiry 

* Automatic "Pick List" report generation 

* Work in process value reports 

* Process "lead time" based on actual inventory, 
work in process, and reorder lead times 



All modules for Model 1, 32K Bus 
Master menu driven - fully opera 



Systems 
rompted 



MICS-I 2 drives, 1000 pacts, 200 vendors - 1295 

MICS-2* 2 drives, 3003 parts, 300 vendors - J345 

MICS-3 3 drives, 2O00 parts, 200 vendors - t345 

MICS-<* 3 drives, 4000 parts, 4O0 vendors - %yi5 

BOMP tadds on to any MICS Module) - $Ji); 

Send for catalog of ELTECH business modules 

ELTECH Associates •^456 

2J66 Moreno Drive, Los Angeles, Ca i;0035 

(213) 66J-0347 

•Requires double density. All modules upgradable 




^^r^yy^X If You've WHtten an 

^5/ Extrcmrdinary Prognun- 

We'd Like to Publish It! 
Programs needed for MANAGE- 
MENT applications: 

PERT & CPH SCHEDULING 
PREDICTIVE MODELING 
DECISION-MAKING SIMULATIONS 
PRODUCTION SCHEDULING 
EXPENSE ANALYSES 

Royalty checks may be in YOUR 
future. Write for our free Pro- 
grammer's Kit today. 

INSTANT SOFTWARE. INC. ^2 
Submissions Dept. 
Peterborough, NH 03458 
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the following for line 1000 
above: 

1000: 

FORW=0TO0: IF NOT(condltion) 
THEN GOTO 1040 
ELSE W = - 1 



;.. (Statements) 

Then the IFW statements can 
be removed. I don't recommend 
the alternative GOTO 1050 
which would seem to have the 
same effect since this leaves 
an active For. ..Next loop in the 
program. Each such loop re- 
quires 16 t>ytes. If the active 
loop is inside another loop you 
run the risk of running out of 
memory as you store 16-byte 
chunks on each pass. 

Ordinarily, I lil^e to avoid run- 
ning words together in my pro- 
grams, but I do it on purpose in 
F0flR = 1T01 and FORW = 
OTOO to make it easier to distin- 
guish these loops from an ordi- 
nary For loop. Also, R is always 
used in the Repeat loops and W 
in the While loops. This brings 
up another point. What if we 
have one While loop nested in- 
side another one? We can't use 
the same variable W for both 
loops since Level II forgets the 
return address for the contain- 
ing loop when it encounters the 
second FORW=0TO0. The re- 
sult is a Next-Without-For error 
when the program reaches the 
outer Next. To solve this prob- 
lem we use W1, W2. . .W9 for 
successive interior loops. Of 
course, R1 . . . R9 would be used 



for nested Repeat .. .Until 
loops. 

However, the W1, R1 trick is 
not necessary when a subrou- 
tine is called in the middle of a 
loop. Level II keeps track of 
things so that even if a sub- 
routine in the middle of a 
Repeat . . . Until loop has 
another such loop using the 
same variable R, no problems 
occur. However, with a While 
loop we would have trouble on 
returning from a subroutine 
While loop which had in- 
cremented W to 1. This is the 
reason for the assignment 
W= -1 after the final Next in 
my While loops. This ensures 
that the loop will work all right 
if it is used as a subroutine loop 
inside a larger While loop. Un- 
fortunately, this technique 
works only when there is a 
subroutine call. Ordinary 
nested loops must use the Wl, 
R1 method. 

In order to avoid the troubles 
which occur when two vari- 
ables are given the same name 
I try to use two-letter names for 
variables peculiar to the pro- 
gram and reserve single-letter 
and letter-number names for 
standard loop variables. In fact 
the Bascal variables are ex- 
plicitly listed in the sample pro- 
gram In lines 110 and 140. 

Collision of Variables 

Another attractive feature of 
Pascal is the way the problem 



of collision of variables is 
avoided. With a little work we 
can approximate this in Basic. 
When we write a subroutine we 
keep track of all variables used 



and then write the following 
first line: 



IF T$ = ■PHINTTABLE' THEN 
l%(1) = COUNT:l = 1 + 1:1' 



■(!> = 



Program Listing 



REM •■** HUHCOH IN BASCAL - VER. 6 - - NOV. 9, 1980 ••••••» 

8 : 

TS=*RUN" 

9 : 

T"0:REM '••• SUB TABLE STARTS HERE ■■'••• 

le : 

:IF TS=*FLASHINCCURSORINPUT" LET CS(C1 =INS:C=C*1 
;INS=" 

:F0RW:-BT0a:IFINS<>CHRS(J3) LETW=- 1 
• TS- "DISPLAY 4 STORE " : G0SliB9 
;TS-"FLASHiGETK EXPRESS* !G0SUB9 
lNEXTELSEHEl£T;W=-l 
:PRINT CHRS(15) ; 
jC-C-liIKS-CSfC) 
: RETURN 
20 : 
:IF TS"'CHANGETODECIMAL" THEN 

I*(I)=DDIGlTrI«I+l!l%[I)=DIGIT:l=I*l 
:FOR DIGIT-1 TO LEN{INS(CO)) 

!DDIG1T«ASC(MIDS(1NS(C0) ,DIGIT,1)1 
:DD-C©-48+7*(DDIGlT>57) 
: DEC! -DEC 1 "RADIX ( COUNT) ♦DDIGIT 
iHEXT 

!l»I-l:DI.^I%(I) : 1 = 1-1 iDD=II(l) 
iRETURN 
30 : 
;1F TS="CHANGEDECIMALTORADlXBASE" THEN LET T-1 

;SI(S)-DECI;S=S*1;S! (S) =QU0TIENT1 : S-S*l r 1« ( 1 ) =fiMNDER: 1=1 +1 
:P0RR-1T01 

!QU1 = INT(DEC!/RADIX(C0[!NT) ) 
! RH=DEC I -RADIX (COUNT) 'QU ! 

: OUS (COUNT) 'CHRS <RM. 48-7* (RK>9) )tOUS(COUNT> 
: DEC 1 "QU 1 
35 : 
:IFT 

iH— (DECI=0) :MEXT 

:I-I-1:RMNDER-II(I) jS-S-l tOUOTIENTl =S ! (SI : S=S-1 :DEC1 -S I (SI 
: RETURN 
40 : 

:IF TS-'FLASBSGETKEYPREES" LET T=l 
:I%(1)-CU;I = H-1:I%(I)-HAIT:I = I»1 
iCU-lS 
:F0RR=1T01 
:CU-29-CU 
:PB1HT CHRS(CU) ; 
iFOR WAIT-1 TO IB 
:IH$=INKEVS 
:KAIT=WAIT-10*(INS>") 
:HEXT 

TlN-ASCdHStCHPSlD) 
45 : 
:IFT THEN 

R'-(IH'8 OR IM-13 OR (47<IN AND IN<5e AND IN.;RA(CO) -.48) OR 
[64<IN AND 1K<RA(C0)*55)) jKEXT 



Program connnuns 



^^iHi CHEAP CH^PS . ARE NO BARGAIN ^^ 

I BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

I Monory taiiurn cost you imt ant rrorify Jipanasa i6k 

I RAMchipstiavsaone-to Mnrn-urvcetailunraMtoU S 

^ cdips trom a ^udy tty fl AmMrson, CompuKr Div . 

^ Hew Hit -Pack a rd . repolM in Tfit IcMtmht, * 26 80 

5 Weofler *n6chips By Fuittsu NEC Hitacfti, Tosniba 

^ ana Mitsubish' tor moil popular compjler? ano 

tS wpansMo "larnory DoarOs inciudiiig 

; 'Appll 'AN TKS'Ui 'Ntw P«l •»•*» H-l> 

3 'Supcrbnln 'EipMdwin *Mny Othari 

S 411SDrNAMCRAMS THEBEST 

g JQOrisec Piastre S23.70. Ciramic S3T.SS 

^ I5l9nsec Plastic t30.95 

S, STATC MHS 

° 2114 4»AS«: S3 30. SOOxmc (390. ZiOl i2 90 

z EPamS (450 nsK Md. ask tot tiispwd it rsquirM) 

* 270B (480, 2716 5V*I2V $9 40 !7t6 5V S9 70, 

3 2732 t>8 90 

^ Wall Ml any itgilimate priCB tci comparabit dilps Hi- 

vplunw users, dtaiers. or tkiOi . ask tor quantity discounls 

SHIPPING ID S25. 12 to S50. St over ISO FREE 

COO *S1 40 

DISCOUNIS ON TOTAL werilOO 5% over S200, 10W 

MINIS & MICROS m. • 2U86 Trtlwiy 
.98 Agouri. CA. 91301 • (2)3)991-7433 
CA. ntitentt add 6% utii fei 

2 YEAR WAHRANTV * CALL US ANYTIME 



S SHIP 
■ COO 

I DISC 

L 



] 



EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Compulcf, PET. Apple II 



ELEMENTARY 

SCKNCE 

GEOCRAPHV 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write for FREE Catalogue 
MICRO LIARNINCWARE ^e^ 

BOX 2 I 34. N. MANKATO MN S600I 
SO7-62S-220S 



VISA S. MASTER CHARGE ACCEPTED 

vVt n^y I S's 'Oy.*lty tor [(1u(^iiDn,it 
Progr.*m% lislef* wifti liS 

Apple Is a trademark oT Apple Computer Co. 
TIS>M I* « rcibtcred trademvh ol TANDY COIf . 
Pet b • tradeHMfk ot C«M>nodor« •»■ MicMncs. 



MORSE CODE, BAUDOT and ASCII RTTY 
FOR THE TRS-80 MODELS I and III 

DISASSEMBLED HANDBOOK - VOLUME d 
no flS-232C triiertacs is required 



8 to 800 WPM Morse transmit pgrn 
Aijdtng type ^head capabilities 
Morse receive decod'nq program 
Merging + 12 prepares rnessages 
Baudot' transmit 60-66-7&-100 WPM 
Baudot receive tor aPove speeds 
Merqrnq + 22 prepared messages 
ASCII irarsmit program 110 Baud 
ASCII receive (Jecodmq program 
Merqtnq • 22 prepared messages 



S18 1 US) per copy add S2 shippir>g 
I $4. 50 overseas airmail! 

-GERMAN & FRFNCH LANGUAGE EDITIONS— 

Morse, Baudot 8, ASCII on disks $49 
(Vol. 4 required lor instructions) 

RICHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 
Chautauqua, New York 14722 ^276 

CODorderslUSonlyl 17161753-2654 



Cliapt 


1 


Ctiapt 


2 


Ctiapt 


3 


CPapt 


1 


Ctiapt 


6 


Ctiapt 


6 


Chapt 


/ 


Ctiapt 


8 


Chapt 


y 


cnapt 


1U 



•Sm LJsf ot AOwtlnn on p»o* 3M 
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Program continued 



iI-I-ljCU=l»(I)!l.I-l;WAIT-II[I) 
I RETURN 

50 : 

tip TS-"DISPLAYtSTOBE' LET T-1 
tH(I)-LE:I-Itl 
iLE=LEN[ItJS(CO)) 
!IF »0T( (LE-B)AND(IH"8)) THEN 
LE-LE+1+2*(IK=8) 
iINS(CO) -LEFTS (INS{CO) ♦INS, LE) 
:PRINT IN$i 
55 '. 
lIFT 

LET I=I-1:LE-I%(I) 
: RETURN 
90 : 
lIF TSO'RUN' THEN 

PRINT "SUB NOT LISTED' t STOP 
1000 ' 
iREH *•" MAIN PROGRAM ••" 

iBie ■ 

]•*•'* INITIALIZATION **•■••» 
1020 I 

iCLEAR 500: DEFINT A-Z 
1030 : 

lC-0iD=0!l-0!R=0:S-aiT=0!W-0iTS-"" 
1040 : 



'••• BASCAL VARIABLES 
BASCAL STACKS 



jDIM CS(9).DIH D»(9)iDIM I%(9);DIM 51(9) 

1050 I 

iCOUNT-01 OECl'01 HSBI-0 

iERASES-STRINGS{16,' "1 *STRINGS(17,8) 
10fi0 I 

!DIM RADIX[8):DIM INS(8)i DIM 0US(8)!DIM AT[B) 

1 070 I 

iFOR COUNT-1 TO 5 

1 AT (COUNT) -80 + (COUNT-1 1*128 
tNEXT 

:AT(6)-AT(S)+32:AT(7)-AT(5)+128iAT[8)-AT(71+32 
1080 

!RADIX(l)=10:RA(2)-2!RA(3)-8 

!RA[4)=16!RA(5)=16:RA(6)-16 

!RA[7)=10!RA[8)-10 

1100 : 

tREM *••• PROGRAM LOOPS IN REMAINING PORTION •••• 

1110 : 

tCLS 



Program continues 



NUMBER:! = 1-1-1 
:S!(S) = BLNCE!:S = S-H 
:D#(D)=TTAL#:Di-D + 1 
:CS(C) = LABELS:C = C-»-1 



:..(body of subroutine) 



:t = l--1:NUMBER = 1%{l): 

COUNT = l%{l) 

:S = S-1:BLNCEI=S!{S) 

= D-1:TTAL#sD#(D) 

C = C-1:LABEU = C*(C) 

RETURN 



The variables Number, 
Count, BLNCE!, TTAL# and 
LABELS appear in the sub- 
routine and may be changed 
there, if they are used in the 
main program or in some other 
subroutine, values will not be 
changed inadvertently since, 
on entrance to the subroutine, 
they are saved by being PUSHed 
onto a stack and are then 
popped off on exit and their en- 
trance value restored. Of 
course, this is only done for 
variables which contain data 
that is not supposed to be 
changed by the subroutine. 

Program Listing 

The Program Listing gives an 



example of the use of Bascal. It 
converts numbers from deci- 
mal to binary, octal and hex and 
vice-versa. It also provides the 
Z-80's most significant byte 
and least significant byte in 
both hex and decimal. 

After the title line we have 
the statement T$ = "RUN" in 
lineS.This means that an initial 
comfnand of Run will cause the 
program to fall through all the 
subroutines to the start of the 
main program. In line 9 we set T 
equal to zero. This is just a con- 
tinue flag which makes it easier 
to continue a subroutine to 
another numbered line. It also 
means that if we use a remark- 
removing packing program we 
won't lose line 9. 

Skipping over the subrou- 
tines for the moment we come 
to the start of the main program 
at line 1000. We start by clear- 
ing some string space and de- 
fining all variables as integers 
since few of our variables are 
anything but integers. After in- 
itializing the Bascal variables 



VfE HAVE A PROBLEM 

vrrm our software 

The problem is that it is underpriced! Potential buyers don't believe the 
accounting software has much capability at $450, so they buy software with less 
capability at $1000. 

What do the ones who buy it say? 

"I have become more and more convinced ... it 
is one of the best bargains available . . ." 
80 REVIEW, 80 MICROCOMPOnMG, June 81. 

"The single data diskette with common files is 
really convenient . . ." 
Randy Bemis , Bemis Construction, San Diego. 

"I recommend MICROED software for my com- 

Sandor Zoboki, President, 
ZOBEX Computer Systems. 



THE BUSINESS SOFTWARE NOW AVAILABLE 

GENERAL ACCOUNTING PACKAGE $450 00 

G/L, A/R. A/P 

INVENTORY I $250.00 

PAYROLL $250.00 

System requifemerHs: CP/M, 64K memory, two disk drives, 132 column 
printer 

TRS-80, Model II SOFTWARE NOW AVAILABLE 

■■ 4 CP/M Special $90.00 

Single or double density auto-select 
SMARTERM $50.00 

Versatile terminal program, requires CP/M 

CP/M. T.M, o( Djgilai Research, TRS-60, T.M. of Tandy Corp. 



We are dedicated to selling quality business software at reasonable prices. 
Dealers, we have a deal for you. B fl ■ ^% H^ ^^ ^^ B^ 

Write or Call M|C|l\/ED -'^ 

3910 BANDINI STREET. SAN DIEGO, CALIFORNIA 92103 - (714) 299-1125 
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DOUBLE DENSITY - 1 79K On SA-400 

AUTTL-NOFDCChIp 

PLUGS INTO CARTRIDGE SLOT 

UCSD Pascal- COMPATIBLE 

COLOR 
COMPUTER 

$99.95 

FLOPPY 
DISK 

DISK mUTINtS a OKUC MOMrTOR B>ROM $34.95 
64K bit SAM Chip ADAPTER BOARD $23.95 

n 



Tallgrass 



9009 W. 95th St. 



>Ji,/iJ^^^r^'^ 19131 S81-5588 



HORSERACE 
HANDICAPPER 



Uses past pertormonce data from daily racing form 
to predict probable order of ^nisf^. 

SIMPLf and FAST. Evaluate a tiorse in seconds. 
Handicap on entire race in minutes. 

Often reveals longshots missed by other mettiods. 

TRS-SO* 

MODEL I or III Tape $29.95 Disk $39.95 

MODEL II Disk S39.95 

Tape $34.95 Usiing $24.95 



POCKET 

FMBIEM 
SOl¥£RS 



250 Richords Rood. No. 254 

Kansas City, MO 641 16 

(816)471-8660 

^448 




OPTIONS-80„„ 

BOX 471 CONCORD MA 01742 



PROGRAM FOR MAXIMIZING RETURNS 
FROM OPTION INVESTING. ANALYZES 
BUY 8 SELL OF LISTED CALLS. PUTS, 
SPREADS & SHARES, INCLUDES COM- 
MISSIONS, RISK, COST OF MONEY AND 
DIVIDENDS. HARDCOPY 8 STORAGE TO 
DISK. ACCOMPANYING MANUAL A COM- 
PLETE & UNIQUE GUIDE TO OPTION 
INVESTING, $125. SEND FOR FREE 
BROCHURE. MONEY BACK GUARANTEE. 



'Itademcitia(I(nlyCnpMisoui[K9d9nts[<ea»add4'';% sdestm 



LNW80 COMPUTERS D 

..'446 • 

lOOZ TRS-8Q" MOD 1 OR 3 D 

compatible! + HI-RES BW • 
AND COLOR graphics! 

IN STOCK NOW!! call for 

SPECIAL DISCOUNT PRICE! 



^ 



X Electronics 

180 WOODROW WIL! 
LOS ANGELES^ CA \ 



^44e 



R. 



(213) 851-0626 

(714) 973-1939 

ORDER LINE OPEN 24 HRS 

INFO M-F 6-9pm 9-9 S&S 



'TtADCMAKK 1 



' TaJ«DT COH^Oft ATkOH 



n 

D 
D 
D 
D 

a 

a 

D 



64K COLOR 

TRS-80' COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for extended basic 

EXPANSION KITS 

64K $375 16K S35 
32K $75 XBASIC$90 

Call for details on other TRS-80' 
computers & accessories. 

SOUND CENTER .4^ 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

'TRS-80 Is a trademark of 
Tandy Corp- 



i»D»n«n»D«n»a«n»n«a«D»n«n«D • 



^VlV You've Written 

;\\y a Fantastic Qame? 

^^ Then We'd Like to Publish W 

We're looking for hot GAME pro- 
grams: 

ARCADE (HI-SPEED GRAPHICS] 

ADVENTURE FORBtAT 

FANTASY WAKGAMING 

BOARD GAMES 

LOGIC ft PUZZLE GAMES 
There's Gold In them there 
GamesI Write for our free 
Programmer's Kit today. 

IN8TA.NT SOFTWARE, INC. •^2 

Submissions Dept. 

Peterborough, NH 03458 



Subscrfption 
PfMSm? 



80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PC Box 981 
Fanningdale, NY 11737 



Thanh you and en|oy your subscription. 



AUDIO ALARM DEVICE 
TRS-80 MODEL l/lll 

External Device that plugs 

directly into Cassette Port. 

Ideal for Business Applications: 

• Operator error notification tone 

• Complements numeric keypad input 

Speclllcatlons: 

• 2Va"Wx3V4"L X VWD 

• 36" cable witti cossette port plug 

• 1 pound 

• Beep lasts 2 seconds 

• Battery powered— 9 volt 

• Only 1 line basic program 

• Install in seconds 

Inoxponsivety Priced 
$34.95 Audio Alarm Device 
S 1.75 Postage & Handling 

S36.70 Total Price 

{Cmio Residents Add S2 10 Sales Tax) 
MAKE CHECK -OR- MONEY OTOER PAYABLE TO 
BSI 

231 Green Street, Dayton, Ofiio 45402 
1513)461-4850 ^67 



EPROM-80 FOR TRS-80 

Programmer for 2700 Type EPROMs 
(2704/08, 2758, 2716, 2732. 2732A, 
Mostec 2764, Intel 2764) 




Thfl logical solution to EPROM progrjmmingi One pfogratn 
lor ail type EPFIOMs Timing under software control ?8 pin 
zero insertioi^ force socket No eitemal power supplies 
required 36" ribbon cable connects directly to eipansion 
interface Average programming lime 100 seconds per IK 
bytes Includes program on disc and cassette Program 
operated in two modes. Mode I EPROM type select. Program 
prompts user In set 4 toggle switches Sepeoding upon 
EPROM type Mode 2 Type of action Reads one EDTASM 
(lie Irom disc o< cassette lassembled anywhere) into buffer 
Reads EPROM data inlc buffer Wnies butter data to EPROM 
Automatic venty after write And More Minimum require- 
ments TRS-BO LEVEL 2. I6K RAM PRICE 1290.00 

CANTECHDATA .483 

7826 W. ARGYLE, NORRIOGE, ILL 60656 
PHONE [312)887 0161 



'$•• Llal at A&Mrttaara on p»g» 354 
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Program continuM 



iFHIKT ■ 
DECIMAL REP. 



BINMtr REP. 



OCTU. StF. 

BEI. Up. 



LSB(aKn 



<C«Tai> TO CYCLE TO HBIT POllTIOM 



HSBIBBX) 



lUB(DBC) 



L6B{D1C| - 

1120 I 

■ COCHT-» 
:F0HH.1TO1 

: COUNT- l-COUIIT*(COaiIT<B) 

iPHlNT t ATlCOCIfT),, 

tT|--PLA6HllieCCJlS0MMPOT'iGOeUB9 

il— (III$(CO0BT)>" AMD (C0niff<5 08 (CCJOHf-6) OB COCfW-«) ) iBBXT 

113a I 

lIP COUNT-6 

■.If COD(fT=l UT DECI-VAI.{im(l)) 
ELSE IP COOWP-a LET DBC1-25S»VAL(IN*(B) ) +VAI,( «»(7) ) 
aUI TS-'CHAKIETOOECIIIAL'.GOSIIBS 
115 ■ I 

.mST f *T(1), ERASE!, CH»S(8),D«CI| 

IICI I 

iFOR COOWt'l TO * 

I T9-*CkjUIGBDBCIIIALTOftADI XBASE ' i G06UB9 
iMEXT^" * *T(COO»r),BSA8E»|0OI(CO0Wr), 
1171 ■ 

iOUS{*) -RIGHTS (■«Bi"*0(JS(4) ,4) 
iPRIHT * AT(5J ,ERASES;RIGaTS(CWS(4J,2)i 

■ PRIMT # AT(6),ERASESiI,EFTS(OUS(4),2)| 

|DBCI>«BCI 

■ N5ei-IirT|DECl/25C| 

■PRINT 9 AT[7),ERASES,CHRS(8),DBCI-25fi'MSBI, 

iPRIffT 9 ATI 81 ,ERAEESiCHRS(8),HSBl 

jPfildTiPBIHT -PRESS ERTKR FOR NEW PROBLW ■,.■ IKPUT III»(1J 

iRUH 



and stacks we Initialize the 

variables and arrays which 
carry program information. 

In Une 1100 we start the run- 
ning part of the program. Line 
1110 contains our first Repeat 
...Until loop. In the loop we 
start with Count incrementing 
from zero to one and then we 
call the input routine which 
loops and accepts keyboard in- 
put until Enter is pressed. If 
only Enter was pressed we see 
that IN(COUNT) = " ■■ and we 
cycle back to the For and incre- 
ment Count. Note that the 
C0UNT<8 factor returns a ( - 1) 
until Count reaches eight when 
it returns zero. Thus if the 
operator continues to press 
Enter he will cycle Count from 
one to eight and back again, 
endlessly. When the input 
string is non-empty we break 
out of the loop unless we still 
need the most significant byte. 

Dropping through to the next 
line, if the operator just entered 
the Isb and msb of a hex 
number at Count = 5 and 
Count = 6 then we put them 



together to form one four-digit 
hex number, if Count = 1 and 
the operator just entered a 
decimal number then we simply 
take the numerical value of the 
input string, if Count =8 and 
the operator just gave us the 
Isb and msb in decimal form we 
calculate the actual value as 
256'msb + l3b. Finally, in any 
other case we call the 
subroutine which changes the 
number in some base other 
than 10 to a decimal number. 

Now we print the decimal 
number in the first position and 
call the subroutine which 
changes the decimal into the 
various bases. We take the hex 
output, add some zeros on the 
front so that we are sure we 
have four digits, and peel off 
the first two and last two digits 
for the msb and Isb. Finally, we 
calculate the msb and Isb in 
decimal form. After the results 
are all printed we print the 
Press- En ter-for-New-Problem 
message. When any key is 
pressed we fall through to Run 
which zeros all variables and 




NoGiqOHer 

Ju9t 

Program Value 




208 Basic Programs at Less Than 27< Each 

All in Four Fascinating Books 
Stop the "sort and search" through other guidebooks. Web has what 
youre looking for ... a treasury of directly applicable Ideas, programs, 
systems, hardware configurations and money saving tips In clearly written 
code. 

• TRS-80 tested 

• Presented in concise Level II BASIC 

• Immediately useable on your TRS-80 Models I and III* 

• Reproduced in guidebooks directly from printer listings 

' can be run on model H with small modification ^554 



Pleas« indicate S€l€ctton(s): 

D All four honks (Save 20%) @ $55.84 

G Tpchnlques of BASIC ^ $1H 9b 

D Data Management Techniques @ $16 95 

Q Introduction to Graphics @ S15.95 

O Gukli! to Systemi ApplicAllons @ $17.95 



Total amount at order $ 

Tax (California ratidcnti add 6%) $ 



Postage and Hdndllng ($I.2S per book 
or $4 00 for all four bookij S 

TOTAL •nclooed/to be charged $ 



Please Indicate method of payment 

below: 

D Bill my company <P.O, No required) 
O Bill me 

O Check 01 money order enclosed 
(WCB pays Postage and Handling) 



VOUBS TO EXAMI NE RISK-FREE FORl3d DAYS f J Z^cZ^ho""^ '"*""* ° ^ " """ ""'" """' 



* TECHNIQUES OF BASIC * INTRODUCTION TO GRAPHICS 

Bonanza of BASIC techniques for writing Demonstrates the many exciting graphic 
good structured programs for business, cd- capabilities of the TRS-80 A great source- 
ucation, scientific and home applications. book of ideas for jazzing up your programs 
¥ DATA MANAGEMENT TECHNIQUES ^^^ making them look more professional. 
Demonstrates and explains many ways to ♦GUIDE TO SYSTEMS APPLICATIONS 



MC Bank B 



Nil ITTTTTT-i rrrn 



Exp Date 



S«gnatura 



(required tor all cFiarses) 



Name 
Addret* 
City ^ 
State 



processtAg, queue, stack and tree process- 
ing. 



four" of the wide ranging capability of your 
computer. 



WRITE TODAY FOR ALL FOUR BOOKS AND SEE FOR YOURSELF 

(dealer inquires welcome) 



In a ruth? CALL TOLL FREE/ M HOURS (VISA/ 
MC. oideij onlyl 800-227-1617 EXTENSION 541 (Jr 
r-.!.Wn« Call B0O-772-S545 EMenMnn 541) Ord« 

-S8I-0S7 

Uinb *'"' *"■ ^''°""' Company. Publlthers 

2460 Keipci Blvd , Dubuque. Iowa 52001 
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Education = Microcomputers. 




MC 



*to the power oi 
Instant Software 

Einstein's equation helped explain the properties 
of relativity, but didn't do much to speed the learn- 
ing process. Instant Software's equation means in- 
dividual attention and greater comprehension. 
Everyone knows the best student-teacher ratio is 
1:1. That was a problem in years past, but now it's 
as easy as C.A.I. {Computer-Aided Instruction). 
These Instant Software programs will guide and 
teach each lesson with the infinite patience only a 
computer can provide, thus allowing students to 
progress at their own pace. 

Einstein had the right idea, but If he'd only known 
then what we know now 



'■■■■ --''^'^'^M^y '*^- '■' 




i^ .F-sa^^S^^-'^y- 




Typing Teacher (for the TRs-ao^^r 

A complete seven-part package that guides you from famil- 
iarization of the keyboard through typing words and phrases to 
mastery of touch-typing. Your video monitor becomes a bot- 
tomless page for typing practice, and your own private TYPING 
TEACHER, ready to teach wtien you're ready to learn. Model I, 
Leve! II, 16K;ModeMII,16K, Order No. 0099R-A14$9.95 plus shipping. 

Teactier's Aide (forweTRs-ao^^r 

Now you can have the benefit of Computer Assisted Instruc- 
tion (CAI) in your own home. The Teacher's Aide program allows 
you to create tailor-made lessons for your child. The features of 
this program include the ability to review material before taking 
the lesson, a provision for hints to help answer questions and 
graphic displays as a reward for answering all questions correct- 
ly. Once you've created a lesson, you can save it and create an 
entire sequence of lessons. 

The Teacher's Aide package is perfect for parents, teachers, 
and students who need the unlimited patience only a computer 
can provide. Level II 32K. Order No. 0214RD-A13 (disk-based) 

$39.95 plus shipping. 

Geography Explorer: 

U.S.A. (for the TRS-SO^^r 

This program allows your child to travel the country and learn 
vital facts about each of our 50 states. Geography Explorer offers 
the most fascinating way of learning yet. Learn each state's 
name, capitoS. largest city, nickname, etc. As a bonus, this 
package offers the capability of light pen use. Model I, Leve! II 
16K, expansion interface with 16K, one minidisk drive. Order No. 
0071RD-A16 $49.95 plus shipping 



Capitalization (for the Appier^r 

Here's the most patient grammar teacher a 
student will ever have, , .CAPITALIZATION, It's 
one module among several in the English Lan- 
guage Series of CAI (Computer Aided Instruc- 
tion) programs from Instant Software. This pro- 
gram introduces and exercises the twelve rules 
for capitalization in English. The student may 
study the rules in order from 1 to 12, or may sin- 
gle out one particular rule for study and practice. 
Start with CAPITALIZATION and graduate to 
proper grammar and a better understanding of ■; 
the English language. Applesoft Basic 32K, 1 ,. 
disk drive. Order No. 033gAD-A15 (disk-based) ' 

$34.95 plus shipping. 



"Why didn't.Kr^:^ 
I think 
of that?" 



TO ORDER: 

See your local 

Instant Software dealer 

or call toll-free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon -Fti 8 00 am-d:30 pm E.S.T. 



Instant Software 




a=^> 



Peterborough, New Hampshire 03452 



A division of Wayne Green Inc. 



•TRS-80 is a Irademark of Radio Shack division^ 

Tandy Corp 

'"Apple IS a trademark ol Apple Computar Company 
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ViT\6s US back to line 5. 

Notice how the long variable 
names and subroutine names 
help In reading the program. 
The INS array collects keyboard 
input and the 0U$ array col- 
lects program output to be 
printed. The function of each 
subroutine; is clear from its 
name. Now let's go back to the 
subroutine table to examine It 
more closely. If T$ = "FLASH- 
INGCURSOR INPUT" then 
when we G0SUB9 we execute 
the commands at line 10. There 
we first store IN$ on the char- 
acter string stack so that any 
calling program could use the 
variable INS with no fear of col- 
lision, since the entering value 
would be retrieved from the 
stack just before the return. 
Then we initialize IN$ and drop 
into a While loop. While the key- 
press is not an Enter we display 
it on the screen and store it in 
IN$(Count). We flash the cursor 
while waiting for each key- 
press. In the routine FLASH 
&GETKEYPRESS, after saving 
variables on the stack as usual. 



we set CU equal to the cursor 

off control character and enter 
the Repeat. ..Until loop. 

Changing CU to 29-CU tog- 
gles CU to cursor on and it's 
clear that we will toggle be- 
tween on and off as we cycle 
through the loop. The For loop 
gives a delay for the on and off 
times. If there Is a keypress dur- 
ing the loop, Wait becomes 
Wait minus 10 times ( - 1) so we 
exit the loop. The ASC function 
returns the ASCI) number of the 
first character of the string in- 
side the parentheses so if we 
exited normally from the For 
loop without a keypress it will 
become 1 . The alternative 
IN =ASC{IN$) causes an Illegal 
Function Call If IN$ = ". The 
next line is our complicated Un- 
til condition. If the keypress 
was a t>ackspace, an Enter, a 
number or letter that makes 
sense in the base we are using 
we return. Otherwise we just 
loop back to the Repeat. 

On returning from FLASH& 
GETKEYPRESS we cycle back 
to the start of the While loop. 



Assuming that the keypress 

was not an Enter we call DIS- 
PLAY&STORE. In that routine 
we merely return if the keypress 
was the first entry and was a 
backspace. If not we add I N$ to 
the end of IN$(CO} and print it 
on the screen. The assignment 
involving 2'(1 = 8) has the effect 
of subtracting one from the 
length of 1N$(C0) if the 
keypress was a backspace. In 
this case the LEFTS function 
will remove the character last 
entered. 

The net effect of all these 
routines is to allow the operator 
to enter and correct only those 
entries which make sense in 
the base in use. 

The subroutine "CHANGE- 
TODECIMAL" is a straight- 
forward calculation. The digits 
of the entry having radix (or 
base) equal to Radix(Count) are 
peeled off from the left and 
changed to ASCII. The assign- 
ment involving 7'(DDIGIT>57) 
has the effect of skipping the 
ASCII codes from 58 to 64 in 
order to give the correct 



decimal equivalent when 40 is 

subtracted. 

The last subroutine, CHANGE 
DECIMALTORADtXBASE, uses 
the same sort of trick in the 
0U$ line to change from 
decimal numbers to characters 
which are appropriate for the 
base in question. One element 
worthy of comment is the use 
of the variable DECI. This is 
used as a variable which is re- 
duced to zero during the calcu- 
lation. However It is also the 
variable in the main routine 
which holds the value needed 
for three separate calls to this 
subroutine. This could lead to a 
hard-to-f rnd error but our stack- 
saving discipline means that 
the problem disappears. On 
each exit from the routine DEC! 
is restored to the value it had on 
entrance so it is ready for 
another subroutine call. 

So that's it, programmers. 
Get out that txx)k on Pascal 
that's been gathering dust on 
your bookshelves, fire up your 
'80 and start programming in 
Bascal. ■ 



r FREE! 

A SASE gets you a free pro- 
gram listing and a list of our 
low prices. Here are a few: 

AXIOM IMP2 Printer $579 

IMMPAA 1 With tractor, single or roll t»md. ,5X buf- 
fer, includes full grapnics aoft<fiare. 

SEIKO Printer $359 

cpaou 

PERTEC Drive $325 

fD 200 complate "fUpfiy" M"' supply & case) 
cnpabte of 40 track, double dmnsity operation. 

Also cassettes, diskettes, 
cables, memory, power sup- 
plies and cases 
Software: auto minder, graph- 
ics monitor, mailbox, talking 
keyt}oard & more 

TERMS: Check, Mastercharge, 
Visa or money order 






Micro Mnemonics 

^ {801) 825-9317 
403W2250N 
SUNSET, UTAH 84015 . 



^^ 



TRS-80 



SAVE fi BUNDLE 

When you buy your 
TRS 80^ equipment! 

Lse our toll free number lo 

check our price be{(»re y<»u iMiy 

a TRS 80™ . . . anywiKre! 

Don't delay. . .CALL TODAY ,/ 



,^148 



SALES COMPANY 

1412WEST FAIRFIELD OR, 

PO. SOX 8098 PENSACOLA FL 32U6 

B04/43a-«607 

fwtionwide t •008741S51 



BUSINESS USERS! 

SM/E TIME & MONEY BY 
CONTROLLING YOUR LONG 

DISTANCE TELEPHONE COSTS 



LONG DISTANCE ANALYZER will 

" Sort your billed calls 

• Identify each party calted (from your known 
list) or print localiofis of urrecognized 
numbers 

• Total the cost of calls to each number, to all 
numbers, and to all unrecognized numbers 

• Analyze calls and tolls by area code, state. 
and WATS zone 

• Print an alphabetical directory of recognized 
numbers 

• Save verification time 

• Create cost-consciousness 

• Facilitate cost accounting and client billing 
■ Isolate personal calls and billing errors 

• Reveal inefficient use patterns 

• Help you perform WATS feasibility studies 

Requires Model I, tl, or Ml TRS-SO*, Level 11, 16K, 
and 1 disk. Printer is optioral. No connection to 
phone system 



MocW 



111 



Cewettt 



JiS. 



N/A 



185 



TRSDOS' dW 



jiaft. 



im. 



I13S 



Brochure on. request 

Send model number and check or money order to; 

Goidvn Braid Sottwan 
R O. BoK 2B34 ''ZB1 
SBTBWla, Florida 33578 



•TRS-80 WKl TRSDOS 

xe liBdamwki 

of Tandy Corporation. 
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COMPUTER SHOWS 



SECOND ANNUAL 

NJ MICROCOMPUTER 

SHOW AND FLEAMARKET - 1981 

NEWARK, NEW JERSEY 
Sat. Oct 24 Sun. Oct. 25 
10-5:30 PM « 10-3:00 PM 
HOLIDAY INN (NORTH) 
NJ Tufnpike • Exit 14 
(Take Route i-9 Service RoaO - Follow Signs) 
REGISTRATION $5 00- 
FLEAMARKET ONLY $3,00 
Fleamarket Permits $5/Spot 
(Includes Abmissiorii 
Commercial Exhibits "User Groups* Fleamarkel 
SECOND ANNUAL 
NATIONAL "80" MICROCOMPUTER 
SHOW (FOR TRS-80* USERS) 
April 29,30, May 1, 1982 
NEW YORK STATLER HOTEL 
NEW YORK CITY 
100 Exhibit Booths • Speakers* User Groups 
•TRS-80 IS a Trademark of Tandy CorDOralion 

For Registration, Exhibitor or Fleamarket 

Intormation Conlact 

KENGORE CORPORATION 

3001 Route 27 • Franklin Park. NJ 08823 

(201) 297-2526 ^^230 



V Check 

our book pages for the latest books 

about microcomputers! . 

-WAYNE GREEN BOOKS- | 

A Dhrtsion of Wsvm Gratn he v 

PitvlMrouoli, NH 03458 | 



FREE 
48-Page 
Catalog 



A new. free 48-page catalog is free 
from Creative Computing and Periph- 
erals Plus, To help buyers make intelli- 
gent purchasing decisions, the product 
descriptions are exceptionally compre- 
hensive and include screen photos in the 
software section 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple. Atari. TRS-flO. PET, CP/M, Tl, Sor- 
cerer and Sol computers; 3 magazines 
{Creative Computing. Microsystems, and 
Sy/VC); 5 graph icsand music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below. 



GPeattve computing 



Attn: Becky 
39 East Hanover Avenue 
Morris Plains, NJ 07960 



-512 



Wages 

Is 
Here 

FOR THE TRS-80 

• Wages MEETS PAYROLLS 

• Wages IS GUARANTEED 

• Wages COST ONLV 

$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 

P.O. Box 194 ^^ 

Standish, Maine 04084 

'A Trade name of the Tandy Corp. 




While they last . . . 

the complete year of 1980 80 Microcomputing 
(in its own shelf box. . . a $2.00 value — Free) 
for only $25.00.* 

Did you miss the 2,256 pages of useful information published for your TRS-80* ' in 80 Microcomputing last 
year? Now is the perfect time to catch up for only $25.00.* 

In the first year of 80 Microcomputing here were 335 articles on your TRS-80— 2 V2 times more than any other 
computing magazine. Also in 1980 there were new product reviews, news and columns and best of all hun- 
dreds of dollars worth of useable programs. 

So to unlock the key to your TRS-80 and double its value. . .send in today for the complete year of 1980. 80 
Microcomputing (in its own shelf box) for only $25.00.' 
We have a limited number of these complete sets so send in the card today or call our toll free #800-258-5473 

and charge it to your VISA, MC or AE card. . . .,. /-t ™,* ..tdc o^ • t j v t-r a 

* ^ 'plus shipping and handlmg ($3.00) "TRS-80 is a Trademark of Tandy 

n 




iQ I want a year of 80 Microcomputing for $25,00 plus 
$3.00 for shipping and handling. Plus I'll receive a shelf box to store 
them in. 



D Check enclosed for $_ 

Name ^ 

Address 

City 



State. 



Zip_ 



Please allow 4 to 6 weeks for delivery 
80 Microcomputing • 80 Pine Street • Peterborough, N.H. 03458 
Toll free ordering number 800-258-5473 g^gj 
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ReLoad 80 



This month we offer LOAD80 
tape owners a few notes 
about our experience with tape 
loading procedures. We've load- 
ed thousands of tapes at the 60 
editorial offices; here are some 
of the tricks we've learned. 

Tape head alignment can vary 
from machine to machine. Simi- 
larly, on any given machine, 
tape head alignment can vary 
from day to day, due to heavy 
use and stress caused by poor 
quality cassettes. Here at 80 
Micro, we find we must align the 
tape head on our CTR-41 for al- 
most every tape we load. Tape 
head alignment is accomplished 
by turning the small screw {us- 
ing a Phillips head screwdriver) 



located on the playback head. 
To reach this screw. It is neces- 
sary to drill a small hole in the 
plastic case of your tape record- 
er. (Drill this hole just above the 
Play button— see diagram.) Af- 
ter access is gained to this ad- 
justment screw, you can alter 
the audio quality of the tape sig- 
nal by turning the screw left and 
right. You can hear this signal if 
you pull the Ear plug out of your 
tape recorder. 

The goal of all these ministra- 
tions is to achieve a sharp, crisp 
tone — a muffled, muted audio 
signal won't load correctly. 

Sometimes loading problems 
can be caused by failing to turn 
off the clock (CMD"T") when 



Pgm# 


Page# 


Filename 


Comments 


1 1 


154 


ROTATE 


None 


2 


154 


R0TATE2 


None 


3 


174 


MEMXPD/SRC 


Needs EDTASM 


4 


186 


CONVRT/SRC 


Needs EDTASM 


5 


204 


HIDPICS 


None 


6 


220 


SORTER 


None 


7 


228 


SLPTSLPC/SRG 


Needs EDTASM 


8 


244 


HRSRCE 


None 


9 . 


250 


ERRPRT 


None 


10 


252 


LIFETIME 


None 


11 


286 


DISKCHGR 


None 


12 


320 


CARTOON 


None 


13 


334 


BASCAL 


None 


14 


N/A 


LASTEST 


From August 




September LOAD80 Directory 



running under Model I TRSDOS. 

These measures, along with 
frequent volume adjustments, 
as needed, allow us to load 
almost all the tapes we receive. 
The tapes that won't load— we 
send back! 

If you should have difficulty 
loading your LOAD80 tape. In 
spite of all your best efforts, you 
may have a defect ive tape or one 
that was damaged in transit. 



You can obtain a free replace- 
ment by returning the defective 
tape to: 

LOAD80 

ATTN; L. Eaton 

80 Pine Street 

Peterborough, NH 03458 

(603) 924-6532 

Next month, look for hints on 
loading source code files using 
Radio Shack's Editor/Assem- 
bler. ■ 



@ @ 



AC/BATTERY CUE/REVIEW 



REVIEW 1 , CUE 

REWIND RECORD PLAY FAST-F STOP EJECT 






Diagram of Cassette Recorder 



MOVING? 

Let us know 8 weeks In advance so that you won't miss a sin- 
gle issue of 80 Microco'nputing. 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



If you have no label handy, print OLD address here. | 



-J 

Qa Name. 



.Call 



>< 



Address , 



t City. 



State. 



Zip. 



print NEW address here: 



Q Address change only 
D Extend subscription 
□ Enter new subscription 
n 1 ye^r 518.00 



Q Payment enclosed 



Name 



Call, 



(tra BONUS issue) 


Address. 
City 












me later 








<;t:,tP 


Zip j 


80 MICROCOMPUTING 


PO 


liox 


<Wl 


• l.nrninKcl.iic NV 1 1 7 (7 • 
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MEMOREX 

FLKXIBLB DISCS 



WE WILL NOT BE UNDER- 
SOLDR Call free (800)235-4137 

for pnces and intormahoa Dealer 
inquiries invited and COD s 
accepted 

MM 



pACinc >^37o 

EXCHANGES 

I 00 Foothill Blvd 
S^n LuilObllpo. CA 
91401 In Cai call 
|BOO)5Q2 5935 oi 

1805)543 1037 




RUN BIG 
CPM* 
PROGRAMS 

ON YOUR 
MODEL 1 TRS-80* 

WITH 39 or 54Kol user space.Can use Mixed 
Drivers 5% or 8" (Variable Tracks) 
Compatable with all, TRS*80 Operating 
Systems and all TRS'SO Programs (usable 
on 48K disk systems only) Boards fit into 
keytraard mclosure 

FREEDOM OPTION S245 

MEMORY EXPANSION OPTION. . . . $295 
S«nd Chack or Monay Ordar to: 

(MASS RCSiOCMTt. PLEASI INCLUDl •% T«I) 

F.E.C* ltd. .. 

p.o-BoK tsaa • weburn, MA. oiaaa 
(•17) •44- ••!• ;-::VV'v>E;... 



^i^' 



^ 



y You've Written 
State-of-the-Art Software- 
We'd Like to Publish W 

We're looking for SYSTEM software: 
DISK OPERATING SYSTEMS 
MONITORS 

PROGRAMMER AIDS/UTILITIES 
LANGUAGES 
DATA BASE SYSTEMS 
Then, alt back and collect your 
royalty checks. Write for oar free 
Programmer's Kit todayl 

INSTANT SOFTWARE. INC. •'Z 

Submissions Dept. 

Peterborough, NH 03458 



TSraiONM. CCMCRCTE BEAM MSldNi S>v^ baa* 
■hftJB, CBlCUlAtlDO Blvat print out ,*/ all 
torauISB, partin«nt tnfa 4rom «CI Sie-7T tar 
rwvlmm. DnlQn clo«*<f «tlrrup« h «(»aclnQ and 
atfdtttonAl longttudlriAl ralnfurcliiQ. 

MODEL I itte T*rc •sv.vs bik •44. vs 

■TmtlMPi «nalv»a cant. KAHS and PIIMCS. 

Bivaa una— it, sfiav , axial load, and diaffl. 
MOOEL 1 4ac,l-DiaK •BV.V5 (SDCL tl m.vs 

fwrW-nWi L«t your pocket Coaputar t«acn you 

•nglnaaring aatli, ftlgti achool thru P.C. Eiiaa. 

LIICG AM> PGIWTS TAPK •14.V3 

GEWnAL EOUATIQNa T*^K •14, W3 

K>OEL 1,11^ TM>C SIV.VS tA. 

ntxa-LMmaue proommb 

FHCEtER ItMENTCRVi KsBp track of focxt In 
Irmmimr by Itwa, dat* placMl in 4r*«iar, and 
location of *r*fr . Kvap disk or tap* fllaa. 

Hooei. I iMc.TefC ■i<).9S disk M4.v3 

VIDCO CA8SCTTK HMM«E>ChrT, Kaw track o1 your 
rocirdMt aovlaa. Bvarch tir bdvIb I tltlo v 
■tw). print latoala, and Itata. Hach. aurt . 
NOOCL 1 33K.I-DIBC DtK •SV.VS 

fCMKEI DIWETTI 110 I 3 1/4- •27.99 

KX-lOO PBINTtO H/CABLE •BB^.^O 

CKtDATA niCRCLIIC PRIMTEH H/CABLC k9«9.*3 

BtlPflNB k HHtW-iwa FOR PRINTERS • IS.OO 



C^UPERiOR 
OFTWARE 



nlllOUKI nSIDCNTS 

l<|) iT*n 1M.(1 TAX 

Ur|[* ii\ for Inforaatlon atwul nirVatln^ your 
arogran. r.O. »o> 1167& (tntat Cily, HO ihnS 




FRICTION F[[0 FOR VOUR EPSON 

X-70' MX-80 

'Mil '0 frd MH-m vc TTSdL' B4rX£ of Q-^ Inc. 

Convffti yoijr prinlfr lor Iritlion 
l«ed Of S1NCI£ SHEETS or ROll 
PAPER, 

Sn«p-on instatlihon. ino tools 
needed, u^es eiitlinq mounts' 

Triclor tttO rfmains undisturbed 

Proven reliablMly. 

A.JillDle NOWi 

Only *39. 95 HOfl II. JO tor posligei 



,.^470 MICRO-GRIP, Ltd 
P.O. eOX B73 
V)^*« Waaler Cjt'I A;cepl«) l*FB, V* Z3»5 




SFINKSI.dl 

MICROCOMPUTER 

CHESS 

SHNKS was iw:*n«ly chafcnged by the bes p"> 
grmrm auailabie for the TRS-80' rrncnxxxriputei 
m • CanAdian Round Rotwi 

THE RESULT 

SHNKS nddted MYCHESS, SARGON D and 
GAMBIET 80 lo fineh m a be tn 1st place 
SF1NK5 features an audio alert, a problem mod? 
superb whics. and nine levels of play Play chess 
wflh Ihe best lor leas' 

32KModellTKS-S0* 
cassetteordisk only Z".?^ 

WaUAMA-FlNK .--^57 

PC BOX 5912 
Ughthcxjse Poml . FL 33064 

Dealer fnquines 
lWcx>m« 

•Tr»d*mBtV ol 
Tandy CoTipmy 



ife^iit^ 



THE GREEN.iCMtr^" THING 




AvAllAUt fo' mod«tt I II onjlll •& vail 
oi any ilondofd '7 >ncfi N>on''B' 



List $7« t:^*-^ 

FtATUIES-. 



>«■ liOC V .«.»-.« 1 Mi^l>* «M C^.l 



• •- ualk<n 



ORDIR NOW 

'»* HOW" — 
Pt) 404-*4*-ll»> 



•Mn •!>•••■ <r*<— •Mai Ixk 



/V5 



AUOK>- VIDEO 
^146 SYSTEMS 

Mtf A«»*>,w*a>a ftr ton Maa. CA. *•! 11 



r Smartmodem A 




• AutoAnswer • AuloDial • Repeat 

• Programmable - Use Any Language 

• Touch-Tone and PuKe Dialing 

• Audio Monitor - Listen to Connection 

• FCC-Approved Di'ect- Connect 

• Full Of Half Dupiei 0-300 Baud 

• RS-232C Interface* 7 Status LED s 

• Two Year Limiled Warranty 

S279 

Send ccrtitifd check oi monev 0'(**' 
Allow two weeiis lo' personal check 
Flo'ida rrsioents add 4°, sales lai 



^ 



flC€ COMPUT€R PftODUaS 

?'■' o< flofido Int. 

1&40 N ^ irn STREET 
DEERHLl D BEA(.:h ^LA iM4i J 



M 



NEW! *^. 

'The Wizard's C'W" JmL 



8K 



A FANTASV ADVENTURE GAME 

Search tor gold as a Fighter, Dwarf, Elf, 
Haffling or Magic-User In the dungeons 
beneath the WizardsClty or surrounding 
forest. EvH monsters kjrk everywhere to 
protect the gold. All in graphics! 
Cassette $12.95 Disk $16.95 

Financial Statement 16K <14.95 

inconrveTax 8K 19.98 

mcome/Deductlorts Fie 8K 10.98 

Stock Charting 8K 15.95 

MaH List Labler 32K disk only 22,95 

Add $4 tor dtek except Mall List 

Add S 1.50 ■A^ptog A hwkdtttg 

Al proff^ams for TRS-80 Mod. 1 Lev. 2 

BAPS Software 

6221 Richmond, Suite 220 
Houston, Texas 713/783-3433 

TRS-eo !■ ■ r%s. tradwnack of tiM Tandy Cm^ 
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The Electronic 
Breadboard 

Computer Aided Design (CAD) is one of the newest 
of the applications of microcomputer technology. 
THE ELECTRONIC BREADBOARD permits the 
design and emalysis of analog circuits. It cem be 
used to evaluate voltages, currents, impedance 
and the frequency response of any circuit. 



This package is ideal for audio component repair- 
men, ham radio technicians, hobbyists, electrical 
engineers, telecommunications engineers, audio- 
phlles and students of electronics. Plug it in and 
slice away a lot of guesswork. 

O287R-A40 Model I &m Level n 16K $49.95* 



Inslant Softwate 

PETERBOROUGH, N.H. 03458 




v-637 



TO ORDER: See your 
local Instant Software 
dealer or call Toll-Free 

1-800-258-5473 orrferaonly 

rn New Hampshire 1-603-924-7296 

Mon-Frt SOOaiti— 4:30 pm E.S.T. 



MAKE «*$$$ 
«s$$ MON E Y 

Selling SO Microcomputing, the only major journal for the users of the 
TRS-80*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "SO" will make you money. . .it's the only magazine for the 
TRS-60 users and you know how many of those there are. So call today 
and join t?te dealers who make money ^irith **S0". 

For information on selling SO Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
^SO Microcomputing, Pine Street, Peterborough, NH 0345s. 



'TRS-SO is a trademark of Che Tandy Corp. 
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—BASIC & PASCAL— 



—BUSINESS— 




oe>N 



• INTRODUCTION TO TRS«I LEVEL II BASIC AND 
COMPUTER PROaRAMMINQ-BK12t9-by MichMl 
P Zabinski Written by an expe'ienced educator. Ihis's 
the book tc ttiose t>eomners who want to >«arn about 
computers wilhoui having to become an expert It has 
p(aclica< programs, use'ui line bylirie comments, ex- 
cellent flowcharts accompanied by line numt^ers and 
over 200 exercises whicn help the reader assess prog 
ress. reinforce comprehension, and provde valuable 
practical experience S10 95* 

• SOBASICEXERCISES-BKiigZ-byJ P Lamoilier 
This booK IS structured around |he idea that Ihe best 
way to learn a language is througt) actual practice II 
contains 50 completely explained exercises: state- 
ment and analysis o' the pfoblem, llowcharts. pro- 
grams ana acluai runs Program subjects include 
matr>emaiics. business games and operations re- 
search. anO are presented in varying levels of diffi- 
culty Tlis lormat enables anyone lo learn BASIC rap- 
■d)y cnecKing ihen progress al each step S12.95* 

• THE BASIC HANOBOOK-BKn74-NEW, SECOND 
EDITION by Davtd Lien This booh is unique It is a vir- 
tual ENCYCLOPEDIA of BASIC While not favoring one 
computer over another, il explains over 250 BASIC 
words, how to use them and alternate strategies II a 
computer does no! possess the capabilities ot a need 
ed or specified word, there are often ways to ac 
complish tfie same function by using another word or 
combination of words. Thai's where the HANDBOOK 
comes in. It Helps you get Ihe mosi from your com- 
puler, be It a -bottom^Mhe-line ' micro or an oversized 
monster J1996 " 

• LEARNING LEVEL ll-BKll75-by David Lien Wnt 
ten esoec «.>y fo' the TRSBO. this book concentrates 
on Level It BASIC, exploring every imporlanl BASIC 
'anguage capability Updates are included tor those 
who have studied the Level i User's Manual Sections 
include ho* to use the Editor, dual casseiie opera 
lion pfrnto's and peripheral devices, and the conver 
Sion of Level I programs to Level II $15.95 ' 

• BASIC BAStC(2NDEDITIONl—BKi026-b¥ James 

S Coan Tris is a texibooh which incorporates Ihe 
learning □< computer programming using Ihe BASIC 
language with the teaching of mathematics Over 100 
sample programs illustrate the techniques of the BA 
SiC language and every section is followed by practi 
cai problems This second edition covers character 
string hand'mg and the use of data files. JiO 50 * 

• ADVANCED BASIC-BK1000— Applications, mciud 
ing strings and Mes. coordmale geometry, area, se- 
quences and series, simulation graphir>g and games 
JIO 76- 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS t2na Edition)- BR1073- by Donald 
Spencer pfoiides ine senous student o' BASIC pro 

' gramming with interesting problems and solutions No 
knowledge ol maih above algebra required Includes a 
number of game programs, as well as programs for 
financial interest conversions and numeric manipula 
tions $6 95 • 



• PASCAL — BK1188— by Paul M. Chirlian Professor 
Chirhans textbook comt}ines a simple approach to the 
PASCAL language wilh comprehensive coverage on 
how a computer woths, how lo use a flowchart, work- 
ing from a terminal as well as batch operation and 
debugging Special attention is paid to idiosyncrasies 
of Ihe language and syntax flowcharts abound 'or Ihe 
convenience of the experienced programmer. Welt in- 
dexed. 1 12.95 • 

• INTRODUCTION TO PASCAL-BK1 teS-by Rodnay 
Zaks A step by slep miroduCtion lor anyone wanting 
to learn the language quickly and completely Each 
concept IS explained simply and in a logical order All 
features ol the language are presenled in a dear, easy 
10 understand lorm«l wilh exercises lo tesl Ihe reader 
ai the end of each chapter <t descnties both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect for small compuiers No computer or program 
ming experience IS necessary $14 95' 

• PROQRAMMINQ IN PASCAL-BKIlAO-by Peter 
Grogono The computer programming language 
PASCAL was the lirsi language to emtiody m a coher- 
ent way the concepts ol structured programming, 
which has been defined by Edsger Dijkstra and C.A ft 
Hoare As such, it is a landmark in the development of 

Rtogramming languages PASCAL was developed by 
iklaus Wirth in Zurich; it is derived Irom the language 
ALGOL 60 but IS more powerful and easier to use 
PASCAL IS now widely accepted as a useful language 
that can be efficiently implemented, and as an ex 
cellent teaching tool II does not assume knowledge of 
any other programming language. il is tfwrefore suit- 
able for an introductory course Si2 95 ' 

—GAMES— 



• PAYROLL WITH COST ACCOUHTINQ-IN BASIC- 

BK1001 — byL Poole S M Borct>ers. includes prc'^ram 
listings with remarks, descriptions, discussions ol the 
principle behind each program file layouts, and a com- 
plete users manual with step-by step mslruciions. 
Howcharts and simple reports and CRt displays Pay- 
roll and cost accounting leaiures include separate 
payrolls tor up to 10 companies, time tested inierac 
tive data entry, easy correction of data entry errors, |ob 
costing (labor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W-2 and 941 (m CBASIC) $20 00 ' 

• SOME COMMON BASIC PflOGRAMS-BKlOM- 

pubdshed by Adam Osborne 4 Associates, Inc Perfect 
tor nontechnical compulensls requiring ready lo-use 
programs Business programs, plus miscellar>eous 

Dioorams Invaluable lor the user who is not an ex 
perienced piogrammer All will operate m the Stand 
alone mode $14 99 paperback 

• PIMS: PERSONAL INFORMATION MANAGEMENT 
SYSTEM -8K 1009- Learn how to unleash ihe power 
o' a personal computer 'or you' own benefit m this 
ready to use data base management program. 

— MONEYMAKING— 



• 40 COMPUTER GAMES- BK73ei -Forty gamss In all 
in nme different categories Ganws lor Iwga and amall 
systems and even a sectiort on calculator g«m«i- Many 
versions of BASIC used and a wide variety ol systems 

represented A most to' Ihe serious computBf games- 
man $7 95" 

• BASIC COMPUTER QAMES-eK1074-Okay. so 
once you get your compuler and are running in BASIC, 
then what' Then you need some programs in BASIC. 
that's what. This book has 101 gamesior you Irom very 
simpie to real buggers. You get Ihe games, a descrlp- 
lion of the games, the listing lo put in your computer 
and a sample run to show you how they work. Fun, Any 
one game will be worth more than (he price o( the book 
for the tun you and your family will have with it $7 50 ' 

• MORE BASIC COMPUTER QAMES-BK1182- 

edited by David H Ahl More lun in BASIC M f>ew 
games from Ihe people who brought you BASIC Com 
purer Games, includes such favorites as Minotaur (bat- 
tle the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample 'un 1/ 50 ' 

• WHAT TO DO AFTER VOU HIT flETURN-BKi071 - 

PCCs lirst book of computer games 48 dilterent 
computer games you can play m BASIC programs, 
descriptions, many illustrations Lunar Landing, ham- 
murabi King, CIvel 2. Oubic 5. Taxman. Star Trek. 
Crash. Market, etc $1095 ' 







• HOW TO MAKE MONEY WITH COMPUTERS- 
BK1003— In 10 inlormaHon-packed chapters. Jerry 
Felsen descnbes more than 30 compuier-relaied. 
money-making, high protii, low capital investment op^ 
portunities. $15 00 ' 

• HOW TO SELL ANYTHING TO ANYBODY- BK7306- 

According lo The Gwnness 8oo* of World Records, the 
author Joe Gira'd. is ihe world's greatest salesman." 
This book reveals how he made a fortune— and how you 
can. too. $2 25 " 

•THE INCREDIBLE SECRET MONEY MACHINE- 
BK1 178— by Don Lancaster A different kind of "cook- 
book" from Don Lancaster Want to slash taxes? G»l 
tree vacations? Wm at invest r -ents' Make money f n.-n 
something that you like id -? You'll find lht> >»» 
essential lo give you the key insider details of what «• 
really involved in staning up your own money machir»e. 
$5.«.* 



• Use Ihe order card in the back of this magaime or ilemue your order on a separate 

piece of paper and man to 80 Microcomputing Bookshelf • Petertwrough NH 03458 
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■ TftSIO ASSEMBLY LANOUAOE - BK t3i 7 - by 
HubeM S Howe. J' This book incorporates into a 
sJngl« volume all tr>e pertineni fads and inloimaiion 
iron nsefl to tino* to o'ogram and enjoy tt>e TRS flO In 
ciode*) are clear ptesentatiofis of all iniroducio'y con 
cepls completely tested practical programs and sub- 
touiines. details oi ROM and RAM and disk Operating 
systems plus comprehensive taDies. charts and ap- 
pendices Suitable lo' the iirst tirne use' ot mce ex- 
perlsncM users $9 96 * 

• INSIDE LEVEL 11 BKit83-Fot machine language 
P'Ogramfners' This is a comprehensive reference 
guide 10 me LeveUf ROMs, allowing easy uMiiaiiorol 
Ihe sophisiieateo toutnes ihey conlam it concisely 
eipiains setups, cailmg ssauencss. variable passage 
and I/O routines Pa'l II presents an entirely new com 
posiie program si'uciu'e wfuch unloads under the 
SYSTEM commano and executes in both BASIC ana 
machine code with the speed and efficiency of a com- 
piler Special consiaerahon is given lo disk systems 

• PROGRAMMING THE Z-M-BK112?- by flodnay 

Za«s Mere is assemciy language programming for the 
Z8C presented as i ;;(og'essive step Oy step course 
This book 5 Doin an educational leni antf a self 
contained reierenceOooK useful lobot" the l>eginning 
and the eaperienced programmer wt>o wish io learn 
atioui lie Z 80 Eiefcises to last the reader aiemciud 
e-J ii4 95 ■ 

• Z-M SOFTWARE GOURMET QUIOE AND COOK 

•OOt(-Bk'045-b» Na; Wadswo'fh Sceibi'S newesi 
coohboo*' Ths boch Cij''iains a cor^oiele Oesciptiori 
Of the powe"u Z-80 insfuctiun set and a *ioe vaneiy 
of p'ogrammng inio"nai'on Use me aulho's ingre 
dents iiciud'ng 'Oulnes sutjioutines and shofi pro 

8 rams c"oose » 1 Tie tested 'eij'peano siari cookioo* 
1699 ■ " 

• 2MAS5EMBLV LANGUAGE PROGRAMMING- 

sWi t77— by LanceA Levenihai This book thoroughly 
cprers the 2-60 insi'uciion set. abourxdmg in simple 
frogiamming eiamples which iiiustrale so'twarit de 
vMOptnent concepts and actual assembly language 
uuge Features include Z-80 I/O devices and mierlac 
ing'methods assemble* conventions and compan 
sons witn aoaOA/flOeS instruction sets and interrupt 
Structure S16 99 ' 

• VOL I COMPONENT TESTERS-1.87359- how 

tc OuiiO Iranssior leste'5 iflt, diode Tes'ets (3) IC test 
ers|3( voltmeters and vTVMs|9i onmmeters (8 differ- 
enl kinds) 'nducunce l3t. capacly (9|, measure- 
mem crystal checking (6j temperature i2), aural 
meie-5 for the bimrj (3i and an sorts o' miscellaneous 
data or mele'S using Itiem, mailing them more vpr 
salile making standards invaluable book S4 95 * 

• VOL. II AUDIO FREQUENCY TESTERS-LB7360— 

(am packed with all kinds o' audio frequency test 
equipmen; II you re into SS6 RTTV SSTV, etc.. this 
book IS a most to* yOu a good boon 'or hi li addicts 
arW etperimenters too' S4 95 ' 

• VOL lit RADtO FREQUENCY TESTEPtS-LB736)- 

R»diO f'equency waves the comf™;in ijenomiriator of 
Amateur Radio Such items as SWH antenna im- 
peOancfc line impedance, rt ouiput and iield strertgih 
detailed instructions on testing these ilefris includes 
sections o'' signal generators, crystal calibrators grio 
die oscii ators noise generators dummy loads and 
muoWrDore S4 96 * 

• ttK WiCTESTEQUtPMENT-LB7362-Becomea 

l»*l**«i*ooiing wizard' In this fourth volume ot the 73 
TEST e«OIPMENT LIBRARY are 42 home consttuclior> 
profeate ten building lest equipment to work wUh your 
h»m Btalion and in servicing digital equipment Plus a 
ci*nuiaiive mdei 'or an four volumes for the 73 TEST 
EQUIPMENT L'BRARv $4 95* 



• M(CAOC0MPUT/NG COCHNO SHEETS Microcompudno's dozen or so program 
mets wouldn't try lo work wlttioui these ttandy scratch pads, which help prevent Ihe 
little errors that can cost hours and hours of p'ogramming time Available lo' pro- 
gtamming is Assembly/Machine Language (POlOOH. which has columns for ad- 
dress, instruction (3 bytesi. source code (label, op code, operandi and comments 
and for BASIC (PD1002) which is 72 columns wide 50 Sheets to a pad $2 39 ' 



PROGRAMMING 



The Mlcroprocesaor Sottwar* EnQineerIng SMisa by John Zaicella provides common 
sense descriptions of advanced computer syslem topics lor engineers, program 
fi>ers and development managers Each volume is a seilconiained review of a soft 
ware engineering topic, explaining lundamental concepts in oasy-to-undetsland 
language and describing sophisticated software tools and techniques Detailed 
glossaiy of technical largon is included in each volume This series will help you iind 
the solutions lo your software problems 

• OPERATING SYSTEMS CONCEPTS AND PRINCI- 
PLES BK1193 Presents jnoverviewof thebasicop 
e'aling system types thei componenis and capabil 
mes $7 95 ■ 

• tWORD PROCESSING ANO TEXT EDITtMG - BKi t94 

— Provides a firm basis loi urHle'standing word pro 
cessing le'mir>ology and lor comparing systems 
t7 96 • 

• SYSTEM ARCHITECTURE-BK1196 -Presents a 

oeiailed overview of advanced computer system 
oesigii including object aichileclure and capabiliiy 
oased addressing S9 95" 




—6502— 

Jt«THE APPLE II USER'S GUIDE-BK1220»-by Lon 
Poole, Matiin McNKf. and Steven Cook This, guide is 
Ihe key to unlocking the full power ol your Appip II or 
Apple II Plus. Topics include 'Applesoft and inieqer 
BASIC Pfoqramming - specially how to make the 
besi use ol Apple s sound color a/>d graphics capabiii 
ties. Machine Level Piogiamming. ' Hardware 
Features ' — which covt-is t»>e disk drive and ptmiei 
and Advanced Programming' desf'<bin(] high 
resolution giaphirs techniques and other advanceti 
applications Well organized and easy to use JtSOO" 

• PROGRAMMING THE 6502 fThird Edition)- BK1005 
-Hodnay Zaks has designed a sell contained te«t to 

(earn programming, using Ihe 6502 It can be used by a 
person who has never programmed before and should 
be ot value lo anyone using Ihe 6502 The many eier 
^ises will allow yoo to lest yourseli and practice the 
concepts presented S1295 " 

• «502 APPLICATIONS BOOK -BKt006-Bodnay Zaks 
presents practical application techniques for the 6502 
microprocessor assuming an elementary knowledge of 
microprocessor programming You will buikJ and design 
your own Oomeslic use systems and peripherals Self 
test eiercises included J12 95 * 

• «S02 ASSEMBLY LANGUAGE PROGRAMMINQ- 

BKII76— by Lance A Levenihai This book provides 
comprehensive coverage o' the 6502 microprocessor 
assembly language Levenihai covers over 80 program 
ming eiampies from simple memory load loops to 
complete design projects Features include 6502 as- 
sembler conventions, input/output devices and inter 
tacing methods, and p'ogrammmg ihe 6502 mrerruol 
sysiem $1699 ■ 

• 6502 SOFTWARE GOURMET GUIDE AND COOK 
6OOK-8KI055-By Robert Fmdley This book inlro 
duces the BASIC language programmer mto Ihe realm 
of machine language programming The description ol 
Ihe 6502 structure and instruction sel, various 
routines, subroutines and programs are ihe ingredi 
ents in this cookbook Recipes " are included to help 
you put together exactly the programs to suit vour 
taste J12 95 " ' 



8080-6809-68000 

Jr Celling involved with Tandy s new Color Compule''> 
II so, this new book Itom Ihe Blacksburg Group will 
allow you to exploit the awesome power of the 
machine s 6809 microprocessor Detailed information 
on processor architecture addressing modes register 
operalion. data movement arithmetic logic opera 
lA- ^ f"^ inlenacing is p-ov-ded, as well Vs a 
review section at the end of each chaplei Four apoen 
;l,'^2'.^'*. ""^'"^^ covering the 6809 instruction set 

otnei 6800 series eguipmem and the 6809/6821 
Peripheral inierlact Adapter This book is a must lor 
ine serious Color Computer owner 113 95 ■ 

:^*«aOOO MICROPROCESSOR HANDBOOK -BKt2I6 

AB^ ."*' "^"^ Whether you re currenli, using ihe 
t>«»0, planning io use II, or Simply curious aOOul one 
?l ^ "^H'^V ^""^ ""^*' Powertui microprocessors 
'his handbook has all Ihe answers A dear pr^senid' 
lion of signal conversions timing diagram , orwen 
•Of^s. functional logic, three d.tterent instruci.in set 
laoies, excepiion processing, and lamiiy ■.uppori 
devices provides more tnlormalion abo-ji the SwSo 
than Ihe manufacturer s daia sheets A stan.; ^lone 
relerence book which can also be used as a suupie 
ment to An IntroOuction lo Wcroco/npurers Vof ? 
!>om* RttI Uiciopeocesson S£ 99 ' 

MiS?"^*!'^ ASSEMBLY LANGUAGE PROGRAM 

MING-by Lance Levenihai BK1004 -Assembly lan 
guage programming for the 8O80A'8O85 is e-plamed 
wilh a description ol the functions of assemblers and 
assembly mstruciions and a discussion of basic soil- 
ware development concepts Many luiiy debuoged 
practical programs are included as is a special secliori 
on si'ucluted prograrTiming J15 99' 

• eOaOSOFTWARE GOURMET GUIDE AND COOK- 
BOOK -BKi 102— If you have tieen spending too much 
lime developing simple routines 'o' your 8080. try ihis 
new book by ScelbrCompuling and Roberl Fmdley De 
scritws sorting searching, and many other foulinesfor 
the 8080 user $12 95* 
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pi*S of p«p«f v\a mail to 80 Mwrocomeuting Booksheil • Peterborough NH 03456 
»-t tute to inctooe cfttrn or OBUttad cmdit caio miormation 



m. 



above address 



'°'*''*d7r£*'''°"''''^''^'"«"^'°^-'^^^^^^ 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 



PRICES SJBjECI ;o t.M«n(i£ rtHMOu' nonet 




irig y 



microcomputing I bookshelf 



— INTRODGCTORY— 




• UNOERSTANUNQ AND PflOORAMMING MlCflO- 
COMPUTERS-BK73B3-A valuatH« aOdition to your 
computing libfOfy This two-oarl te<l includes lh« &esl 
•rticl«s trial have appearM in 73 and Kilobaud 
M I ctocom puling rnagaiinas or IM hafdwaio and soft 
warn aftp«ctB ot micfocompuling Well-hnown autlvo'S 
and well struct uied leil Iwlps in« fsadar gel ir^volved 
$1095- 

• SOME OF THE BEST FROM KILOBAUD MtCflOCOM 
PUTING— 6K731 1 —A coileciion o( l^e Desi articles m«i 

have appe*r«0 m KitoMod MICROCOMPUTING Includ 
ed IS matef'al on the TRS80 and PET systems, CP'M, Ihe 
80808085^ -W ch>ps. Ihe ASR-33 lemiinal Da'^ base 
managemeni wofd piocessmg. lext adiiors and Me 
structures afe cowered loo Programming techniques 
and hard-core hardware construction proiecls tor 
moOoms, f>igf> Speed cassette iniertaces and TVTs are 
also included in Ihis large lormat, 200 plus page edition. 
S1095- 



• YOUR FIRST C0MPUTER-BKn91-Dy Rodnay 
Zaks Whether you are using a computei. itimhing 
about using one or considering purchasing one. this 
booli IS indispensable 't explains what a rx>mpute< 
system is. what it can do. t>ow it works and how to 
select various components and peripheral units It is 
wrilien m everyday language and contains invaluable 
intormation lor Ihe novice and Ihe enperieocefl pro- 
grammer (Ttte lirsl edition ol this txiok was published 
under Ihe lille An Inlroduclion lo Personal and 
Business Computing ' 1 $7 96* 

• MICROPROCESSOR INTERFACINQ TECHNIQUES 
-BKl037-by Austin Lssea & Rodnay Zaks— will 
leach you how to Interconnect a complete system and 
interface it to all the usual peripherals It covers hard- 
ware and software skills and techniques, inciudingthe 
use and design ol modal t>us«s >uch as the IEEE 4w or 
S100 S15 95- 



• HOBBY COMPUTERS ARE HEREI - BK'a22-M you 
want to come up lo speed on how corr-pulefC worV 
hardware ana software this is an r<c«llent book it 
starts with 'undarrwniais arvd eip^ams Ihe circuits, and 
the basics o' programming, along wiin a couple ol TVT 
construction projects. ASCII-Baudot, etc This book hM 
the tiigtiesi recommendations as a teaching aid t4 K.' 

• THE NEW HOBBY COMPUTERS-BK7340 - This 
book takes il (rom *nefe HOBBY COMPUTERS ARE 
HERE' ■ leaves o't. with cfiapiers on Large Scale integra- 
tion, how (o ctioose a microp'ocessor chip an introduc- 
tion lo programming, low cost I'D lor a computer, cooi- 
pulor arithmetic, checking memory boards and 
much, much more' Don i miss this iremendous value' 
Only U 95 • 

• AN INTRODUCTION TO MICROCOMPUTERS. VOL 

— BK 1 130— The Beginner s Book — Wntien lor readers 
wtio know nothinfl about compute's- 'or those who 
have an interest m how lo use computers — and lor 
everyone else who must i-ve wilh computers ard 
Strauld know a little about them The lirsi in a series ot 
4 volumes, this book will explain how computers work 
and what Ihey can do Computers have Cwcome an in 
tegral part ol lile and sciciely During any given day you 
are sl'ected by computers so start learning more 
about them with Volume 17 95 ' 

• VOL. l-BKiOX-2nd Edition completely rertaeil 
Dedicated lo the basic concepts ol microcomputers 
and hardware theory The purpose ot Volume 1 is to 
give you a thorough unde'Slanding o' what microcom 
puters are From basic concepts jwhich are covered in 
detail). Volume l buiids ine necessary components ol a 
microcomputer sysiem Tms book highlights the Oil 
lerence between minicomputers and microcomputers 
$12 99 ■ 

• VOL. II — BK1040 (with txndeo- Coniatns descrip 

lions ol individual microprocessors and support 
devices used only with ihe parent microprocessor 
Volume II descrit>es all available chips 131 99' 

• VOL. Ml — BK1133 (with bmderi - Contains descri;.- 
lions ol all suppori devices that can tie used with any 
microprocessor SJi 99' 




• TR^W DISK AND OTHER MYSTERIES-BKIIBI- 
by Harvard C Pennington This is Ihe detinilive work 
on the TRS«) disk sysiem 11 is lull ol delailed How 
to" inlormalion with eiamplas. samples and in depth 
explanations suitable lor beginners and prolessionais 
alike The recovery ol one lost lite is worth the price 
alone S22 50 - 

• MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES-BKllB6-by J*m«i Farvour From the 
company Ihai brought you TRSdO DISK AND OTHER 
UYSTEHIES\ Contains more than 6500 lines o( com- 
ments lor Ihe dtsassembled Level II BOMs. sii addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them Flowcharts lor all maior routines give Ihe reader 
a real insighl into how the interpreter works. J29 50 



—SPECIAL INTERESTS— 

• THE CUSTOM TRS-M AND OTHER MYSTERIES- 
BK1!18— by Dennis Kitsz More than 300 pages ol 
TRS«) cuslomiiing inlormation With this booh you'll 
be able to explore your computer like never belore 
Want to turn an 8 track into a mass storage unit'' In 
dividual reverse characters'' Replace the BASIC 
ROMs'' Make Music'' High speed, reverse video. Level I 
and Level IP Fix it il it breaks down'' All this and much, 
much more Even il you have never used a soldering 
Iron or read a circuit diagram, this book will teach you 
how' This is the delmilive guide lo cusiomijmg your 
BO! K9 95 ■ 

• BASIC FASTER AND BETTER AND OTHER MYS 

TERIES — BK1Z21— by Lewis Rosenleldei You don'l 
have to learn assembly language lo make your pro 
grams run last With the dozens ol programming tricks 
and techniques in this book you can sorl at high speed, 
swap screens in the iwinkiing ol an eye, write INKEY 
routines Ihal people think are in assembly language 
and add your own commands lo BASIC Find out how 
lo write elegant code that makes your BASIC really 
hum, and enpiore the power ol HSR calls $29 95 " 

• THE CPfM HANDBOOK (with MP/M)-BK1187-bv 
Rodnay Zaks A complete guide and relerence hand 
book lor CP'M — Ihe industry standard m operating 
systems Step-by step instruction lor everything Irom 
turning on the system and inserting Ihe diskette to cor- 
lect user discipline and remedial action lor problem 
situations This also includes a complete discussion 
ol ail versions ol CP'M up to and including 2 2, MP'M 
andCDOS $14 95' 

a INTRODUCTION TO TRS^ ORAPHICS-BKIIBO- 

by Don Inman Dissatisfied with your Level I or Level II 
manual's coverage o' graphics c a pat" lilies'' This well 
Structured book (suitable lor classroom use) is ideal 
tor those who want lo use all the graphics capabilities 
built into the TRS-eO A tutorial method is used with 
many demonstrations It is baaed on the Level i, but ail 
material is suitaDle lor Level II use 18 95 ' 




• TOOLS k TECHNWUES FOR ELECTRONICS- 
BK7348— By A A Wicks is an easy lo-u"der«tand book 
written lor the beginning kil builder as well as Ihe ei 
perienced hobbyist H has numerous pictures and 
descnpiions ol the sale and correct ways to use basic 
and specialized lools 'or electronic protects as well as 
Specialiied metal working lools and irw chemical aids 
which are used in repair shops $4 95 * 

• HOW TO BUILD A MICROCOMPUTER-ANDREALLY 
UNDERSTAHDn-BK7325-DySamC<MSon Theelt^ 

ironies hobbyist who wants 10 build his own microcoftv 
outer sysiem now has a practical How To" qutOab"Jt 
This book Is a combination technical manual »na ,.w 
gramming guide Ihat takes the hobbyist step^ ' ^J^^g 
through the design, consiiucnon, testing and deeu90)"0 
ol a complete mtcrocomputer system Must reading IW 
anyone desiring a true understanding oi smaH rjjmpu»r 
systems 19,95 ' 



■ Use the order card in the back ot this maga/ine or ilemue your order on a separale 
Diece ol paper and mail to 80 Microcomputing BookShell • Peterborough NM 03458 

eoe check or detailed credit card inlormaHon 



No C O.D. orders accepted AH above add $i 50 handling ^ I «"•»'' °-**tf?" 
lor delivery Oues-ons regarding your order^ Please write CustQmer Sef>'.C«mhe 

above address. 



FOR TOLL FREE ORDERING CALL 1 -800-2585473 
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PfUCES SUftJECT TO CHANGE WIT MOW' MOTIC£ 



Why use their flexible discs: 

Ampex, Athana, BASF, Caelus, Control Data, Dysan, 

IBM, Inmac, K-Llne, Maxell, Nashua, Scotch, 

Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.99 each? 

Find the flexible disc you' re now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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IVIemorex Flexible Discs.. .The Ultimate in Memory Excellence 



Quality 

Memorex means guahty products that you can depend on. 
Quality control at Memorex means starting witli the t>esl 
rUBfafiais avaiiable. Continual surveiilance throuoliout the 
entire manulacluring process. The benetit of M em orex's years 
ot experience in magnetic media profluclion, rasuitino. 'or 
instants, in propnetary coating formulations. The most sophis- 
ticated testing procedures you'll find anywhere in the business. 
100 Percent Error Fr»» 

Each and every Memorex Flexible Disc is certified to be 1 00 
percent error tree. Each track of each flexible disc is tested, 
individually, to Memoreii's stringent standarOs ot excellenoe. 
Tliey teat signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error. They are 
torque-tested, and competitivaty tested on drives available 
from almost every majof drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard ot excellence that 
assures you, our customer, ot a quality product designed for 
increased data reliability and consistent top performance. 

Custotnwt-Orianted Packaging 

MBtnof«x'»i<»nimitment to excellence does not slop with a 
WWi'VOf^wfct. Ttiey are proud of their flexible discs and they 
Pfetai9*tt*m with pride. Both their packaging and their 
Itttollng^hbve been designed with your ease of identification 
'^pd. use in mind. The desk-top tjox containing ten discs is 
e«rrvenfent for tiling and storage. Both box latiels and jacket 
labels provide lull intormalion on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language cars 
and handling instructions and color-coded removable labels 
are included A wnte-proteet feature is available to provide 
data security 

FuB On* Vmf Warranty - Your Assuranc« of Quality 
M«n»ret Flexible Discs will be replaced free of charge by 
Mtmorex M they are found to be detective in materials or 
i«)'kmanship within one year ot the date of purchase. Otfier 
than replacement, Memorex will not be responsible for any 
damages or losses (including eonseauential damages) caused 
by the use ot Memorex Flexible Discs. 



Quantity Discounts Available 
Memorex Flexible Discs are packed 1 discs to a carton and 
1 cartons to a case. Please order only in increments ot 100 
units for quantity TOO pricing. We are also willing to accom- 
modate your smaller orders. Quantities less than 100 units are 
available in increments of 10 units at a 10% surcharge. 
Quantity discounts are also available. Order 500 or more 
discs at the same lime and deduct 1%; 1 ,000 or more saves 
you a%; 2,000 ormore saves you 3%; 5,000 or more saves you 
5%; 1 0,000 or more savas you 7%; 25,0tX) or mora saves you 
8%; 50.000 or mofa saves you 9% artd 1 00,000 or more discs 
earns you a 10% discount off ourauper lowquantily 100 price. 
Almost all Memorex Flexible Discs are immediately available 
from CE. Our warehouse facilities are equipped to help us get 
youlhequalityproductyouneed.whenyouneedit If you need 
further assistance to find the flexible disc that's nght to- you, 
call the Memorex compatibility hotline. Dial 300-538-8080 

and ask1orthe"BJ(i6yedisc'io(/ineextension0997. In California 
dial 800-672-3525 extension 0997, 

Buy with Confldancs 

Toget the fastest delivery tromCEof your Memorex FlexibleOiscs 
send or ptione your order directly to our Computer Products 
Division. Be sure to calculate your price using the CE pnces in this 
ad. Michigan residents please add 4% sales tax. Written purchase 
orders are accepted from approved government agencies and 
most *ell rated (irms at a 10%surchargetor net 10 billing All sales 
are subject to availability. All sales are llnal. Prices, terms and 
specrficatlons are subject to change wrthout notice. Out of stock 
items will be placed on bacfcorber automatically unless CE Is 
instructed differently. Interrationalordersare invited with a $20 00 
surchargefor special handling in sadition to sh'pping charges. All 
shipments are FO.B Ann Arbor Michigan No COD s please Non- 
certitied and toreign checks reguire bank cieaiance 

Mail orders to: Communications Electronics, Box 1002 Ann 
Arbor, Michlgan4a 106 U.S A Add S8.0O per case or partial-case of 
1 00 S-inch discs or 16.00 per case o( 1 00 51^-lnoh mini-discs tor 
U.P.S.orounOshlpplngandhandllnginttiecontinenlalU.S.A If you 
have t Master Charge or Visa card, you may call anytime and place 
■ credit card order. Order toll-fr** In the United States. Call 
anytime 800-521-441 4. II you are outside the U.S. or In Michigan 
dial 313-994-4444, Dealer Inquiries Invited. All order lines at 
Communications Electronics are staffed 24 hours 
Copyright '^ B81 Communicatloni Electronlcs' 







Order Toil-Free! 
(800)521-4414 




For Data Reliability— Memorex Rexibie Discs 



G 



COMMUNICATIONS 
ELECTRONICS" -263 

Computer Products Division 

854 Phoenix G Box 1 002 D Ann Arbor, Michigan 481 06 U S A. 

Call TOLL-FREE (600) S21 -441 4 or Qutalda U.S.A. (313) 9M-4444 



WE ARE MOVING TO 
LARGER QUARTERS! 

Thank you... 

... for making our expansion possible and for 
helping make us the leading distributor 
of microprocessor systems, temninals 
and printers. 

We are showing our appreciation by 
producing a special catalog with thousands 
of items at greatly reduced prices. 
Call or write today. 

Help us move our inventory before we have 
to move it. 



MiniMicroMart, Inc. 

943 W.Genesee St. 

Syracuse, New York 13204 

(315)422-4467 



* 



SEPTEMBER TRS-80 

SPECIALS 



T.M, 



Verbatim Diskettes 

* Datalife Series 

* 40 Track, Built-in Hub Rings 

* Single Sided, Double Density 

Cat No. 1147 For TRS-80 $27/box 

Lex-11 Acoustic Modem 





* 300 Baud modem W/originate, 
answer, test modes, full or half 
duplex operation. 

* Power & ready indicators. 

* Switches mounted on top for 
easy access. 

* 4 screw assembly for easy 
servicing. 

Cat No. 2930 $119.95 

(Reg. $139.95) 



Percom DOUBLER II 

Plug in adaptor stores two to four times more data on your diskettes. 
Runs TRSDOS, NEWDOS + or Percom OS-80. Installs without re-wiring 
or trace cutting. Includes DBLDOS, a TRSDOS compatible double 
density operating system. 
Cat No. 2971 $159.95 

TRS-80 Color Computer Owners! 

Take your pick of three popular arcade games from Spectral 
Associates. Pick one or pick all three. On cassette. $21.95 ea. 
Cat No. 3157 Invaders 
Cat No. 3158 Meteoroids 
Cat No. 3159 Space War 

How To Order 

Write or phone. Mention this ad and WE PAY SHIPPING (UPS 
ground, USA only). Pay by check, M/C, Visa or C.O.D. (Add $1 40 for 
C.O.D.) Offer expires Oct. 1, 1981. 




1 



ELECT7^N/C5 



19511 Business Center Dr. Dept. V9 Northridge, CA 91324 
(800) 423-5387 (Outside Calif) (213) 886-9200 (In Calif.) 

MENTION THIS AD AND WE PREPAY UPS GROUND SHIPPING AND HANDLING (USA only) 
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Still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III) 

Disk Drives 

Model B/51 250K, 1 Side, 40 Tracks $321.00 

B/52 500K, 2 Sides, 40 Tracks per side $439.00 

B/91 500K, 1 side, 80 Tracks $439.00 

B/92 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty (e-c s.pgi 

Here's just a few of the 
features of our Disk Drives 



other Money Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-aO 



2 Drive Cable. . 
4 Drive Cable , 


$29.00 
$39.00 


Diskettes 




Verbatim 10 for $31.00 


Syncom 10forS35.00 


Plastic File Box. . . 


S3.95 


Operating Systems 




TRSDOS2 3 
40 Track Patch . . 
NEWDOS + 


$14.95 
S9.95 

$99.00 


Newdos 80 


$139.00 


TRSDOS Manual.. 


S5.95 


Super Utility 


S49.00 


Make 80 


.514.00 



16K Model 111 $899.00 

48K Model III 

w/2 Disks $1900.00 

Expansion Interface 

OK $274.00 



Printers 



Centronics 737-1 . .$815.00 

IDS 460 51219.00 

Epson MX80 S550.00 

OkidataMSO .S499.00 

Microline82 $650.00 

Microline83 . $950.00 
Okidala prices include tractofs 
NEC Spinwriter 5530 
(freight collect) $2579.00 
16K Memory Kits 

Prime NEC 200ns dynamic 
RAM. Comes with complete 
instructions $39.00 

MPI Service 

Manual $3.00 

MPI Engineering 

Manual $30.00 



40/80 Tracks • Speed constant d V2% 

Auto-eject • Single/double density 

Hi-Temp stability ■ Optical sensors— no switches 

ADDS MORE POWER TO YOUR SYSTEM 

Save time . . . Order by phone 

Orders only: 1-800-621-3229 

Information: 312-987-1024 

Tech. assistance: 312-987-1032 



(Tl 



MIDWEST 

COMPUTER 

PERIPHERALS 



1467 S. MICHIGAN 
CHICAGO. ILLINOIS 6C605 



THSaO TANDY COflP 



FREE! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Oescnption 


S each 


Total 






















































(Minimum order $50,00) TOTAL 





n Checl* enclosed 
Bill my □ Visa D Am Ex 
□ Master Charge 
Acct. No 




Exp 



"T 



Name 

Address . 

City 



State 



._Zi^. 



Nol Hespoo^ble to< TypograpfiK:4l Errors Prices SubiecT ioChar>ae H'O noTice 
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Compare our prices with 
any in the magazine. 



\ 



Wewin. 



16 K RAM KITS 

fl'f r > .I..!. -TQC, 

DIP SHUNTS (FOR KEYBOARD MEM UPGRADE! 4 00 



TRS-80 MOD I HARDWARE 



PERCOUDAlAScPAflAIOR 

PERCOMDOUBLER 

DOUBLE ZAP ll/BO [CONVERTS ND/BO TO D 

MPl 40 TRACK DISK DRIVE (6-51) 

ShuGART 40 TRACK DISK DRIVE (4001) 

MPl BO TRACK DISK DRIVE (8-9t) 

TANOON 80 fRACK DISK DRfVE 

lANDON 40 TRACK DISK DRiVE 

LNW DOUBLES WfTH OOSPLUS 3 3D 

PERCOM SPEAK-2ME-2 



TRS-80 SOFTWARE 

LAZY WRl't^l MOD i 

PflOSOFTMODI III 

SPECIAL DELIVERY (MAIL LIST PROG) MOD I, I" 

X-TRA SPECIAL DELIVERY (MAIL LIST PROG) 

'RACKCESSMODi 

OMNiTERM SMART TERMINAL PKG MOO I III . 



PRINTERS 

ANADEXOP9000 
ANADfKDP900l 
ANAO[)(DP9500 
ANADEXDP9501 
CENTRONICS 739 
C-II0H?5CPS PARALLEL 
CIT0h;J5CPS SERIAL 
C-ITOM 45 GPS PARALLEL 
C-ITOH40CPSSfRIAL 
C-nOH TRACTOR OPTION 

EPSON Mxao 

EPSON MX-BOF/T 

EPSON MX-TOOF/I 

IDS-445G PAPER TIGER 

IDS-460G PAPER IfGER 

ID3-S60G PAPER TIGER 

INFOSCRIBE 500 9X9 i&OCPS 

iTi-e^O REPLACEMENT! 

MALI6U?00 DUAL MODE 

NEC SPiNWRIIEP55!OSE RIAL RO 

NEC SPINWRITER 5530 PARALLEL RO 

NEC SPINWRITER «00 D SELLUM OPTION 

NEC SPINWRI Ttfl 3500 SELL L)M OPIION 

DKlDA!AMiCROLINE80 

OKlDATA MICROLINE 82 

0KIDATAMICROLINE83 

CP/H Is a trademark ol Digital Research 



27 00 

. 15900 

45 95 

299 00 

299 00 

42900 

429 00 

. 299 00 

. ^5900 

6495 



125 00 

79 00 

119 OO 

199 00 

24 95 
8995 



1 195 oa 

M95 00 

1295 00 

1295 00 

765 00 

144000 

1495 00 

177000 

1670 00 

'75 00 

SCALE 

SCALl 

SCALl 

795 OO 

1149 00 

1495 OC 

U95 OC 

2995 OC 

2595 00 

2595 QO 

2795 0O 

2195 00 

399 00 

59900 

795 00 



MODEMS 

NOVAllON CAT ACOUSTIC MODEM 145 00 

NOVATION CAT DIRECT CONNECT MODEM 155 oO 

NOVATION AUIO-CAT AUTO ANSWER MODt M 229 00 

UDS 103LP Direct conne ci modem i 75 00 

LlXiCONLX n MODEM i!5O0 



DISKETTES 

MD525-01,tOl6 2650 

MO 550-01 1016 44 50 

MD577-01.1016 34 60 

MD557-011016 456O 

FD 32 OR 34 -8000 45 60 



DISKETTE STORAGE 

5Vr PLASTIC library CASc 2 50 

8-' PLASTIC LIBRARY CASE 3 50 

PLASIIC STORAGE BINDER Wl !H INSERTS 9 95 

PROTECTOR 5I4" 24 95 

PfiOItCTORS" 29 95 



CP/M SOFTWARE 

MICROSOFT BASiC-eO 29900 

MlCROSOFl BASIC COMPILER 31900 

MICROSOFT FORTRAN-ao 399 00 

PEACHTREE SYSTEMS GAIL 

MAGIC WAND (REQUIRES CP.'Ml 275 00 

WORD STAR (REQUIRES CP'M) 310 00 

MAIlMERGE (REQUIRES word STAR) IQO OO 

SPELLGUARO 239 00 

CP/M PICKLES i TROUT FOR TRS 80 MOD (I 1 75 00 




CORVUS 

TRS-80 MOD I. II 

Controliei, Case/PS , Operalmg Syslem. A&T 

5 MeqaPyles 
)0 Megabylcs 
20 MegaOytes 
MIRROR RflrK-iiP 



3095 00 

4495 00 

5395 00 

700 00 



SPECIALS 



NU 1 



NO 3 



NO 4 



NO 5 



IRS 80 DISK A OTHER MVSTEHIES/BOX 
OFDISKS/PLASncliBRARvCASE 44 50 

NEWDOS '80 ? 0/BOX OF OlSKS/PlASTIC 
LIBRARY CASE 149 00 

MiCftOSOf 1 BASIC COMPll ER/BOX Of 
OlSKS.'PI ASllC LIBRARY CASE 190 00 



MICROSOFT BASIC D&O'HfR MYSIERiES;' 
BOX Of DISKS.'PLASnc LIBRARY CASE 49 95 

NO b DOUBLE DENSITY SPECIAL NEWDOS/ 

80 DOUBLE ZAP It BOXOFOiSKS PLASTIC 
LIBRARY CASE 309 00 

IANOON40 TRACK WITH NEIWOOS+ 320 00 



SUPPLIES 

AVERY TABULABLES 

3.0003-1/2 « I5,')6 
5.0003-l'2.i5 ifi 

UARCO PAPER (Prices FO.B. SP) 

9 I.2. il :8 ti Afi.v 2900 

14-7/B» 11 leibwtiite 3900 

We srock a complele line ol computer covers printer 
ribbons, print wheels & NEC thimbles Call us lor your 
needs 



8 49 

14 95 
19 95 



We built a reputation on our 
prices and your satisfaction. 

We gtjd'ditce evsr /fifng *(.■ Lt;ll lij; 30 Jdvi H .iMhing 
IS wrong (usl return Ifie jtem and well make i| ngW 
And ol course, we'll pay ir»e shipping charges 

We aicepl Vrsa and Master Card on all orders COD 
accepted up lo $300,00 We also accept school pur- 
chase orders 

Please adrJ $2 00 for standard uPS shipping and 
handling on orders under 50 pounds delivered in Itie 
continental U S Call us for snipping charges on iiems 
ttiai weigh more itianM pounds foreign fPOandAPO 
orders please add 15% for shipping Calilornia les- 
idenlsadd fi% sales ia< 



(213) 883-8594 

31245 La Baya Drive. Westlake Village, California 91362 

The prices quoled are only valid (of stock on hand and all prices are subject lo change without notice 



I 




Frustraling isn't iU No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did. the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses e miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80. Apple. 
PET. OSI and an RS 232 unit. 
Even the slowest of the units is 15 
times faster than a cassette, and all 
are as reliable as disk drives - in 
fact a lot of users say they are more 
reliable! 




excellence in electronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 




T1tS-80, Apple tnd PET are trademarks tit Tsndy, Apple and Coiwnndora mpectivcl> 




